Moin!
Eine TStatusBar hat dazu das Ereignis OnDrawPanel. Dort eine Procedure zuweisen und in dieser malen. Auch den Text der Hilfe dazu lesen:
Zitat von
Delphi 5 OH:
Das Ereignis OnDrawPanel wird ausgelöst, wenn eine Tafel innerhalb einer Statusleiste neu gezeichnet werden muß.
type TDrawPanelEvent = procedure(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect) of object;
property OnDrawPanel: TDrawPanelEvent;
Beschreibung
Das Ereignis OnDrawPanel wird ausgelöst, wenn eine Tafel in einer Statusleiste erneut angezeigt werden muß, beispielsweise weil der Benutzer die Größe verändert hat. Der Parameter Rect enthält die neuen Abmessungen der Tafel. OnDrawPanel wird nur dann ausgelöst, wenn die Eigenschaft Style der Tafel auf psOwnerDraw gesetzt ist.
TDrawPanelEvent ist der Typ der Eigenschaft OnDrawPanel.
MfG
Muetze1