Hi,
What's the best way to display messages in the statusbar
when the user goes thru the menu-items of the MainMenu?
I have allready made a procedure for the Toolbar - buttons, but I don't
know how for the MainMenu-items!
private
{ Private declarations }
procedure MyHint(Sender: TObject);
(*-----------------------------------------------*)
procedure TMainForm.MyHint(Sender: TObject);
begin
StatusBar1.Panels[0].Text := Application.Hint;
end;
(*-----------------------------------------------*)
procedure TMainForm.FormShow(Sender: TObject);
begin
Application.OnHint := MyHint;
ShowHint := True;
ToolButton1.Hint := 'New|New Connection';
ToolButton2.Hint := 'Open|Open Connection';
ToolButton3.Hint := 'Save|Save current connection file';
ToolButton4.Hint := 'Print|Print';
ToolButton5.Hint := 'Copy|Copy the selection into Clipboard';
ToolButton6.Hint := 'Paste|Insert Clipboard contents';
end;
(*-----------------------------------------------*)
Thanks in advance...
Greetings,
Peter Kiers
Russell