Sendmessage用法

1、TfileListBox对象，添加新文件名后，使光标自动选中该文件名！

代码如下：

　　FileLb.Update;
      Num := SendMessage(FileLb.Handle, LB_FINDSTRING, -1, Cardinal(sNewName));   //sNewName为新文件名，Num返回该文件名在FileLb中的索引值；
      FileLb.ItemIndex := Num;
      filelb.Items[filelb.ItemIndex];