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

bcb6怎么在form2调用form1后关闭form2? 用Label同步了Edit中Text后,怎麼样才能通过按Enter,保存Text

答題得分者是:s92405054
xiangyou0017
一般會員


發表:7
回覆:5
積分:2
註冊:2011-11-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-11-29 23:19:24 IP:119.39.xxx.xxx 訂閱
bcb6怎么在form2调用form1后关闭form2? 用Label同步了Edit中Text后,怎麼样才能通过按Enter,并保存Text?Form2為主窗口!謝謝了~~~
s92405054
高階會員


發表:7
回覆:49
積分:101
註冊:2009-04-07

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-11-30 09:15:38 IP:60.248.xxx.xxx 訂閱
若是ShowModal,在form1的Edit的 On Key Down事件中判斷是否按了Enter,若按下後送出form->ModalResult = mrOk;,然後在ShowModal後面加入
if(form1->ModalResult == mrOk){........看你要做啥}就可以了。(個人想法未經實驗,如有錯誤請多見諒)
===================引 用 xiangyou0017 文 章===================
bcb6怎么在form2调用form1后关闭form2? 用Label同步了Edit中Text后,怎麼样才能通过按Enter,并保存Text?Form2為主窗口!謝謝了~~~
編輯記錄
s92405054 重新編輯於 2011-11-30 18:07:23, 註解 無‧
xiangyou0017
一般會員


發表:7
回覆:5
積分:2
註冊:2011-11-27

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-11-30 23:54:23 IP:58.20.xxx.xxx 訂閱
謝謝,呵呵,我自己實踐了下,貼給你看看哈~~當然要在File里的Include Unit~~選項里將Form1和Form2關聯起來!
Form1里的代碼:void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2=new TForm2(Application);
Form2->ShowModal();
}
Form2里的代碼:void __fastcall TForm2::Edit1KeyPress(TObject *Sender, char &n)
{
AnsiString Temp=":";
if((n==VK_RETURN) && Edit1->Text!="")
{ Form1->Memo1->Lines ->Add(IntToStr(i) Temp Edit1->Text);
i ;}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit1KeyDown(TObject *Sender, WORD &k,
TShiftState Shift)
{
if (k==VK_RETURN)
Form2->Close();
}
系統時間:2024-04-25 23:25:54
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!