請問一下,因為我的程式需要Show出一個輸入方塊, 然後輸入函式執行所需要的參數,由於BCB內建的InputBox不方便輸入多個參數 所以我想應用動態的表單、按鈕、Edit製作一個輸入對話框,請問一下該怎麼寫呢?我現在只會把對話框建立出來,其他的功能就麻煩大大教導我了!!謝謝!! 發表人 -

引言: 請問一下,因為我的程式需要Show出一個輸入方塊, 然後輸入函式執行所需要的參數,由於BCB內建的InputBox不方便輸入多個參數 所以我想應用動態的表單、按鈕、Edit製作一個輸入對話框,請問一下該怎麼寫呢?我現在只會把對話框建立出來,其他的功能就麻煩大大教導我了!!謝謝!! < face="Verdana, Arial, Helvetica">

phorn 你好:
(1)假設你的主 Form 叫做 Form1 (Unit1.h, Unit1.cpp)，你自己製作用來讓使
   用者輸入資料的 Form 叫做 Form4 (Unit4.h, Unit4.cpp)
(2)假設在 Form4 上有兩個 Edit，分別為 Edit1, Edit2
(3)在 BCB 裡面按「Project/Options」出現「Project Options」Dialog，選擇
   「Forms」Tab，先確認 Form1 是「Auto-create forms」，而 Form4 是
   「Available forms」，最後按確定
(4)然後在 Unit1.cpp 裡面加入以下的程式碼，就可以達到目的
#include "Unit4.h"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Form4=new TForm4(this);
   Form4->ShowModal();
   ShowMessage(Form4->Edit1->Text); // 取得 Form4 中 Edit1 的文字
   ShowMessage(Form4->Edit2->Text); // 取得 Form4 中 Edit2 的文字
   delete Form4;
   Form4=NULL;
}
(5)你在 Unit4.cpp 裡面可以利用一個全域變數，來標示是哪一個 Button 被按
   到，如果確定鈕被按到的話，可以先檢查 Edit1, Edit2 的內容是否正確，
   再決定關閉或讓使用者重新輸入；如果取消鈕被按到的話，無條件把 Form4
   關閉，並把 Edit1, Edit2 的內容清空，這樣子 Form1 就可以知道使用者是
   在什麼條件之下，把 Form4 給關閉了，例如:
// Unit1.cpp
#include "Unit4.h"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Form4=new TForm4(this);
   Form4->ShowModal();
   if(Form4->Edit1->Text.Trim()=="" && Form4->Edit2->Text.Trim()=="")
   {
      ShowMessage("取消 或 x");
   }
   else
   {
      ShowMessage("確定\n"+Form4->Edit1->Text+"\n"+Form4->Edit2->Text);
   }
   delete Form4;
   Form4=NULL;
}    // Unit4.cpp
bool gbCanClose=true;
void __fastcall TForm4::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   if(!gbCanClose)
   {
      // 檢查 Edit1, Edit2 的資料格式正確，例如: 檢查是否為空白?
      if(Edit1->Text.Trim()!="" && Edit2->Text.Trim()!="")
      {
         CanClose=true;
      }
      else
      {
         ShowMessage("重新輸入");
         CanClose=false;
         gbCanClose=true;
      }
   }
   else
   {
      Edit1->Text="";
      Edit2->Text="";
      CanClose=true;
   }
}
void __fastcall TForm4::Button1Click(TObject *Sender)
{
   gbCanClose=false;
   Close();
}
void __fastcall TForm4::Button2Click(TObject *Sender)
{
   gbCanClose=true;
   Close();
}
(6)請再依照自己的需求，自行修改
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --    發表人 - RaynorPao 於 2004/08/03  17:13:12
        

RaynorPao你好: 謝謝您的教導...< > 因為我需要的輸入方塊不只一個 而且每個輸入方塊的輸入項目不一樣,數量也不同 所以上面的方法不太適用...< >但是我也多學了一招...< > 那我想說能不能如我標題所說用動態的方法來完成< > 那我目前程式是寫到ShowModal()的部份 而我現在不知道『按確定時將值傳回,按取消及X時跳出』要怎麼寫? 麻煩 > 發表人 -

RaynorPao您好: 程式我已經寫好了,我是用BCB新增一個Dialog,然後在上面加入edit 然後要用時再去呼叫它 例如:    int Value = Dlg_Three->ShowModal();//Dlg_Threeg 是我新增的Dialog名稱 if(Value==2)return; int S1 = StrToInt(Dlg_Three->Edit1->Text); int S2 = StrToInt(Dlg_Three->Edit2->Text);    我們可以從他傳回的值判斷使用者是按確定或取消. 不知這麼做有沒有缺點,大大如果知道的話麻煩您??我謝謝!!