ImageList und ToolBar

[Martin K]

Hi Leute,

ich verstehe grad nur Bahnhof!

Ich will einer ToolBar ein bestimmtes Bitmap aus einer ImageList hinzufügen.

Das müsste doch so gehen:

Delphi-Quellcode:

var b: TBitmap;
begin
  b := TBitmap.Create;
  ImageList1.GetBitmap(5, b);
  ToolBar1.Images.AddMasked(b, clBlack);
  b.Free;
end;

oder auch:

Delphi-Quellcode:

var ico: TIcon;
begin
  ico := TIcon.Create;
  ImageList1.GetIcon(5, ico);
  ToolBar1.Images.AddIcon(ico);
  ico.Free;
end;

Führt aber beides zu einer Exception und ich verstehe es einfach nicht

Wenn ich das ganze in ein TImage lade, funzen beide Codes ohne Probleme...


//Edit:
Wen's interressiert, das hier kommt:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project1.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 00444ED8 in Modul 'Project1.exe'. Lesen von Adresse 00000030'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------