mdiform窗体上有菜单,最左放了treeview1,spliter1,image1占了客户区,程序运行后图片上有印迹,如何解决?
解决方案 »
- delphi中删除一条Access数据
- treeview增加节点后的定位问题
- 关于WEBSERVICE服务调用的问题
- 如何用adotable往Microsoft Access中更新某一条记录的某个字段的值?
- 局域网内UDP广播,
- 安装控件提示错误:it is not a design time package是怎么回事?
- 在线给分★★★★★、、★★★我在adodm文件代码中设置了连接对象的连接字符《 ConnectionString = 'FILE NAME='''+extractfilepath(ap
- 两个问题
- oracle 代码集问题,急!!!在线等待,立刻给分!!
- 一个关于socket api的问题??
- 关于内存分配的胡思乱想
- 如何在delphi 中控制excel表的一個小問題?急呀請幫忙.
你的放图片的客户区不用放一个PANEL的吗?这样的话你向右拉动时图片不会被遮住了吗?
下面代码演示了一子窗体再主窗体上的一PANEL上显示:
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls,ExtCtrls,Menus;type
TForm2 = class(TForm)
Image1: TImage;
private
FTempParent:TWinControl; //保存子窗体的父;
procedure loaded;override;
procedure CreateParams(var Params: TCreateParams); override;
{ Private declarations }
public
constructor create(AOwner:TComponent;AParent:TWinControl);reintroduce;//override;
//function GetFormMenu:TMainMenu;virtual;abstract;如果要或得窗体菜单,可覆盖该方法。
//function CanChange:Boolean;virtual;
{ Public declarations }
end;var
Form2: TForm2;implementation{$R *.dfm}
constructor TForm2.create(AOwner: TComponent; AParent: TWinControl);
begin //赋予子窗体的父,继承FORM2的构造方法;
FTempParent:=AParent;
inherited Create(Owner);
end;procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style:=params.Style or WS_CHILD; //设置窗体的style
end;procedure TForm2.loaded;
begin
inherited; //设置子窗体属性;
align:=alclient;
BorderStyle:=bsNone;
BorderIcons:=[];
Parent:=FTempParent;
Position:=poDefault;
end;end.然后在主窗提的USES中包含子窗体单元
在创建子窗体的事件中这样写:
procedure TForm1.Button1Click(Sender: TObject);
var
form2:tform;
begin
if assigned(form2) then
begin
form2:=tform2.create(self,panel1);
form2.Show;
end;
end;