請問要如何抓到另支程式ComboBox元件的items, 還有要怎麼用sendmessage，來讓ComboBox選取items裡的某一項?

gavinj123 你好: 1. 你可以運用 Win API , "EnumWindows" 與 "EnumChildWindows" 找出該 Combobox 的 Handle.(建議搜尋一下相關文章). 2. 對該 Window Handle 送 CB_SETCURSEL Message, 如: SendMessage(ComboBox1.Handle,CB_SETCURSEL,1,0); // 選定第二個 Item

引言: gavinj123 你好: 1. 你可以運用 Win API , "EnumWindows" 與 "EnumChildWindows" 找出該 Combobox 的 Handle.(建議搜尋一下相關文章). 2. 對該 Window Handle 送 CB_SETCURSEL Message, 如: SendMessage(ComboBox1.Handle,CB_SETCURSEL,1,0); // 選定第二個 Item

Mickey大大，謝謝你， SendMessage(ComboBox1.Handle,CB_SETCURSEL,1,0); // 選定第二個 Item 解決了我第二個問題， 但是我第一個問題是，我打到了Combobox 的 Handle了，但我怎麼抓到他裡面Item的所有選項呢?因為我要先知道它有那些選項，才能知要我要選那一個。

參考看看:

procedure TForm1.Button1Click(Sender: TObject);
var i , iCount, iLen:integer;
    iStr : array of char;
begin
  iCount := SendMessage(ComboBox1.Handle,CB_GETCOUNT,0,0);
  for i := 0 to iCount - 1 do begin
    iLen := SendMessage(ComboBox1.Handle,CB_GETLBTEXTLEN,i,0);
    SetLength(iStr,iLen);
    SendMessage(ComboBox1.Handle,CB_GETLBTEXT,i,Integer(iStr));
    Memo1.Lines.Add(String(iStr));
  end;
end;

發表人 - Mickey 於 2004/09/02 12:54:05

Mickey大大，感謝您