Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
Мне нужно программно сделать выбор (В ЧУЖОМ приложении из своего приложения) в компоненте ComboBox1.ItemIndex

Вопрос задала: britikova (статус: Посетитель) Вопрос отправлен: 18 февраля 2010, 16:29 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Alexey6522

Здравствуйте, britikova!

var
h, h1 :HWND;
idCombobox: integer;
begin
//PChar(Edit1.Text)
//Format Partition Wizard
h:=FindWindow(nil, 'Form1'); //Ищем форму с компонентом ComboBox
h1:=FindWindowEx(h,0,'TComboBox',nil); //Ищем сам компонент по классу TComboBox
SendMessage(h1, CB_SHOWDROPDOWN, 1,0);
idCombobox := GetDlgCtrlId(h1);
Caption:=IntToStr(h1);
SendMessage(h1,CB_SETCURSEL,4,0);//Выбрал строку 5 в комбобоксе
SendMessage(h,WM_COMMAND,MakeWparam(idCombobox,CBN_SELCHANGE),h1);//Здесь показывает наш выбор
SendMessage(h1, CB_SHOWDROPDOWN, 0,0);

Ответ отправил: Alexey6522 (статус: 1-ый класс) Время отправки: 18 февраля 2010, 17:27

Мини-форум вопроса

Ерёмин А.А. (статус: *Администратор), 18 февраля 2010, 19:06 [#1]: britikova: Ставьте оценки за ответы - экспертам они куда нужнее, чем репутация.

Егор (статус: 10-ый класс), 20 февраля 2010, 19:34 [#2]: Андрей, а надо будет сделать возможность обмена репутации на оценки типа, 10 очков репутации - это +5 оценка как в играх - можно обменять какой-нить клинок армагеддона на сколько-то ресурсов серы гыыы ))))) Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.