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

請問如何在兩個Form間傳遞資料

尚未結案
fireworm
一般會員


發表:11
回覆:24
積分:7
註冊:2004-12-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-10-26 23:02:31 IP:220.131.xxx.xxx 未訂閱
我寫了一個問卷程式,設了Form1和Form2,在Form1放了多個ComboBox 以及RadioGroup等元件供使用者選填。請問,該如何讓Form1上的選填資料 透過Form1上的button1一按便把所有資訊傳送到Form2上的Memo1加以儲存, 謝謝。
derrenbol1
中階會員


發表:5
回覆:113
積分:93
註冊:2004-12-09

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-10-27 01:43:13 IP:61.228.xxx.xxx 未訂閱
To fireworm:      你可以在Form2設計一個函數, 在當User按下Button鍵後, 你就利用這 個函數將資料傳過去即可.      
      // In Form2.h      class ..
  {
    private:
             ..
    public:
        void __fastcall Function(/* Argument you want to pass*/);
  }      // In Form2.cpp      void __fastcall TForm2::Function(...)
  {
      ..
      ..
      Memo1->Lines->Add(....);
  }      // 然後在Form1的Button1的Click事件中去呼叫
  void __fastcall TForm1::Button1OnClick(TObject * Object)
  {
      Form2->Function(....);
  }
  
  // 記得Form1要#include "form2.h", 即可
  
ys168
初階會員


發表:3
回覆:24
積分:25
註冊:2005-10-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-10-28 20:50:16 IP:59.115.xxx.xxx 未訂閱
我的做法是: 在 Form1 宣告個 TStringList來承接所要的資料.然後再別的視窗就可使用. 如; Memo1->->Lines->Add(Form1->pstr->Strings[i]); yangshuh
------
yangshuh
fireworm
一般會員


發表:11
回覆:24
積分:7
註冊:2004-12-04

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-11-12 13:31:14 IP:220.131.xxx.xxx 未訂閱
請問如何在Form1 宣告個 TStringList來承接所要的資料,謝謝。
jim1247
一般會員


發表:8
回覆:20
積分:5
註冊:2003-01-30

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-11-16 13:37:47 IP:59.120.xxx.xxx 未訂閱
// 在 Form1.h 加入    public:
  TStringList *StringList;  // 宣告你要存資料的 StringList     // 在 Form1 建構式加入    __fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  StringList = new TStringList();
  // 之後只要別的 Form 有 #include "Form1.h"
  // 即可使用這個 StringList
}
系統時間:2024-04-27 16:40:57
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!