Verbindung übergeben

[Bernhard Geyer]

Ich halte zwar nicht viel davon die dpr-Unit entsprechend zu erweitern, aber was solls

Delphi-Quellcode:

program MeineAnwendung;

uses ....
var
  TCPClient: IdTCPClient;
begin
  Application.Initialize;

  TCPClient := IdTCPClient.Create(nil);

  with Tfrm_login.create(nil) do
  begin
    Client := TCPIPClient;
    if showModal=mrOK then
    begin
      Free;
      Application.CreateForm(tfrm_main...);
      Application.Run;             
    end else
    begin
      Free;
      Application.Terminate;
    end;
  end;

  Application.CreateForm(TMainForm, MainForm);
  MainForm.Client := TCPClient;
  Application.Run;

  TCPClient.Free;
end.