Показать сообщение отдельно
  #5  
Старый 13.02.2012, 21:22
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Код:
var
  pr : TPoint;
  aRect : TRect;
begin
  GetGursorPos(pt); // узнать позицию мышки
  ScreenToClient(Wnd, pt); // перевести координаты 'десктопа' в оконные Skype-а
  if PtInRect(aRect, pt) then // в aRect уже должны "лежать" предпологаемые координаты кнопки
  begin
    // что-то делаем
  end;
end;
это только общее направление для размышления
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием