Как отследить нахождение курсора над моим Edit-ом?

← →
dimonf © (2002-11-12 12:24) [0]

делаю:

procedure TfrmDetail.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
IF ((X >= Edit1.Left) and (X <= Edit1.Width)) and ((Y >= Edit1.Top) and (Y <= Edit1.Height)) then
begin
StatusBar1.Panels[0].Text := "[Shift+Enter]";
end else StatusBar1.Panels[0].Text := "";
end;

мне нужно сделать подсказку в StatusBar1 но фишка в том, что при нахождении над Edit-ом вывожу в StatusBar1. А как стирать подсказку в StatusBar1, если курсор не в зоне Edit???

← →
F1 © (2002-11-12 12:29) [1]

WM_MOUSELEAVE

← →
Skier © (2002-11-12 12:32) [2]

>dimonf

> . А как стирать подсказку в StatusBar1, если курсор не в
> зоне Edit???

лови CM_MOUSELEAVE

1. Присваиваешь своему Edity значение свойств Hint = ... и ShowHint = False
2. Размещаешь на форме компонент ApplicationEvents
3. Создаёшь обработчик свойства OnHint для этого компонента в
котором пишешь:

procedure TForm1.ApplicationEvents1Hint(Sender: TObject)
begin
StatusBar1.Panels[0].Text:=Application.Hint;
end;

При этом не надо заботиться о приходе и уходе мыши с компонента, всё сделается автоматически

Как отследить нахождение курсора над моим Edit-ом? Найти похожие ветки