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

如何去作開啟另一開窗動作~

尚未結案
t0288542
中階會員


發表:216
回覆:254
積分:94
註冊:2004-10-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-26 15:39:15 IP:61.221.xxx.xxx 未訂閱
請問各位~    目前我有個需求~ 就像圖一有個藍色圈圈點選後會帶出一個視窗~ 跳出個圖二並且點選視窗內所要的單別帶回圖一內~ 作為條件值~ 我該如何去完成這樣的功能    thk^^
Miles
尊榮會員


發表:27
回覆:662
積分:622
註冊:2002-07-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-26 22:03:17 IP:220.135.xxx.xxx 未訂閱
Hi t0288542 你好: 在第二個Form的Public宣告 InMemo : TMemo 第一個Form建立第二個Form時指定過去
Form2 := TForm2.Create(Self);
Form2.InMemo := Memo1;
如此在第二個Form便可拿來使用 InMemo.Lines.Add(資料加入); 我不是高手, 高手是正在銀幕前微笑的人.
------


我不是高手, 高手是正在銀幕前微笑的人.
t0288542
中階會員


發表:216
回覆:254
積分:94
註冊:2004-10-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-27 16:29:39 IP:59.104.xxx.xxx 未訂閱
Miles您好~ 我不是很了解你的意思~ 請問是不是先建立兩個Form1 / Form2~ 於Form1建立一個元件TMemo物件(TMemo元件在那裡找不到) 在第二個Form的Public宣告 InMemo : TMemo 在第二個Form,假設現在叫Form2,在Public中放入InMemo : TMemo 另外, Form2 := TForm2.Create(Self); Form2.InMemo := Memo1; 如此在第二個Form便可拿來使用 InMemo.Lines.Add(資料加入); 是否要放置於Form2呢~ 不好意思~提出一些疑問出來~因為不知從何著手~ 謝謝~^^
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-11-27 17:20:55 IP:202.62.xxx.xxx 未訂閱
您好﹗    請描述一下您目前在Form1和Form2中所使用的元件﹒ <><>========================= 我是您的朋友﹐有您真好﹗ =========================
------
忻晟
Miles
尊榮會員


發表:27
回覆:662
積分:622
註冊:2002-07-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-11-27 22:24:10 IP:168.37.xxx.xxx 未訂閱
Hi t0288542 你好: Form2不需要放置任何TMemo元件, 直接使用InMemo來做動作, 你可以將InMemo當成就是Form1的Memo1來使用. 我不是高手, 高手是正在銀幕前微笑的人.
------


我不是高手, 高手是正在銀幕前微笑的人.
t0288542
中階會員


發表:216
回覆:254
積分:94
註冊:2004-10-06

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-11-29 11:27:28 IP:61.221.xxx.xxx 未訂閱
Hi Miles 您好~ Form2 := TForm2.Create(Self); Form2.InMemo := Memo1; ; 我該上述放置form1那個處理中~ 謝謝~
t0288542
中階會員


發表:216
回覆:254
積分:94
註冊:2004-10-06

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-11-29 11:38:33 IP:61.221.xxx.xxx 未訂閱
Hi cashxin2002 您好~ 我解釋一下我的需求~ 目前我有個處理是畫面去選擇許多條件~ 當中有個銷貨條件~需要開啟另一個畫面~ 然後由那個畫面勾選多個值帶入主畫面 Memo內 請您比照我所貼的圖片~ 因為我不知道這兩個form之間如何去取值和帶入值~ 麻煩提供我一些意見~謝謝
Miles
尊榮會員


發表:27
回覆:662
積分:622
註冊:2002-07-12

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-11-29 21:12:19 IP:220.135.xxx.xxx 未訂閱
Hi t0288542 你好: 你可以將Form2的FormStyle設成fsStayOnTop, 在Grid的OnClick or OnDBClick or....裡寫

if not Assigned(Form2) then begin
   Form2 := TForm2.Create(Self);
   Form2.InMemo := Memo1;
end;
若Form2有關閉的動作記得將Form2變成Nil Form2 := nil; 我不是高手, 高手是正在銀幕前微笑的人.
------


我不是高手, 高手是正在銀幕前微笑的人.
t0288542
中階會員


發表:216
回覆:254
積分:94
註冊:2004-10-06

發送簡訊給我
#9 引用回覆 回覆 發表時間:2004-11-30 11:06:10 IP:61.221.xxx.xxx 未訂閱
Hi Miles 你好: 首先我先解釋一下~ Form2中DBGrid是資料庫取得某個表格資料~ 經由勾選多個條件後~帶回Form1中Memo1中~ 目前我依照您所提供方式但是問題發生在 Form2.InMemo := Memo1; 麻煩你~謝謝~
Miles
尊榮會員


發表:27
回覆:662
積分:622
註冊:2002-07-12

發送簡訊給我
#10 引用回覆 回覆 發表時間:2004-11-30 19:45:56 IP:220.135.xxx.xxx 未訂閱
InMemo是否宣告在Public裡, 錯誤訊息為何 我不是高手, 高手是正在銀幕前微笑的人.
------


我不是高手, 高手是正在銀幕前微笑的人.
系統時間:2024-06-02 0:03:44
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!