onShow

[Markus K.]

Hallo Pseudemys Nelsoni,
so müsste es gehen.

Delphi-Quellcode:

  TStatusWindowClass = class(TObject)
  private
    StatusWindow: TForm;
    StatusBox: TRichEdit;
    StatusTextBox: TEdit;
    procedure StatusWindowShow(Sender:TObject);
  public
    procedure CreateStatusWindow;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TStatusWindowClass.CreateStatusWindow;
begin
  StatusWindow := TForm.Create(nil);
  StatusWindow.OnShow := StatusWindowShow;
end;

procedure TStatusWindowClass.StatusWindowShow(Sender:TObject);
begin

end;

Tschüß Markus