Array aus Buttons OnClick zuweisen

[64Jabor]

HiHo DP,

ich habe dass Problem, dass ich zur Laufzeit SpeedButtons erstellen muss.
Das habe ich soweit auch gelöst...
Diese Prozedur erstellt einzeln jeden XBtns per Knopfdruck, immer an der Position des neusten Items der LiBoxDownloads

Delphi-Quellcode:

procedure ...(Sender: TObject);
var XNr: integer;
begin
if (LiBoxNewFiles.ItemIndex >= 0) then
 begin //BtnX: TSpeedButton (schon im OI erstellt); XBtns: array [0..99] of TSpeedButton
  XNr := LiBoxDownloads.Items.Count-1; 
  XBtns[XNr].OnClick := BtnX.OnClick; //MARKIERT MARKIERT MARKIERT MARKIERT MARKIERT ;) 
  LiBoxDownloads.Items.Add(LiBoxNewFiles.Items.Strings[LiBoxNewFiles.ItemIndex]);
  XBtns[XNr] := TSpeedButton.Create(owner);
  XBtns[XNr].Left := LiBoxDownloads.Left+LiBoxDownloads.Width+2;
  LiBoxDownloads.Selected[LiBoxDownloads.Items.Count-1] := TRUE;
  XBtns[XNr].top := LiBoxDownloads.ItemIndex * LiBoxDownloads.ItemHeight + LiBoxDownloads.top;
  XBtns[XNr].Height := LiBoxDownloads.ItemHeight;
  LiBoxDownloads.ClearSelection;
  XBtns[XNr].Caption := 'X';
  XBtns[XNr].Parent := self;
 end;
end;

SO nun soll hier in der markierten Zeile, das OnClick des XBtns auf den BtnX umgeschrieben werden, sodass JEDER Klick auf EINEN der XBtns den BtnX.Click bewirkt.
Das geht so leider aber nicht, weiß jemand WIE es geht?

Vielen Dank schonmal für eure Antworten,

mfg DaSebi

[DeddyH]

Versuch malXBtns[XNr].OnClick := BtnXClick;

[64Jabor]

Danke für die Antwort, aber das funktioniert leider auch nicht ...
Gibt irgendwie nur eine Zugriffsverletzung

[mkinzler]

Zitat von 64Jabor:

Danke für die Antwort, aber das funktioniert leider auch nicht ...

Warum nicht? Hast du den Methodennamen auch angepasst?

[taaktaak]

Muss aber! Zeige mal die Methode ...

[64Jabor]

SRY!

Wenn man den Button erst NACH dieser Zuweisung erstellt muss man sich echt nicht wundern
Ist ja bereits oben in der Prozedur falsch von mir gepostet xDD

Also es klappt wie ihr gesagt habt, THX !!!

greetZ DaSebi