if (Form1.Height > 500) or (Form1.Width > 600) then begin
ShowMessage('Превышено!');
Form1.Height := 500;
Form1.Width := 600;
Exit;
end;
Объяснение:
if (Form1.Height > 500) or (Form1.Width > 600) then begin
ShowMessage('Превышено!');
Form1.Height := 500;
Form1.Width := 600;
Exit;
end;
Объяснение: