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

如何按下按鈕之後讓form2出現在form1指定位置?

答題得分者是:bass15
loveronan
一般會員


發表:16
回覆:16
積分:6
註冊:2004-05-08

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-07-31 15:17:39 IP:220.132.xxx.xxx 未訂閱
我想在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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-07-31 21:40:42 IP:221.169.xxx.xxx 未訂閱
loveronan:試試看! 一、Project->Options->Forms若Form2位於Auto-create Forms移到 左邊Availabel Forms 二、TForm2 *F=new TForm2(this); F->Show(); 請參考 Andy Chang
------
Andy Chang
loveronan
一般會員


發表:16
回覆:16
積分:6
註冊:2004-05-08

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-07-31 23:45:17 IP:220.132.xxx.xxx 未訂閱
andychang1690:你好 你可能誤會我的意思了 我的目標不是要form1,form2同時出現 我是想form1先出現,然後按下button form2在出現於form1的某個指定位置,並隨著form1一起移動 還是要謝謝你^^
bass15
高階會員


發表:24
回覆:171
積分:119
註冊:2003-10-27

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-08-01 12:02:29 IP:61.66.xxx.xxx 未訂閱
Form2=new TForm2(this);// 這行要留著
//Form2->Show();       //這行拿掉    Button1Click加入Form2->Show();
 
loveronan
一般會員


發表:16
回覆:16
積分:6
註冊:2004-05-08

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-08-01 22:28:03 IP:220.132.xxx.xxx 未訂閱
bass15謝謝你 可以順便問一下下面這個錯誤 < src="http://ss23.mcu.edu.tw/~s1160274/error.JPG"> 代表的是什麼意思呢? 我將RaynorPao大大的程式加入form3 compiler可以過,可是關掉form1之後就跑出上述錯誤 小弟附上程式碼:
__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

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-08-01 22:35:37 IP:61.59.xxx.xxx 未訂閱
引言: bass15謝謝你 可以順便問一下下面這個錯誤 < src="http://ss23.mcu.edu.tw/~s1160274/error.JPG"> 代表的是什麼意思呢? 我將RaynorPao大大的程式加入form3 compiler可以過,可是關掉form1之後就跑出上述錯誤 小弟附上程式碼:
__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在這個程式中,是方法不對嗎? 煩請大大幫幫忙,謝謝
Project->Options->Forms若Form2, Form3 位於Auto-create Forms移到 右邊Availabel Forms 在 Form2 和 Form3的OnClose事件中加上
Action = caHide;
loveronan
一般會員


發表:16
回覆:16
積分:6
註冊:2004-05-08

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-08-02 00:14:59 IP:220.132.xxx.xxx 未訂閱
bass15非常謝謝你 問題已成功解決
系統時間:2024-05-10 3:24:09
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!