就好像delphi IDE 一樣, 是一個SDI, 但Delphi menu 中的"window" 可以設定和找到各個form, 請問大家知到如何實作嗎? 謝謝!

Form有一個property叫WindowMenu 只要將此property指向任一個你mainMenu中之menuitem, 所有開啟中之form均會顯示在此menuitem之下

原來如此, 謝謝 ccchen 兄了, 但我看過delphi 的help, WindowMenu 只在MDI application 中生效, 請問SDI 也可以用嗎?

WindowMenu 只在MDI application 中生效

那麼請問, 如果我想在SDI application中實作可以像Delphi那樣選擇form , 有什麼方法? 謝謝!

為何一定要用SDI, MDI不是很好嗎? 真要用SDI也可以.但麻煩多了. 主要關鍵在Screen(此為Delphi提供之Global變數),有一array-->"forms"可以得到所有開啟中之form    假設MainMenu1在Form1上,有一menuitem, name為history 1. 將mainmenu之AutoHotkeys設為maManual    2. 在FormActive //這只是方便的選擇, 你可選對你更合適之時機

procedure Tform1.FormActivate(Sender: TObject);
var
  NewItem: TMenuItem;
  I : integer;
begin
  with history do begin
    clear;  //先清除history以下之所有item
    for  I := 0 to Screen.FormCount-1 do begin  //對每一開啟中之form
      if Screen.Forms[I]<> self then begin  //check 不是mainform
        NewItem := TMenuItem.Create(Self);  //create menuitem
        NewItem.Caption := Screen.Forms[I].Name;  //用該form之name做為menuitem之caption
        NewItem.OnClick:=FOrmMenuClick; //click時必須給他一準備好之procedure
        Add(NewItem); //將此menuitem加入history中
      end;
    end;
  end;
end;

3. 另寫一procedure 以便click form之name時可show該form

type
  Tform1 = class(TForm)
    MainMenu1: TMainMenu;
    ...
    procedure FormMenuClick(Sender: TObject);//自行加入此行宣告
    ...
procedure Torm1.FormMenuClick(Sender: TObject);
var formname:string;
  i:integer;
begin
  if Sender is TMenuItem then begin  //確定是user click了menuitem
    formname:=TMenuItem(Sender).Caption;  //由menuitem取得formname
    for  I := 0 to Screen.FormCount-1 do
      if comparetext(Screen.Forms[I].Name,formname)=0 then //找到此form
        Screen.Forms[I].show;  //不一定是直接show, 須看你自己的需要
  end;
end;

萬二分的謝謝 ccchen 兄! 其實因為已有的App 是以SDI 來開發的, 所以沒有辦法, 另外, 因為原來的選Form 的方法太笨, 所以想找一個好一點的, CCChen 兄的方法很好, 再一次謝謝.