In einem StatusPanel erscheint die Caption eines MenuItem

[pszopp]

Leider nicht:

Delphi-Quellcode:

procedure TFormMain.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  if (Panel = StatusBar1.Panels[1]) then
    StatusBar1.Canvas.TextOut(Rect.Left, Rect.Top, Panel.Text);
end;

Panel.Text wird über einen Timer alle 500 ms mit FormatDateTime beschrieben.
Das wird auch meistens angezeigt, nur halt bei einem Form,
das über dem Hauptform liegt, kommt es zu Problemen.