[gelöst] Ereignis bei Runtime-Komponente erstellen

[catweasel]

Moin

Ich erstelle zur Laufzeit eine ListView Komponente. Es gelingt mir aber nicht ein OnDblClick-Ereignis hinzuzufügen.
Beim compilieren bekomme ich eine Fehlermeldung: "Wrong number of parameters". Wo liegt mein Fehler?
Ich habe versucht mich an Beispielen aus dem Internet für einfache Buttons zu orientieren und das für mein ListView anzupassen.

Gruß
Michael

So bin ich vorgegangen:

Code: Alles auswählen

[...]
  private
    { private declarations }
  public
    { public declarations }
    procedure LVDblClick(Sender: TObject);
  end; 
 
  // Eigene ListView erstellen
  TMyListView=class(TListView)
  protected
    function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
    function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
  end;  
 
[...]
 
 
var
  Form1: TForm1;
  LV   : TMyListView; 
 
 
 
procedure TForm1.LVDblClick(Sender: TObject);
begin
  ShowMessage('Doppelklick');
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  //Abgeleitete ListView Komponente zur Laufzeit erstellen
  LV := TMyListView.Create(form1);
  LV.Top       :=  72;
  LV.Left      := 592;
  LV.Width     := 250;
  LV.Height    := 136;
  LV.Visible   := true;
  LV.ViewStyle := vsReport;
  LV.ReadOnly  := true;
  LV.RowSelect := true;
  LV.OnDblClick:= LVDblClick;  <-- Error: Wrong number of parameters specified for call to "LVDblClick"
 
  LV.RowSelect:=true;
  LV.Parent   :=Form1;
[...]
end;

[Linkat]

Hallo Catweasel,

versuche mal nur die Adresse zu übergeben:

Code: Alles auswählen

LV.OnDblClick:= @LVDblClick;

Viel Erfolg.

Gruß, Linkat

[catweasel]

versuche mal nur die Adresse zu übergeben:

Code: Alles auswählen

LV.OnDblClick:= @LVDblClick;

Das war´s. Danke für die Hilfe

Gruß
Michael