如何可以在 Form1 底下,然後所有開的其他的Form只顯示在 panel範圍之中? |
|
答題得分者是：ccchen
|
|
HANGTEN
一般會員   發表：12 回覆：15 積分：5 註冊：2002-07-20 發送簡訊給我 |
請問我如何可以在 Form1 底下有一個 Panel ,然後所有開的其他的Form
(如:FORM2) 只顯示在 panel 範圍之中?
我有試過如下的方式,但是RUN 之後程式會HOLD不能動 ? procedure TForm1.Button1Click(Sender: TObject);
begin Application.CreateForm(TForm2,Form2);
form2.Parent:=Form1.Panel1;
Form2.Align:=alClient;
Form2.ShowModal;
Form2.Free;
end;
|
|
banson1716
高階會員  發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject); begin Application.CreateForm(TForm2,Form2); form2.Parent:=Form1.Panel1; Form2.BorderStyle:=bsNone; Form2.Align:=alClient; Form2.show; // Form2.ShowModal; // Form2.Free; end;另外在 form2之onclose加上action:=cafree; |
發表時間：2003-03-31 01:46:17
IP:61.223.xxx.xxx 未訂閱
系統時間：2024-05-16 21:27:02
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |