klasse: TForm-Feld createn?

[Pseudemys Nelsoni]

hallo ^^

Delphi-Quellcode:

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

implementation

procedure TStatusWindowClass.CreateStatusWindow;
begin
  StatusWindow := TForm.Create(self);   <<< hier der fehler
end;

fehler ist:

Zitat:

[Fehler] IRC.pas(22): Inkompatible Typen: 'TComponent' und 'TStatusWindowClass'

jemand ne idee was falsch ist? ok, es steht zwar da, aber ich weiss nicht warum :gruebel:

[Gollum]

Hallo,

das Problem liegt am Parameter Self in der Create des Forms.
TComponent und TObjekt sind in diesem Zusammenhang inkompatibel.

[SirThornberry]

anstelle von self lieber nil übergeben wenn dir kein passender owner einfällt

[Pseudemys Nelsoni]

nun gehts, danke :D

wieso ging denn self nicht?

[GuenterS]

Weil TComponent nicht vom Typ TObject ist, wie die Fehlermeldung selbst schon sagt *g*

[Pseudemys Nelsoni]

ist doch aber TForm oder ^^

[Gollum]

Hallo,

der Constructor Create einer Form erwartet ein TComponent-Objekt. Wenn Du Dir einmal die Hierarchie in der Delphi-Hilfe angeschaut hättest, würdest Du wissen warum:

TObjekt - TPersistent - TComponent - .... - TForm

Alleine aus diesem Zusammenhang lässt sich erkennen, das TObjekt (bzw. TStatusWindowClass) nicht TComponent ist...

[Steve]

Self ist nicht TForm sondern TStatusWindowClass :)

[Pseudemys Nelsoni]

danke :)