personalizar menu

[marcoszorrilla]

Hay que poner la propiedad del OwnerDraw del MainMenu a True.
Y escribir este código en el evento OnDrawItem de la opción del menú que queremos aparezca con distintas carácterísticas.

Código Delphi [-]
 procedure TForm1.TuMenuDrawItem(Sender: TObject; ACanvas: TCanvas;  ARect: TRect; Selected: Boolean);
 begin
   with ACanvas do
   begin
     Font.Name:='Arial'; 
    Font.Color:=clGreen;
     DrawText(Handle,PChar((Sender as TMenuItem).Caption),-1,ARect,DT_VCENTER); 
  end;
 end;

Un Saludo.