MDI问题 |
答題得分者是:eaglewolf
|
mayingjie313
一般會員 發表:7 回覆:11 積分:3 註冊:2008-09-23 發送簡訊給我 |
|
eaglewolf
資深會員 發表:4 回覆:268 積分:429 註冊:2006-07-06 發送簡訊給我 |
//Tform1 為MDIForm; Tform2為MDIChild;
procedure TForm1.Button2Click(Sender: TObject); var ActiveForm2:TForm2; begin ActiveForm2 := TForm2(ActiveMDIChild); if ActiveForm2 <> nil then ActiveForm2.Edit1.Text := TimeToStr(Now) else ShowMessage('Child Form Not Found'); end; ===================引 用 mayingjie313 文 章=================== 各位大大 我有一个主窗体A,一个子窗体B,子窗体上有一个edit控件,运行要新建4个子窗体,如何将在焦点上的子窗体上的EDIT上写TEXT 我只知道ActiveMDIChild能获得这个窗体的一些属性 ,但是无办法在上面写东西.......
------
先查HELP 再查GOOGLE 最後才發問 沒人有義務替你解答問題 在標題或文章中標明很急 並不會增加網友回答速度 Developing Tool: 1.Delphi 6 2.Visual Studio 2005 3.Visual Studio 2008 DBMS: MS-SQL
編輯記錄
eaglewolf 重新編輯於 2008-10-09 14:48:35, 註解 無‧
|
pceyes
尊榮會員 發表:70 回覆:657 積分:1140 註冊:2003-03-13 發送簡訊給我 |
|
mayingjie313
一般會員 發表:7 回覆:11 積分:3 註冊:2008-09-23 發送簡訊給我 |
谢谢你
===================引 用 eaglewolf 文 章=================== //Tform1 為MDIForm; Tform2為MDIChild; procedure TForm1.Button2Click(Sender: TObject); var ActiveForm2:TForm2; begin ActiveForm2 := TForm2(ActiveMDIChild); if ActiveForm2 <> nil then ActiveForm2.Edit1.Text := TimeToStr(Now) else ShowMessage('Child Form Not Found'); end; ===================引 用 mayingjie313 文 章=================== 各位大大 我有一个主窗体A,一个子窗体B,子窗体上有一个edit控件,运行要新建4个子窗体,如何将在焦点上的子窗体上的EDIT上写TEXT 我只知道ActiveMDIChild能获得这个窗体的一些属性 ,但是无办法在上面写东西....... |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |