Zur laufzeit erstellter Komp Ereignis zuweisen klappt nicht

[Christian Seehase]

Moin Sebastian,

Delphi-Quellcode:

unit uOpenDataBase;

// ...

type
  TDummy = class(TObject)
  public
    procedure TableOpen(Sender: TObject);
  end;

var
  td : TDummy;

implementation

procedure TDummy.TableOpen(Sender: TObject);
begin
  //
end;

initialization
begin
  td := TDummy.Create;
end;

finalization
begin
  FreeAndNil(td);
end;

Dann müsste es so klappen:

ListBoxTable.OnClick := uOpenDatabase.td.TableOpen;