SpeedButton ein Bitmap aus einer TImageList zuweisen

[jbg]

Zitat:

Und wieso ist 2 mal end; da wenn nur einmal begin auftaucht?

Weil es nicht nur begin end gibt, sondern auch try finally end bzw. try except end.
Der Code lässt sich aber auch einfacher darstellen:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject); 
begin 
  ImageList1.GetBitmap(0, BitBtn1.Glyph);
end;