Question

в среде delphi создайте программу, которая выводит оповещение с надписью при увеличениии размерности окна формы 600 по ширине и 500 по высоте?

Answer 1

Ответ:

if (Form1.Height > 500) or (Form1.Width > 600) then begin

 ShowMessage('Превышено!');

 Form1.Height := 500;

 Form1.Width := 600;

 Exit;

end;

Объяснение: