Hello, this is not working, I am using a version 1.10.2.1471
procedure TfrmCliente.UniFormScreenResize(Sender: TObject; AWidth,
AHeight: Integer);
begin
UniLabel1.Caption:='Screen Size is = '+Format('%d x %d', [aWidth, aHeight]);
Left:=(AWidth-Width) div 2;
Top:=(AHeight-Height) div 2;
end;