全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:779
推到 Plurk!
推到 Facebook!

MDI的問題

尚未結案
km244916
一般會員


發表:4
回覆:1
積分:1
註冊:2004-09-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-30 10:20:38 IP:203.68.xxx.xxx 未訂閱
我目前做了一個MDI的視窗~想請問開了很多個MDIChild~如何能取的目前執行MDIChild的索引值?
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-30 10:26:08 IP:218.170.xxx.xxx 未訂閱
從delphi help挖出來的code    關鍵字應該都是一樣的    
    var      I: Integer;
begin
  with Form1 do
    for I := MDIChildCount-1 downto 0 do
      MDIChildren[I].Close;    end;    
seaturn99
版主


發表:69
回覆:427
積分:214
註冊:2003-08-25

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-30 12:06:09 IP:220.130.xxx.xxx 未訂閱
km244916 您好 :    請利用 ActiveMDIChild (MainForm 下 -> self.ActiveMDIChild ) 取得目前 作用中的 Child Form ...     因為作用中子視窗若改變, MDIChildren 陣列的 Index 值也會改變,請利用下面的 Code 做個實驗就知道了 ...    
procedure TMainForm.Button12Click(Sender: TObject);
var
  i:integer;
  str:string;
begin
 str:= '';     for i := MDIChildCount-1 downto 0 do
  if i = MDIChildCount-1 then
   str:= MDIChildren[i].Caption
  else
   str:= str  ' ,'  MDIChildren[i].Caption;      ShowMessage(str);
end;
---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ---- 發表人 - SouthWind 於 2004/11/30 12:08:05
系統時間:2024-05-16 7:31:31
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!