Форум: "Основная";
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];
ВнизКонтроль за перемещениями мышки. Найти похожие ветки
← →
Dimka Maslov (2001-12-25 09:44) [4]Обрабатывай сообщения CM_MOUSEENTERи CM_MOUSELEAVE. Первое сообщение передаётся контролу, когда мышь на него находит, второе - когда уходит.
type
TMouseSensitiveControl = class (TSomeControlDescendant)
private
FMouseHover: Boolean;
procedure CMMouseEnter( var Message); message CM_MOUSEENTER;
procedure CMMouseLeave( var Message); message CM_MOUSELEAVE;
public
property MouseHover: Boolean read FMouseHover;
end;
procedure TMouseSensitiveControl.CMMouseEnter( var Message);
begin
FMouseHover:=True;
inherited;
end;
procedure TMouseSensitiveControl.CMMouseLeave( var Message);
begin
FMouseHover:=False;
inherited;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c