Event für Fehlercode-Übergabe

[Sir Rufo]

Mahlzeit,

der Code, der bei dem Event ausgeführt werden soll, liegt eben nicht in der Klasse , sondern da wo er passieren soll (dann klappts auch mit dem Nachbarn ... äh ... mit der Verbindung).

Also du hast dein HauptForm:

Delphi-Quellcode:

type
  TMainForm = class( TForm )
  private
    procedure OnCreate( Sender : TObject );
  public
    procedure WennDatEventKommt(Sender: TObject; AParameterXYZ: String);
  end;

implementation

procedure TMainForm.WennDatEventKommt(Sender: TObject; AParameterXYZ: String);
begin
  // Hier mach ich mal was ...
end;

procedure TMainForm.OnCreate( Sender : TObject );
begin
  with 
    TDeineKlasse.Create 
  do
    begin
      OnDeinEvent := WennDatEventKommt;
    end; 
end;

cu

Oliver