VViskas =[O_o]=
Сообщений: 145
Оценки: 0
Присоединился: 2008-01-01 02:25:50.893333
|
Исходник: procedure TForm1.Button1Click(Sender: TObject);
var
FormWnd: HWND;
ComboWnd: HWND;
Text: Array [1..255] of Char;
begin
FormWnd:= FindWindow(nil, 'Заголовок чужого окна');
ComboWnd:= FindWindowEx(FormWnd,0,'TComboBox',nil);
SendMessage(ComboWnd,WM_GETTEXT,SizeOf(Text),Integer(@Text));
ComboBox1.Items.Text:= Text;
end; В ComboBox1 добавляетсо только одна строка (которая выбрана по умолчанию) А как ВСЕ варианты из чужого ComboBox'а в свой копернуть? Что-то типо этого: ComboBox1.Items.Text:= ComboBox2.Items.Text; У кого какие идеи??? 8|
|