读书人

请教关于一个窗体嵌入到另一个窗体上的

发布时间: 2012-06-06 16:44:11 作者: rapoo

请问关于一个窗体嵌入到另一个窗体上的问题。
我有一个主窗体,窗体上有一个Panel,现在我想再创建一个窗体,让这个窗体嵌入到这个Panel中,随着这个panel的大小变化而变化,请问各位大侠,应该怎么去做呢?


[解决办法]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
F: TForm;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
F := TForm.Create(nil);
F.ParentWindow := Self.Panel1.Handle;
F.Align := alClient;
F.Show;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
F.Free;
end;

end.
[解决办法]
新窗体嵌入主窗体Panel时,设置Align为alClient即可。

这种方法嵌入窗体、控件都可以。
[解决办法]
刚刚试了setparent函数,把自己的窗口嵌入了一个游戏当中。酷。

读书人网 >.NET

热点推荐