mannometer ich kriegs echt nicht gebacken...
ich schreib nochmal genau was ich vor habe...
ich leite eine klasse von TClientSocket ab, von der neuen klasse möchte ich das "OnConnect" ereignis
überschreiben. Das OnConnect Ereignis sollte also wenn es fertig ist so aussehen:
Delphi-Quellcode:
procedure TMyClass.OnConnect;
begin
self.SendText('data1');
self.SendText('data2');
self.SendText('data3');
end;
jetzt weiss ich nichtmal wo ich das ereignis hinpacken müsste, protected oder published? letzteres ist doch für den
OI gedacht oder? (was ich nichtmal bräuchte).
Dann weiss ich nicht ob da noch irgendwelche parameter beim onconnect hin müssen (Sender: TObject z.b (wozu auch immer das ist).
Hatte schon so angefangen:
Delphi-Quellcode:
type
TTSSocketClass = class(TClientSocket)
private
FOnConnect: TSocketNotifyEvent;
procedure OnConnectProc(SocketNotifyEvent: TSocketNotifyEvent);
public
constructor Create(AOwner: TComponent); override;
published
property OnConnect: TSocketNotifyEvent read FOnConnect write FOnConnect;
end;
implementation
constructor TTSSocketClass.Create(AOwner: TComponent);
begin
inherited;
inherited OnConnect := OnConnectProc;
end;
procedure TTSSocketClass.OnConnectProc(Sender: TObject);
begin
self.SendText('irgendwas eben);
end;
aber ist sicher wieder falsch oder? ich bekomme immer irgendein fehler, diesmal "liste der parameter ist unterschiedlich..."