要如何讓所有的FORM都從銀幕中間出現？ |
|
答題得分者是：ENIX007
|
|
小蟲
一般會員   發表：23 回覆：35 積分：11 註冊：2004-08-26 發送簡訊給我 |
|
|
ENIX007
高階會員  發表：28 回覆：274 積分：185 註冊：2003-11-27 發送簡訊給我 |
|
|
bigdogchina
版主 發表：238 回覆：523 積分：312 註冊：2003-04-28 發送簡訊給我 |
不好意思，小弟也來插個花:
......
#include "Center.h"
......
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
TCenterForm *CenterForm=new TCenterForm(Application); TRect Rect=Application->MainForm->BoundsRect;
CenterForm->Left=((Rect.Right-Rect.Left)-CenterForm->Width)/2 Rect.Left;
CenterForm->Top=((Rect.Bottom-Rect.Top)-CenterForm->Height)/2 Rect.Top; CenterForm->ShowModal();
delete CenterForm;
}
PS:)MianForm是主表單，CenterForm是顯示的表單
------
人生在勤，不索何获？ |
|
小蟲
一般會員 發表：23 回覆：35 積分：11 註冊：2004-08-26 發送簡訊給我 |
又麻煩ENIX007大大了
謝謝！～～
感謝你！！
bigdogchina大大～～你説的方式剛剛試了一下！！
他沒辦法放到最大內？？
是我哪裡用錯了嗎？
他不會跟FORM1合在一起！！
停在FORM1的下方！！
Form4 = new TForm4(Application);
TRect Rect=Application->MainForm->BoundsRect ;
Form4->Left=((Rect.Right-Rect.Left)-Form4->Width)/2 Rect.Left;
Form4->Top=((Rect.Bottom-Rect.Top)-Form4->Height)/2 Rect.Top;
Form4->Show();
Form4->WindowState=wsMaximized;
Form3->Release();
我有用錯嗎？～謝謝版大的幫忙︿︿
PS：我文章PO錯地方抱歉嚕
|
發表時間：2004-08-31 10:31:59
IP:211.78.xxx.xxx 未訂閱
系統時間：2024-11-25 16:18:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |