How to set form width is the width of the browser？

[yxzzjg]

How to set unigui form in the form to create an event in the width of the browser's width it?

 

 

 

procedure TMainForm.UniFormCreate(Sender: TObject);

begin

Self.Width:=Self.Width;

end;

 

 

 Written is wrong!  thank you!

[ldb68]

How to set unigui form in the form to create an event in the width of the browser's width it?

 

 

 

procedure TMainForm.UniFormCreate(Sender: TObject);

begin

Self.Width:=Self.Width;

end;

 

 

 Written is wrong!  thank you!

 

check -->  form.monitorscreenresize= enabled

 

procedure TMainForm.UniFormScreenResize(Sender: TObject; AWidth,  AHeight: Integer);

begin

  Self.Left:= 0;

  Self.Width:= AWidth;

end;

[yxzzjg]

 

检查 - > form.monitorscreenresize =启用

 

程序TMainForm.UniFormScreenResize（发件人：TObject的; AWidth，  A高：整数）;

开始

  Self.Left：= 0;

  Self.Width：= AWidth;

结束;

 

 

ldb68， ok，thank you very much