請問兩個form之間如何去傳值。 |
|
尚未結案
|
|
t0288542
中階會員   發表：216 回覆：254 積分：94 註冊：2004-10-06 發送簡訊給我 |
|
|
shinjie
資深會員 發表：12 回覆：275 積分：287 註冊：2003-03-19 發送簡訊給我 |
|
|
h@visli
資深會員  發表：103 回覆：429 積分：431 註冊：2004-02-13 發送簡訊給我 |
|
|
xu_caishen
一般會員  發表：6 回覆：20 積分：5 註冊：2005-04-15 發送簡訊給我 |
利用以下方法：
在form1里面编写函数:
function ExecuteForm1(var S : string) : word;
var
Form1 : TForm1;
begin
Form1 := TForm1.createform(application);
result := form1.showmodual;
try
if result = mrOK then
begin
S := 'OK';
end;
finally
form1.free;
end;
end; 在form1中添加按钮button，在click事件里写代码：
procedure Button1Click(sender:TObject);
begin
ModalResult := mrOk;
end; //----------------------------------------------------------------- 在form2里面调用(首先必须uses form1单元)，例如在Button1的click事件里
procedure Button1Click(sender:TObject);
var
S:string;
begin
if form1.ExecuteForm1(S) = mrOK then
begin
showmessage(S);
end;
end; //上面是我经常使用的典型示例，你可参考一下，然后根据实际情况使用。
|
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
發表時間：2005-05-17 09:31:22
IP:61.221.xxx.xxx 未訂閱
系統時間：2024-07-04 13:48:15
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |