Ereignisbehandlungsroutinen ohne Objektinspektor erstellen

[Die Muhkuh]

Hallo Andreas,

versuch es mal so:

Delphi-Quellcode:

unit Unit2Pop3;

interface

uses
  SysUtils, Classes, IdPOP3;

type
  TdmPOP3 = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure POP3Connected(Sender: TObject);      // <<
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    POP3Mail : TidPOP3;
  end;

var
  dmPOP3: TdmPOP3;

implementation

{$R *.dfm}

procedure TdmPOP3.DataModuleCreate(Sender: TObject);
begin
  POP3Mail := TidPOP3.Create(self);
  POP3Mail.APOP := false;
  POP3Mail.ASCIIFilter := false;
  POP3Mail.Port := 110;
  POP3Mail.Host := 'pop.example.com';
  POP3Mail.Username := '[e-mail]';
  POP3Mail.Password := 'geheim';
  POP3Mail.OnConnected := POP3Connected;    // <<
end;

procedure TdmPOP3.DataModuleDestroy(Sender: TObject);
begin
  POP3Mail.Free;
end;


procedure TdmPOP3.POP3Connected(Sender: TObject);    // <<
begin
  // Dein Code
end;
end.