BeginUpdate (Delphi)

Description

The following example adds a panel to the status bar control when the user clicks the button and adds a caption to the panel. The code uses BeginUpdate and EndUpdate to prevent repaints until the operation is complete. A try...finally block ensures that EndUpdate is called even when an exception occurs.

Code

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;

Uses

• System.Classes.TCollection.BeginUpdate ( fr | de | ja )
• System.Classes.TCollection.EndUpdate ( fr | de | ja )
• Vcl.ComCtrls.TStatusPanels.Add ( fr | de | ja )
• System.Classes.TCollection.Count ( fr | de | ja )
• Vcl.ComCtrls.TStatusPanels.Items ( fr | de | ja )