Forms Delphi

  1. Home
  2. Delphi
  3. Forms
  4. Formda resize
procedure AdjustResolution(oForm:TForm);
var
iPercentage:integer;
begin
if Screen.Width > 640 then
begin
iPercentage:=Round(((Screen.Width-640)/640)*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
end;
//call it like so
AdjustResolution(Self);