This component adds a status bar to a form similar to that found at the bottom of the Windows desktop.
The Panels property opens the status bar panel editor, which allows you to divide the status bar into more than one panel:
In this simple example the three controls on the form have their ShowHint property set to True (though this does not affect the use of the status bar) and the Hint property set to a simple piece of text - 'Label', 'Edit' and 'Exit':
The first panel of the status bar is set to the current time (needs a timer to update it). The second panel is set to display the Hint text of the controls when the mouse moves over them and to set the display text to empty when the mouse moves out. The first event handler for the form sets up the status bar panels:
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Width:=120;
StatusBar1.Panels[1].Width:=120;
StatusBar1.Panels[0].Text:=datetimetostr(now);
end;
The event handlers for the controls take this form:
procedure TForm1.Button1MouseMove(Sender: TObject; Shift:
TShiftState; X, Y: Integer);
begin
StatusBar1.Panels[1].Text:=button1.Hint;
end;
The display in the status bar is turned off with a form event:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.Panels[1].Text:='';
end;
