Mehrere Icons nebeneinander darstellen

[Andreas L.]

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.