呵呵,
双击form1的Event页的onResize
在
begin
showmessage('aaadsfsa');
end;
双击form1的Event页的onResize
在
begin
showmessage('aaadsfsa');
end;
解决方案 »
- 找了半天也没找到那个“VCL”以及QuickReport,谁能帮帮我??????
- 为何使用QReport预览时只显示一条记录?
- 鼠标从Edit1中移出到speedbutton1上居然不触发Edit的OnExit事件?
- 怎样在delphi中用代码判断MS-SQL数据库中是否存在同名的临时表
- 有关ATHREAD的疑问。
- 如何获得某个目录下面的所有文件名称
- 怎样在MDI上放置按钮控件?最后40分了...
- 高分求救:ACCESS报错“缺少更新或刷新的键列信息”
- 怎样在vb里发传真??
- 高手请进!报表问题
- !!!江湖告急,资料快要丢失了,高手快来帮忙!!!
- 100分,请问在dbgrid构件里面怎样达到这功能,用户输入货物id,在dbgrid另外一个格子里
打开Object Inspector窗口,
会有两个页面,和一个下拉列表框,
在下拉列表框中选择Form1:TForm1;
在Events 页面中,
双击OnResize;
双击它就会自动添加事件。
在begin与end之间写。
正在摸索其使用方法。
提问是我最喜欢的学习方式。当然,能推荐几本好书和电子书最好了。至于分数,我在VB/VC版赚了不少。
可以贡献给大家。[email protected]
begin
RealAudio1.Left :=0;
RealAudio1.Top:=0;
RealAudio1.Height :=Form1.Height ;
RealAudio1.Width :=Form1.Width ;
end;end.1 无法在Form1载入时触发resize事件,每次都要手动改变一次才能生效
2 大小与Form1不一样,有水平和垂直的滚动条
请诸位指教。再加50分。
begin
pic.Left :=0;
pic.Top:=0;
pic.Height :=Form1.Height ;
pic.Width :=Form1.Width ;
end;end.
我在delphi中这样写会出错,总是在第二句上,但是单运行没有一句是错的,请高手指点。[email protected]{ pic 是图片控件 }
begin
RealAudio1.Left :=0;
RealAudio1.Top:=0;
RealAudio1.Height :=Form1.Height ;
RealAudio1.Width :=Form1.Width ;
end;end.1 无法在Form1载入时触发resize事件,每次都要手动改变一次才能生效
2 大小与Form1不一样,有水平和垂直的滚动条
请诸位指教。再加50分。1.可以在Form的OnActive事件添加代码
begin
FormResize(Self);
end;2.考虑到控件自身的大小,ReSize事件可以稍微修改
procedure TForm1.FormResize(Sender: TObject);
begin
RealAudio1.Left :=0;
RealAudio1.Top:=0;
//lheight,lwidth可以自己试出来
RealAudio1.Height :=Form1.Height - lheight ;
RealAudio1.Width :=Form1.Width - lwidth ;
end;
当然,控件自身有缺省的最小值,有时候是改不了的,所以当窗体小于控件自身有缺省的最小值时还是会出现滚动条的,或者窗体不能缩小于控件自身有缺省的最小值,具体情况你自己看好了,另外ReSize事件只是认为改变窗体大小时发生,按最大化或最小化按钮不会发生!