請問如何將一個form崁在一個panel裡 |
|
尚未結案
|
|
Anakin
一般會員   發表：5 回覆：9 積分：2 註冊：2004-11-17 發送簡訊給我 |
|
|
Fishman
尊榮會員   發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
|
|
Anakin
一般會員 發表：5 回覆：9 積分：2 註冊：2004-11-17 發送簡訊給我 |
|
|
hahalin
版主  發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
|
|
Anakin
一般會員 發表：5 回覆：9 積分：2 註冊：2004-11-17 發送簡訊給我 |
還是不行?,原碼如下:
procedure Tform1.Button1Click(Sender: TObject);
var
oform: TForm;
begin
oform:= TForm2.Create(Form1);
try
oform.Parent := pnlForm;
oform.top := 0;
oform.Width := pnlForm.Width;
oform.Left := 0;
oform.Height := pnlForm.Height;
oform.BorderStyle:=bsnone;
oform.ShowModal;
finally
oform.Free;
end;
end;
|
|
Anakin
一般會員 發表：5 回覆：9 積分：2 註冊：2004-11-17 發送簡訊給我 |
|
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
欸呀！使用 oform.ShowModal;是絕對行不通的。
>使用show的話,Form2出不來.(但form1上的元件己可以作動) 按照您的代碼，Show 完後馬上 Free 。
當然就不見了。
Procedure Create_ShowForm(AOwner:TwinControl;
FormClass:TFormClass;
Var FromRef:Pointer;
CaptionTxt:String);
begin
FromRef := FormClass.Create(AOwner);
With TForm(FromRef) do
begin
Caption := CaptionTxt;
Parent := AOwner;
Align := alClient;
BringToFront;
Show;
Tobject(FromRef) := Nil;
end;
end; procedure Tform1.Button1Click(Sender: TObject);
begin
Create_ShowForm(pnlForm,TForm2,Form2,'Test');
end; //---------------------------- procedure Tform2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := CaFree;
end; 再不行，我也沒辦法了。
|
|
Anakin
一般會員 發表：5 回覆：9 積分：2 註冊：2004-11-17 發送簡訊給我 |
|
|
dky
一般會員 發表：12 回覆：30 積分：13 註冊：2004-06-24 發送簡訊給我 |
|
|
Jack0323
初階會員 發表：22 回覆：70 積分：28 註冊：2002-03-13 發送簡訊給我 |
發表時間：2004-11-17 10:18:52
IP:61.219.xxx.xxx 未訂閱
系統時間：2024-05-14 9:15:53
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |