bcb6怎么在form2调用form1后关闭form2? 用Label同步了Edit中Text后,怎麼样才能通过按Enter,保存Text |
答題得分者是:s92405054
|
xiangyou0017
一般會員 發表:7 回覆:5 積分:2 註冊:2011-11-27 發送簡訊給我 |
|
s92405054
高階會員 發表:7 回覆:49 積分:101 註冊:2009-04-07 發送簡訊給我 |
若是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 發送簡訊給我 |
謝謝,呵呵,我自己實踐了下,貼給你看看哈~~當然要在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(); } |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |