請問各位大大們： 1.如何在MainMenu的最右邊加上圖示(像IE一樣)， 那如果該圖要作成像網頁上GIF動畫要如何實現？ 2.如何讓 FormIcon 不見，而且 Max,min,close須存在， 或者將其 FormStyle 設定為 bsDialog,bsNone (2者在 MDIChild 無效) bsSizeToolWin & bsToolWin 時，有 max,min,close 呢？ 謝謝各位大大不吝賜教。

以下程式碼，可以做到使用FormStyle為 bsDialog,有 Max,min,close須存在 且可以使用MainMenu    至於動畫部分，可使用 Thread 畫在 GetDC(Handle) 上。    

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N222221: TMenuItem;
    N33333331: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    procedure CreateParams(var Params: TCreateParams); override;
  Protected
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    Style := Style or  WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_SYSMENU;
  end;
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  Windows.SetMenu(Handle,MainMenu1.Handle);
end;