Wie verwende ich Overlay Icons ?

[RWarnecke]

Ich habe jetzt eine Möglichkeit gefunden :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  abitmap:TBitMap;
  OverlayIndex: Integer;
  OverlayBildIdx: Integer;
begin
  abitmap:=TBitMap.Create;
  try
    abitmap.Width:=ImageList1.Width;
    abitmap.Height:=ImageList1.Height;

    OverlayIndex := 0;
    OverlayBildIdx := 2;
    ImageList1.Overlay(OverlayBildIdx, OverlayIndex);
    ImageList1.DrawOverlay(aBitMap.Canvas,0,0,0,0,true);

    PopupMenu1.Items.Items[0].ImageIndex:=-1;
    PopupMenu1.Items.Items[0].Bitmap:=aBitMap;
  finally
    abitmap.Free;
  end;
end;

Ich danke euch allen, die so viel Geduld mit mir hatten.