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;