Форум: "Основная";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
ВнизКак проверить, находится ли курсор над компонентом или нет? Найти похожие ветки
← →
Бурундук (2002-02-12 21:32) [5]Стандартный обработчик сообщений CM_MOUSEENTER/CM_MOUSELEAVE
посылает их родителю(в lParam находится указатель на себя),
поэтому можно поймать их так (для контролов, которые лежат
непосредственно на форме):
TForm1 = class(TForm)
...
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
...
end;
procedure TForm1.CMMouseEnter(var Msg: TMessage);
begin
if Msg.lParam <> 0 then
Caption := "Enter " + TComponent(Msg.lParam).Name
else
Caption := "";
end;
Причем этот метод сработает и для потомков TGraphicControl.
(Для тех, чей Parent <> Form, можно переписать
оконную ф-ю у Parent"a, как было предложено выше)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c