Ich weiss einfach nicht wie ich die procedure fuer die Events an die dynamisch erstellten komponenten uebergebe.
Beispiel:
Ich erstelle ine
FTP client
Delphi-Quellcode:
function Build_Single_FTP_Client:Integer;
edcftp := TIdFTP.Create(
nil);
// weil durch die TObjectliste verwaltet werden soll.
if assigned(edcftp)
then begin
edcftp.
Name := '
SimpleFtpClient_'+inttostr(ExistingClients+1);
// es wird ab 1 hoch gezaehlt fuer die FTP client Namen
SCFTP_Idx := SCftp.cftpClientList.Add(edcftp);
// rueckgabewert
edcftp.TransferType := ftBinary;
/// binaere uebertragung
edcftp.OnConnect := WithConnectClient;
// diese ueberage funktioniert nicht wenn es nicht in einem Formular geschieht
end;
Result := SCFTP_Idx;
end;
Und ich erstelle eine Event Routine:
Delphi-Quellcode:
procedure WithConnectClient(Sender: TObject);
begin
// ..... irgend ein Code
end;
Ich denke das es nur an der Korrekten Zuweisung der Eventmethode liegt.
Also was verstehe ich falsch?
Gruss und Danke