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