我把我的form 放在Panel中procedure Tfrmtrain.CreatePXJHfrm;
var
frm: Tfrmpxjh;
begin
try
FreeAndNil(frmpub);
frm:= Tfrmpxjh.Create(nil);
frmpub:= frm;
frm.Align:= alClient;
frm.BMList:= MainBMList;
frm.UserList:= UserList;
frm.Parent:= Pn_main; //TPanel
frm.BorderStyle:= bsNone;
frm.Show;
Finally
end;
end;
出现了一个问题
form 中的DBGrid控件就是不占满整个空间(align = alclient无效)
结构缩成很小的一块,请高手指点,我已经研究了很久了
var
frm: Tfrmpxjh;
begin
try
FreeAndNil(frmpub);
frm:= Tfrmpxjh.Create(nil);
frmpub:= frm;
frm.Align:= alClient;
frm.BMList:= MainBMList;
frm.UserList:= UserList;
frm.Parent:= Pn_main; //TPanel
frm.BorderStyle:= bsNone;
frm.Show;
Finally
end;
end;
出现了一个问题
form 中的DBGrid控件就是不占满整个空间(align = alclient无效)
结构缩成很小的一块,请高手指点,我已经研究了很久了
解决方案 »
- 一个关于数据库操作的问题?
- Delphi实现观察者(Observer)模式的问题
- Delphi中一个相当有意思的问题
- 请问如何在asp客户端读取非接触式ID卡?
- odac安装问题,大家帮忙看看,谢谢了
- 请教如何利用Timgscan和TImgEdit将扫描仪中的图片以文件的形式保存下来?(在线等待,希望有代码)
- 关于TRegistry的2个小问题
- 请问:在设计数据表时对一对多关系如何用一个表进行存储?比如一个班级课程表。谢谢!
- 如何进行除法的菜鸟问题
- 请问,我用三个DBComboBox代表图书的大分类、中分类、小分类,要怎样才能使大类改变时中类、小类也跟着改变?
- 简单的查询问题帮帮新手
- 这是否真实?
procedure TForm1.Button1Click(Sender: TObject);
var
frm: TForm2;
begin
frm := TForm2.Create(nil);
frm.Parent := Self.Panel1;
frm.Align := alClient;
frm.BorderStyle := bsNone;
frm.Show;
end;
begin
Form3 := tForm3.Create(nil);
Form3.Parent := Panel1;
Form3.Align := alClient;
Form3.DBGrid1.Align := alClient;
Form3.BorderStyle := bsNone;//如果不想要窗体的标题栏,加这一句
Form3.Show;
end;
procedure TMainFrm.showform(TClass: TComponentClass; var Reference);
begin
CloseAllWindow;
if assigned(TForm(Reference)) then
begin
TForm(Reference).Close;
TForm(Reference).free;
end;
application.CreateForm(TClass,TForm(Reference));
TForm(Reference).Dock(Panel2,Panel2.ClientRect);
TForm(Reference).Show;
end;procedure TMainFrm.SpeedButton2Click(Sender: TObject);
begin
if assigned(TForm(SKILLFrm)) then exit;
showform(TSKILLFrm,SKILLFrm);
end;
procedure TMainFrm.showform(TClass: TComponentClass; var Reference);
begin
if assigned(TForm(Reference)) then
begin
TForm(Reference).Close;
TForm(Reference).free;
end;
application.CreateForm(TClass,TForm(Reference));
//把窗体放在Panel2中
TForm(Reference).Dock(Panel2,Panel2.ClientRect);
TForm(Reference).Show;
end;procedure TMainFrm.SpeedButton2Click(Sender: TObject);
begin
if assigned(TForm(SKILLFrm)) then exit;
showform(TSKILLFrm,SKILLFrm);
end;