| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как отследить нахождение курсора над моим Edit-ом?
dimonf © (2002-11-12 12:24:00)делаю:
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???
Dimka Maslov (2002-11-12 12:59:00) [1]
1. Присваиваешь своему Edity значение свойств Hint = ... и ShowHint = False
2. Размещаешь на форме компонент ApplicationEvents
3. Создаёшь обработчик свойства OnHint для этого компонента в
котором пишешь:
procedure TForm1.ApplicationEvents1Hint(Sender: TObject)
begin
StatusBar1.Panels[0].Text:=Application.Hint;
end;
При этом не надо заботиться о приходе и уходе мыши с компонента, всё сделается автоматически
Skier (2002-11-12 12:32:00) [2]>dimonf
> . А как стирать подсказку в StatusBar1, если курсор не в
> зоне Edit???
лови CM_MOUSELEAVE
F1 (2002-11-12 12:29:00) [3]WM_MOUSELEAVE
| |
