Форум: "Основная";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
ВнизКак проверить, находится ли курсор над компонентом или нет? Найти похожие ветки
← →
Набережных С. (2002-02-12 20:56) [4]Так-же, как и любое другое сообщение:
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
или так:
FOldBtnPrc:TWndMethod;
procedure TForm0.NewBtnPrc(var Msg: TMessage);
begin
case Msg.Msg of
CM_MOUSEENTER: Button2.Caption:="Enter";
CM_MOUSELEAVE: Button2.Caption:="Leave";
else FOldBtnPrc(Msg);
end;
end;
procedure TForm0.FormCreate(Sender: TObject);
begin
FOldBtnPrc:=Button2.WindowProc;
Button2.WindowProc:=NewBtnPrc;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c