窗体与控件的同步改变(50分)

  • 主题发起人 主题发起人 pacific66
  • 开始时间 开始时间
P

pacific66

Unregistered / Unconfirmed
GUEST, unregistred user!
当主窗体用鼠标拉动时,窗体上的控件如:pagecontrol,edit,..等所有的都能同时做同比例
的改变。如何实现???
能提示以下吗,朋友???
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Width:=Width div 3;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Resize:=true;
Edit1.Width:=NewWidth div 3;
end;
 
//oriwidth、oriheight是窗体初始化时的widht和height,是全局变量
//在from的onresize事件中添上
scaleby(form1.Width,oriwidth);
oriwidth:=form1.Width;
scaleby(form1.Height,oriheight);
oriheight:=form1.Height;
 
试了一下“来如风”的,在D6下根本能不过编译
 
谢谢各位的帮忙,我已经做出来了,我已经按功分配分了。
 
后退
顶部