Скачать: CL | DM;

Как отследить нахождение курсора над моим 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

---

← →
Dimka Maslov ©   (2002-11-12 12:59) [3]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c