社区
Delphi
帖子详情
mdiform窗体图片显示问题
zhangyong
2003-08-23 10:26:09
mdiform窗体上有菜单,最左放了treeview1,spliter1,image1占了客户区,程序运行后图片上有印迹,如何解决?
...全文
63
3
打赏
收藏
mdiform窗体图片显示问题
mdiform窗体上有菜单,最左放了treeview1,spliter1,image1占了客户区,程序运行后图片上有印迹,如何解决?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
wdsimon
2003-08-25
打赏
举报
回复
这需要重载子表单的constructor create()方法,覆盖loaded()和createparams()方法:
下面代码演示了一子窗体再主窗体上的一PANEL上显示:
unit Unit2;
interface
uses
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;
wdsimon
2003-08-23
打赏
举报
回复
什么样的印迹啊?
你的放图片的客户区不用放一个PANEL的吗?这样的话你向右拉动时图片不会被遮住了吗?
zhangyong
2003-08-23
打赏
举报
回复
mdiform窗体上有菜单,最左放了treeview1,spliter1,image1占了客户区,程序运行后图片上有印迹,如何解决?
VB中
MDI
背景
图片
更改完美解决
本代码很好的解决了在
MDI
窗体
中,修改背景
图片
的
问题
,而且有5种方式的
显示
,很实用
基于VB6.0 摄像头监视系统
Private Sub
MDI
Form
_Load() Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000) '设置
窗体
左边坐标 Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000) '设置
窗体
顶端坐标 Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500) '设置
窗体
宽度 Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500) '设置
窗体
高度 CreateFolder App.Path & "\TEMP" '调过函数创建临时文件夹 EnableMenu '调用过程设置各菜单的可用状态 sngTime = 0 '设置录制时长为0(不限时长) strFileBMP = App.Path & "\TEMP\TMP.BMP" '保存的
图片
文件名 strFileAVI = App.Path & "\TEMP\TMP.AVI" '保存的视频文件名 Me.sbStatusBar.Panels(1).Text = "摄像头版本:" & _ frmCamera.ezVidCap1.GetDriverVersion() '在状态栏
显示
摄像头型号 Load frmCamera '载入摄像头
窗体
frmCamera.ezVidCap1.TimeLimitEnabled = False '禁止摄像头控件的录取时间限制 frmCamera.Hide '隐藏摄像头
窗体
Load frmVideo '载入预览
窗体
frmVideo.Show '
显示
预览
窗体
mnuPre1.Checked = True '选中预览菜单 Me.tbToolBar.Buttons(1).Value = tbrPressed '设置“预览”按钮为按下状态 End Sub
在VB中如何让背景
图片
铺满整个
MDI
Form
在VB中,如何让背景
图片
铺满整个
Form
是一件不难的事,网上也很许多现成的代码,在回答一个csdn网友的
问题
时,我就写了一段这样的代码: Private Sub
Form
_Paint() Dim i As Long, j As Long, w As Long, h As Long Me.ScaleMode = vbPixels Me.Im
bcb
mdi
窗体
画背景
图片
_
MDI
窗体
的
图片
问题
1楼: 在
MDI
中如果主
窗体
加上了image然后加上工具栏,加上菜单,
显示
的时候主
窗体
image总是距离工具栏一段距离,这怎么解决。另外,子
窗体
移动到主
窗体
以外的时候主
窗体
显示
scrollbar ,怎么取消,好像excel一样。各位给帮帮忙!我用的是d62楼: 我也碰到同样的
问题
请问是怎么解决的 谢谢image距离工具条有个工具条宽度的距离3楼: 1、你的 image 是用来
显示
背景的么,如果是...
form
扩展类(fbg
MDI
form
)定制
Mdi
主
窗体
背景(附c#源码)
form
扩展类(fbg
MDI
form
)定制
Mdi
主
窗体
背景(附c#源码) 【原创作者】:丛兴滋(cncxz)[E-mail:cncxz@126.com] 【关 键 词】:
Mdi
Container win
Form
背景
图片
c# ...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章