Показать сообщение отдельно
  #6  
Старый 21.05.2012, 16:47
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

PHP код:
procedure SendKey(hCardinalkeyInteger);
begin
  SendMessage
(hWM_KEYDOWNkey0);
  
SendMessage(hWM_KEYUP  key0);
end;
//выбрать первый элемент:
  
SendKey(listboxhandleVK_HOME);
//выбрать второй элемент:
  
SendKey(listboxhandleVK_HOME);
  
SendKey(listboxhandleVK_DOWN); 
как добавляется контакт не знаю, если кнопка или toolbar, то можно найти и нажать на неё
PHP код:
//клик по кнопке на toolbar-е
procedure UClick(buttonbyte);
var 
pTPoint;
begin
  p
.:= 32*button+32//32 – ширина кнопки
  
p.:= 16;
  
SendClick(UToolbarp);
end
Ответить с цитированием