Показать сообщение отдельно
  #6  
Старый 30.08.2011, 21:49
Аватар для Gravitas
Gravitas Gravitas вне форума
Новичок
 
Регистрация: 12.06.2011
Сообщения: 61
Версия Delphi: 7
Репутация: 38
По умолчанию

Разобрался.
Код:
var
P: TPoint;
begin
P:=ClientToScreen(Point(Button1.Left, Button1.Top));
SetCursorPos(P.X, P.Y);
end;
__________________
Gravitas
Ответить с цитированием