Zitat von
schwa226:
Danke!
WErds mir noch ansehen!
Jetzt habe ich dazu noch eine Frage. Wie geht das dann bei der Toolbar mit OnMouseDown?
Wie finde ich heraus welcher Button gedrückt wurde?
Du definierst dir ein OnClick-Event und weist es jeden Button beim erstellen zu:
Delphi-Quellcode:
procedure TForm1.ToolButtonClick(Sender: TObject);
begin
if Sender is TToolButton then
ShowMessage('Button mit dem Index "' + IntToStr(TToolButton(Sender).Index) + '" gedrückt."');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
neuerButton: TToolButton;
begin
neuerButton := TToolButton.Create(ToolBar1);
with neuerButton do
begin
Caption := 'Beschriftung';
ImageIndex := 0;
Parent := ToolBar1;
OnClick := ToolButtonClick;
end;
end;
Soll deine IconListe so aussehen:
http://www.greatis.com/delphicb/bonu...listdesign.gif ?
Dann solltest du dir mal TListView anschauen.