大家好： 我想在執行時期時，抓一個 Form（正在畫面上的 Form 應該是 OnFocus） 的 Name，請問該如何作呢？ 我是有想過用 迴圈抓 Application 物件中所有 TForm component 的 Name，再一個一個判斷它的 form.active 屬性是否為 true；可是覺得這樣 做好像太慢了 請問有沒有類似 GetActiveFormName() 這種函數能直接套呢…，我是查 不到啦，請大家幫忙，謝謝。

你的想法沒錯. 就是這樣寫就可以了:    

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to Application.ComponentCount -1 do
    if Application.Components[i] is TForm then
      if TForm(Application.Components[i]).Active then
        ShowMessage(Application.Components[i].Name);
end;

Hi azurecloud您好: 請參考Screen這個全域變數 ShowMessage(Screen.ActiveForm.Name); 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

timhuang 大大好： 謝謝你的建議，程式碼很簡潔；不過很可惜沒有能直接抓到 active form 的函數（就算有可能內部也是用上述方法實現的），我實驗的結果發現，若是 在 Delphi6 的 project--> options --> forms 選項中，將所有的 form 移到 Auto Create Forms 中的話，我抓到的form name 會是像這樣的 ****_1(exp: frmChangeLan --> frmChangeLan_1 ），我在猜 Delphi 會重複 Create Form 的實體，並給予它 _1、_2 等類似的名稱，那如果全部移到 Available Forms 中的話，程式一執行什麼都看不到（至少要留一個 mainform）。 因為我是在修改 pcplayer99 大大的 多語言的元件，他的做法是控數 application 物件中的所有 Component 元件，再把它們的 Caption 屬性輸出到 ini 檔中，所以我的 form 必須全放在 Auto Create Forms 當中才行，這麼一來 OnActive 的 Form 就會多一個，我正在想辦法處理它…

Males 大大好： 我試過了，可以 Work ，這樣寫方便多了，謝謝你的指點。

讚. miles 兄果然厲害. 又學了一招.