yxzzjg Posted March 28, 2014 Share Posted March 28, 2014 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! Quote Link to comment Share on other sites More sharing options...
ldb68 Posted March 28, 2014 Share Posted March 28, 2014 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; Quote Link to comment Share on other sites More sharing options...
yxzzjg Posted March 29, 2014 Author Share Posted March 29, 2014 检查 - > form.monitorscreenresize =启用 程序TMainForm.UniFormScreenResize（发件人：TObject的; AWidth， A高：整数）; 开始 Self.Left：= 0; Self.Width：= AWidth; 结束; ldb68， ok，thank you very much Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.