我在代码里这样写:
procedure TfrmChangePWS.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
groupbox1.Left:=frmchangepws.ClientWidth div 2-groupbox1.Width div 2;
end;
可是运行总出错,是怎么回事?
procedure TfrmChangePWS.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
groupbox1.Left:=frmchangepws.ClientWidth div 2-groupbox1.Width div 2;
end;
可是运行总出错,是怎么回事?
改成
groupbox1.Left:=(NewWidth div 2)-(groupbox1.Width div 2)试试