Möglichkeiten von Menüs, bzw. TMenuItem

[Bummi]

Ownerdraw anschalten und gut ist ...

Delphi-Quellcode:

const
 ColorArray:Array[0..7] of TColor=(clRed,clLime,clBlue,clWhite,clMaroon,clGreen,clLime,clSilver);

procedure TForm1.DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
begin
   Acanvas.Brush.Color := TMenuItem(sender).Tag;
   Acanvas.FillRect(ARect);
end;

procedure TForm1.FormCreate(Sender: TObject);
Var
 i:Integer;
 mi:TMenuItem;
begin
   for I := 0 to 7 do
      begin
         mi := TMenuItem.Create(PopupMenu1);
         mi.Tag := ColorArray[i];
         mi.OnDrawItem := DrawItem;
         mi.OnClick := ItemClick;
         popupmenu1.Items.Add(mi);
      end;
end;

procedure TForm1.ItemClick(Sender: TObject);
begin
   Color := TMenuItem(Sender).Tag;
end;