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! 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; 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 Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now