Du musst dir im Code eine eigene OnClick anlegen, bspw.:
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure MyToolButtonClick(Sender: TObject);
Delphi-Quellcode:
procedure TForm1.MyToolButtonClick(Sender: TObject);
var
fToolBtn: TToolButton;
begin
fToolBtn := (Sender as TToolButton);
if not Assigned(fToolBtn) then
Exit;
case fToolBtn.Tag of
0: // Aktion des ersten Buttons
1: // '' '' zweiten ''
//...
end;
end;
Diese kannst du dann immer dem OnClick deines dynmischen Buttons zuordnen. Dann könntest du jedem Button einen anderen Tag Wert zuweisen und (wie in dem Code oben angedeutet) je nach Tag die passende Aktion für den Button ausführen.
Edit: Die Zuweisung:
Delphi-Quellcode:
DeinToolButton.Tag := 1; // da den passenden Wert
DeinToolButton.OnClick := MyToolButtonClick; // OnClick zuweisen
MfG Pr0g