線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1483
推到 Plurk!
推到 Facebook!

不同 FORM 的 EDIT 欄位值,要互相傳遞

答題得分者是:pedro
ANDY8C
資深會員


發表:114
回覆:582
積分:299
註冊:2006-10-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-07-28 13:07:20 IP:211.74.xxx.xxx 未訂閱

請問一下

FORM1 的 EDIT1 按 右鍵後,會呼叫 FORM2 , FORM2 知道是 FORM1.EDIT1 呼叫

當 FORM2 按[送出]鍵後,會將FORM2的 小計 欄位值,

傳回給 FORM1.EDIT1

同樣的

FORM1 的 EDIT2 按 右鍵後,會呼叫 FORM2 ,FORM2 知道是 FORM1.EDIT2 呼叫

當 FORM2 按[送出]鍵後,會將FORM2的 小計 欄位值,

傳回給 FORM1.EDIT2

不知 DELPHI 的程式要如何開發

------
---------------------------------------
偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩.
附加檔案:form2to1.jpg
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-07-28 15:15:10 IP:60.248.xxx.xxx 未訂閱

unit2

uses Unit1;

procedure TForm2.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
begin
form1.Edit1.Text:='form2 assign';
form1.Show;
end;
end;

unit1

uses Unit2;

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbRight then
begin
form2.Edit1.Text:='form1 assign';
form2.Show;
end;
end;

ANDY8C
資深會員


發表:114
回覆:582
積分:299
註冊:2006-10-29

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-07-30 01:25:28 IP:211.74.xxx.xxx 未訂閱

pedro756901 兄:

謝謝您,我再試看看!!

------
---------------------------------------
偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩.
系統時間:2024-03-29 0:18:04
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!