如何按下按鈕之後讓form2出現在form1指定位置? |
答題得分者是:bass15
|
loveronan
一般會員 ![]() ![]() 發表:16 回覆:16 積分:6 註冊:2004-05-08 發送簡訊給我 |
我想在form1裡,按下button後,form2出現在form1的指定位置(例如下面)後,
還能隨著移動form1,讓form2也跟著跑
我參考過RaynorPao大大在 http://delphi.ktop.com.tw/topic.php?topic_id=39406
裡面的方式,不過我想要的是按下button之後form2才出現,
我試著將
Form2=new TForm2(this);
Form2->Show();
移除後,在Button1Click加入Form2->Show()
可是卻有錯誤產生
不曉得該怎麼將大大的程式改成按下button後再出現form2
希望會的大大能夠幫個忙 謝謝
|
andychang1690
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:20 回覆:694 積分:442 註冊:2003-03-14 發送簡訊給我 |
|
loveronan
一般會員 ![]() ![]() 發表:16 回覆:16 積分:6 註冊:2004-05-08 發送簡訊給我 |
|
bass15
高階會員 ![]() ![]() ![]() ![]() 發表:24 回覆:171 積分:119 註冊:2003-10-27 發送簡訊給我 |
|
loveronan
一般會員 ![]() ![]() 發表:16 回覆:16 積分:6 註冊:2004-05-08 發送簡訊給我 |
bass15謝謝你
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { Form2=new TForm2(this); Form2->Width=Width; Form2->Height=Height; Form2->Left=Left-Width; Form2->Top=Top-Height; Form3=new TForm3(this); Form3->Width=Width; Form3->Height=Height; Form3->Left=Left; Form3->Top=Height Top; } __fastcall TForm1::~TForm1() { delete Form2; delete Form3; } MESSAGE void __fastcall TForm1::MovingMessage(TMessage &Msg) { Form2->Left=Left-Width; Form2->Top=Top-Height; Form3->Left=Left; Form3->Top=Height Top; }_ 不曉得該怎麼加入form3在這個程式中,是方法不對嗎? 煩請大大幫幫忙,謝謝 |
bass15
高階會員 ![]() ![]() ![]() ![]() 發表:24 回覆:171 積分:119 註冊:2003-10-27 發送簡訊給我 |
引言: bass15謝謝你Project->Options->Forms若Form2, Form3 位於Auto-create Forms移到 右邊Availabel Forms 在 Form2 和 Form3的OnClose事件中加上 Action = caHide; |
loveronan
一般會員 ![]() ![]() 發表:16 回覆:16 積分:6 註冊:2004-05-08 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |