Hab ne Frage...
Wie deklariere ich IdTCPClientWork() in einem Thread???
Hab so:
Delphi-Quellcode:
procedure IdTCPClientWork(Sender: TObject; AWorkMode: TWorkMode;
.......
procedure Ttcp_client_Thread.IdTCPClientWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
main.ProgressBar_set_position(AWorkCount);
end;