21.05.2012, 16:47
|
Так проходящий
|
|
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
|
|
PHP код:
procedure SendKey(h: Cardinal; key: Integer);
begin
SendMessage(h, WM_KEYDOWN, key, 0);
SendMessage(h, WM_KEYUP , key, 0);
end;
//выбрать первый элемент:
SendKey(listboxhandle, VK_HOME);
//выбрать второй элемент:
SendKey(listboxhandle, VK_HOME);
SendKey(listboxhandle, VK_DOWN);
как добавляется контакт не знаю, если кнопка или toolbar, то можно найти и нажать на неё
PHP код:
//клик по кнопке на toolbar-е
procedure UClick(button: byte);
var p: TPoint;
begin
p.x := 32*button+32; //32 – ширина кнопки
p.y := 16;
SendClick(UToolbar, p);
end;
|