Auf Objekte von Unterklasse aus Zugreifen

[Stevie]

Zitat von Gollum:

Hallo,

in der Deklaration von TfChatClient fügst Du unter public folgendes ein:

Delphi-Quellcode:

public
    { Public-Deklarationen }
  property ProtokollMemo:TMemo read mProtokoll write mProtokoll;
end;

Da eine TForm nicht wissen kann, was ein abgeleitetes Objekt so alles besitzt, musst Du in Deinem Fall einen Typecast durchführen. Oder Du deklarierst kenntChatFormular gleich vom Typ TfChatClient.

Delphi-Quellcode:

procedure ChatClient.bearbeiteNachricht(pNachricht:string);
begin
  ShowMessage('hab was: ' + pNachricht);
  TfChatClient(kenntChatFormular).ProtokollMemo.Lines.Add(pNachricht);
end;

Dann kannst du gleich das machen und benötigst keine Property!

Delphi-Quellcode:

procedure ChatClient.bearbeiteNachricht(pNachricht:string);
begin
  ShowMessage('hab was: ' + pNachricht);
  TfChatClient(kenntChatFormular).mProtokoll.Lines.Add(pNachricht);
end;