Bonjour,

je mets ce composant dans un seul but,pour changer les propertes FONT et CHARA_SET de MAINMENU, le composant eté hérité d'un TMAINMENU,
------------------------
ma question pourqoi  ça marche pas   
------------------------
J'ai une form avec les components (TMYMainMenu, label)
(Delphi 6,7 ,Windows Xp)

label1.Font.Charset:=178;                      // ARABIC_CHARSET        
label1.caption:= 'Mon texte en arabe ';  
   ça marche
  
MAIS

MainMenu1.File.Caption:= 'Mon texte en arabe ';
ça marche pas    

Merci

---------------------
unit MYMainMenu1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms,Menus, StdCtrls, ComCtrls,Grids, ExtCtrls;
type
  TMYMainMenu = class(TMainMenu)
  private    { Private declarations }
   FMyFont: TFont;
  procedure SetFont(const Value: TFont);
  protected  { Protected declarations }
  public     { Public declarations }
   constructor Create(AOwner: TComponent);override;
   destructor Destroy; override;
   published  { Published declarations }
   property MyFont: TFont read FMyFont write SetFont;
  end;

procedure Register;

implementation
constructor TMyMainMenu.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FMyFont := TFont.Create;
end;

destructor TMyMainMenu.Destroy;
begin
FMyFont.Free;
inherited Destroy;
end;

procedure TMyMainMenu.SetFont(const Value: TFont);
begin
 FMyFont.Assign(Value);
end ;

procedure Register;
begin
 RegisterComponents('Samples', [TMYMainMenu]);
end;
End.
--------
Merci