delphiのOnHintでデフォルトメッセージとOnHintメッセージを併用するには？

StatusBarに

「ヘルプを表示するには [F1] を押してください」

と表示しておいて、OnHintを使います。
ツールボタンからマウスカーソルが外れた時に、上記ののメッセージに戻るようにしたいのです。
自分で考える限りは試行錯誤をして、ネットでも調べて見たのですが解りませんでした。
お助け下さい。

デルファイは初心者です。このようなTipsがあるサイトで良い所が有れば、URLを教えて頂けると嬉しいです。

No.1 ベストアンサー 回答者： Police4562 回答日時： 2005/08/01 15:43

質問内容を勘違いしてるかもしれませんが、

ツールボタンの近くにあるオブジェクトに
OnMouseMoveイベントを割り当てれば可能だと思います。
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Statusbar1.SimpleText:='ヘルプを表示するには [F1] を押してください';
end;

この回答へのお礼

有難うございました。
おかげさまで解決できました。

先ほど、お礼を書き込んだ積もりだったのですが、消えているようで、遅くなりました。

お礼日時：2005/08/01 20:22