TCustomStatusBar.SimpleText Property

Contains the string that is displayed in the status bar when SimplePanel is set to true.

Pascal

property SimpleText: string;

C++

__property AnsiString SimpleText;

Description

SimpleText contains a text string to be displayed in the status panel when SimplePanel is true.

C++ Examples:

Copy Code

/*
This example adds text to a TRichEdit and to a StatusBar.
This example requires no additional controls. All controls are
created dynamically within the form's OnCreate event handler.
Note: Be sure to add ComCtrls to your uses clause to support 
TRichEdit.
*/

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TStatusBar *status = new TStatusBar(this); // The owner will clean this up.
  // Display the StatusBar control on the surface
  // of the form.
  status->Parent = this;
  // Allow a single line of text -- no panels.
  status->SimplePanel = true;
  // Provide sample text.
  // Create a new instance of TRichEdit, set its
  // properties, and display on the form.
  TRichEdit *rich = new TRichEdit(this);  // The owner will clean this up.
  // Display the RichEdit control on the surface
  // of the form.
  rich->Parent = this;
  // The RichText control takes all space left
  // over from the StatusBar.
  rich->Align = alClient;
  // Add 50 lines to the RichText
  for (int i = 1; i <= 50; i++)
    rich->Lines->Add(AnsiString("This is line ") + IntToStr(i));
  rich->SelStart = 0; // set text cursor to first character
  status->SimpleText = IntToStr(rich->Lines->Count) + " Lines loaded";
}

Delphi Examples:

Copy Code

{
This example adds text to a TRichEdit and to a StatusBar.
This example requires no additional controls. All controls are
created dynamically within the form's OnCreate event handler.
Note: Be sure to add ComCtrls to your uses clause to support 
TRichEdit.
}
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  with TStatusBar.Create(Self) do
  begin
    // Display the StatusBar control on the surface
    // of the form.
    Parent := Self;
    // Allow a single line of text -- no panels.
    SimplePanel := True;
    // Provide sample text.
    // Create a new instance of TRichEdit, set its
    // properties, and display on the form.
    with TRichEdit.Create(Self) do
    begin
      // Display the RichEdit control on the surface
      // of the form.
      Parent := Self;
      // The RichText control takes all space left
      // over from the StatusBar.
      Align := alClient;
      // Add 50 lines to the RichText
      for i := 1 to 50 do
        Lines.Add('Adding line ' + IntToStr(i));
      SelStart := 0; // set text cursor to first character
      SimpleText := 'Number of Lines loaded to RichText: ' +
        IntToStr(Lines.Count);
    end;
  end;
end;