OnMouseMove

[frai]

Есть база. В ней куча кнопок. Решил вставить StatusBar и что бы при наведение на кнопки на статус панели соответствующая надпись появлялась. Это реализовал с помощью фун-ции OnMouseMovie.
А вот как сделать так чтобы при убирании курсора с кнопки надпись пропадала не знаю(((
P.S. Попробовал вставить Timer и прописать этот момент. Все получилось но думаю есть способы проще. Подскажите пожалуйста

[mutabor]

Вообще это можно сделать лучше, назначить всплывающую подсказку - Hint, чтобы он отображался в Статусбаре. Смотри в свойствах TApplication.
Но можно и так как ты начал делать, в OnMouseMove формы очищай статусбар.

[frai]

Пытася не получилось.
Опиши пожалуйста поподробнее. Еще раз повторюсь мне надо что бы пр наедении курсора подсказка на StatusBar появлялась а при убирании исчезала

[mihali4]

мне надо что бы пр наедении курсора подсказка на StatusBar появлялась а при убирании исчезала

Для начала объявляем:

...
{$R *.dfm}

var OldStatusBar1WindowProc: TWndMethod;
...

Сразу после объявления прописываем процедуру:

procedure TForm1.StatusBar1WindowProc(var Msg: TMessage);
begin
case msg.Msg of
CM_MOUSELEAVE:
begin
//здесь - код для убирания надписи
end;
CM_MOUSEENTER:
begin
//здесь - код для вывода надписи
end;
end;
OldCloseWindowProc(Msg);
end;

И, наконец, в событии OnCreate формы:

OldStatusBar1WindowProc:=StatusBar1.WindowProc;
StatusBar1.WindowProc:=StatusBar1WindowProc;
StatusBar1.Perform(CM_MOUSELEAVE,0,0);

Не понял только одного - почему вопрос в разделе "Базы данных"???