Hi,
hab ne
Unit fmChatClient (Hauptformular) die nen Formular hat mit nem MemoFeld namens mProtokoll. In der
Unit lade ich ne Klasse ChatClient.
Delphi-Quellcode:
unit fmChatClient;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, mChatClient;
type
TfChatClient =
class(TForm)
eServerIP: TEdit;
eZuSendenderText: TEdit;
bSenden: TButton;
bVerbinden: TButton;
bTrennen: TButton;
bBeenden: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
mProtokoll: TMemo;
procedure bVerbindenClick(Sender: TObject);
procedure bTrennenClick(Sender: TObject);
procedure bSendenClick(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure bBeendenClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
zServerIP:
string;
zVerbunden: boolean;
public
{ Public-Deklarationen }
end;
var
fChatClient: TfChatClient;
hatVerbindung: chatClient;
Diese hat die Variable kenntChatFormular. Die das obrige Formular repräsentieren soll. Über die möchte ich jetz auf das Memofeld zugreifen.
Delphi-Quellcode:
unit mChatClient;
interface
uses mCLientverbindung, Forms;
type
ChatClient=
class(ClientVerbindung)
private
kenntChatFormular:TForm;
public
constructor init(pIPAdresse:
string; pPortNR:integer; pMitProtokoll: boolean; pFormular:TForm);
procedure bearbeiteNachricht(pNachricht:
string);
override;
end;
implementation
uses fmChatClient;
constructor ChatClient.init(pIPAdresse:
string; pPortNR:integer; pMitProtokoll: boolean; pFormular:TForm);
begin
inherited init(pIPAdresse, pPortNR, pMitProtokoll);
kenntChatFormular := fChatClient;
end;
procedure ChatClient.bearbeiteNachricht(pNachricht:
string);
begin
//ShowMessage('hab was: ' + pNachricht);
//kenntChatFormular.mProtokoll.Lines.Add(pNachricht);
end;
Aber das geht leider nicht so :'(
Kann mir einer helfen?!
Danke