onShow

[Pseudemys Nelsoni]

Moin,

Delphi-Quellcode:

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

implementation

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

procedure StatusWindowShow;
begin

end;

mit :

Delphi-Quellcode:

procedure StatusWindow.StatusWindowShow;
begin

end;

Damit gehts auch nicht


Sagt mir jemand was daran nicht funzt? Ich wollte dass OnShow event definieren, aber ist wohl falsch

fehler ist/sind:

Zitat:

[Fehler] IRC.pas(26): Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'
[Fehler] IRC.pas(14): Ungenügende Forward- oder External-Deklaration: 'TStatusWindowClass.StatusWindowShow'
[Fataler Fehler] Project1.dpr(6): Verwendete Unit 'IRC.pas' kann nicht compiliert werden
[Pascal Fehler] IRC.pas(1): Die Programmierhilfe kann nicht aufgerufen werden, da der Quelltext Fehler enthält

[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

[SirThornberry]

Die Methode muss vom Type TNotifyEvent sein (Siehe OH)