Hallo,

ich hab eine Klasse TMSG (ohne Form), die Nachrichten-Strings sammelt und eine Klasse TViewMSG (mit Form), die Nachrichten anzeigt.

z.Zt. wird ein TViewMSG Object in TMSG erzeugt über:
fViewMSG:= TViewMSG.Create(nil);
Die Klasse bzw. das Form TViewMSG hat noch keine eigene OnCreate-Routine.

Nun möchte ich das aber so ändern, dass TViewMSG eine Referenz auf TMSG bekommt, indem sich zunächst der Aufruf in TMSG ändert zu:
fViewMSG:= TViewMSG.Create(self);

Gleichzeitig hab ich dann auch das OnCreate-Ereignis testweise in TViewMSG erzeugt:

markieren

Delphi-Quellcode:

procedure TViewMSG.FormCreate(Sender: TObject);
begin
  showmessage(Sender.ClassName);
  inherited Create(nil);
end;

Der Kompiler meckert aber schon bei fViewMSG:= TViewMSG.Create(self);
[Fehler] uMSG.pas(200): Inkompatible Typen: 'TComponent' und 'TMSG'

Daher die Frage, muss der Sender immer eine Komponente sein, oder was versteh ich da nicht?

Jumpy

Der Sender muss TObject sein (also eine beliebige Klasse), der Owner aber TComponent.

Muss ich dann beides übergeben? Wie?

fViewMSG:= TViewMSG.Create(self,nil);

Oder übergebe ich nur den Owner, der Sender wird dann automatischmitgeliefert?

-----
Edit:

Habs mal ausprobiert mit:
in TMSG: fViewMSG:= TViewMSG.Create(nil);

und in TViewMSG

markieren

Delphi-Quellcode:

procedure TViewMSG.FormCreate(Sender: TObject);
begin
  showmessage(Sender.ClassName);
  inherited Create(nil);
end;

Das gibt schonmal keine Fehlermeldung, aber als Sender wird mir nun TViewText angezeigt.
Wie krieg ich die aufrufende/erzeugende Klasse an die erzeugte Klasse?

Das "inherited Create" gehört nicht ins FormCreate, sondern in den Konstruktor. Zeig uns doch einmal die Deklaration der beiden Konstruktoren.

Hallo DeddyH,

deine Frage hat mir schon die Augen geöffnet. OnCreate ist ja nicht der Konstruktor (wie ich blöderweise dachte) sondern das Ereignis, das beim Aufruf des Konstruktors gefeuert wird.
Daher war der Sender bei mir oben auch das TViewMSG selbst.

Da ich keinen Konstruktor hatte, galt denk ich mal der der Mutterklasse TForm und der will halt gern einen Owner TComponent.

Hab das OnCreate gelöscht und folgenden Konstruktor gebaut:

markieren

Delphi-Quellcode:

constructor TViewMSG.Create(Sender: TObject);
begin
  if Sender is TComponent then inherited Create(TComponent(Sender))
  else inherited Create(nil);
  if Sender <> nil then showmessage(Sender.ClassName);
end;

Damit läuft es, wie es soll, aber es kommt die Warnung im Kompiler:
[Warnung] mViewMSG.pas(31): Methode 'Create' verbirgt virtuelle Methode vom Basistyp 'TCustomForm'

Ist das schlimm? Muss ich da noch irgendwo ein override oder so hinzufügen?

Zitat von Jumpy:

Ist das schlimm? Muss ich da noch irgendwo ein override oder so hinzufügen?

Richtig erkannt. Schreib im Interface-Teil einfach "override;" hinter die Konstruktor-Deklaration, dann sollte die Meldung verschwinden.

[edit] Halt! Geht so nicht, da Du ja keinen Owner, sondern einen Sender übergibst. [/edit]

[edit2] Wovon ist denn TViewMSG abgeleitet? TCustomForm? [/edit2]