StatusBar zur Laufzeit erstellen

[Nuclear-Ping]

Zitat von Delphi Hilfe:

TStatusPanels.Add
Die Methode erzeugt eine neue Instanz von TStatusPanel und fügt diese dem Array Items hinzu.

function Add: TStatusPanel;

Beschreibung

Die Methode Add gibt die neue Tafel zurück. Zur Entwurfszeit wird der zugehörige Editor verwendet, um der Statusleiste weitere Tafeln hinzuzufügen.

Beispiel - BeginUpdate, EndUpdate, Add, Count, Items
Im folgenden Beispiel wird eine Tafel (Panel) mit Beschriftung in die Statusleiste eingefügt, wenn der Benutzer auf eine Schaltfläche klickt. Die Methoden BeginUpdate und EndUpdate dienen dazu, einen Neuaufbau der Darstellung so lange zu verhindern, bis die Operation abgeschlossen ist. Ein try...finally- Block sorgt dafür, daß im Fall einer Exception die Methode EndUpdate aufgerufen wird.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  PanelIndex : Integer;
begin
  with StatusBar1 do
  begin
    Panels.BeginUpdate;
    PanelIndex := StatusBar1.Panels.Count - 1;
    try
      Panels.Add;
      Inc(PanelIndex);
      Panels.Items[PanelIndex].Text := 'Panel' + IntToStr(PanelIndex);
    finally
      Panels.EndUpdate;
    end;
  end;
end;