Lazarus
Виконати проект. Проаналізувати результат.
procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked
Then Form1.Caption:='Заголовок изменен'
else if RadioButton2.Checked
Then Form1.Color:=clRed
else begin
Form1.Width:=600; Form1.Height:=400;
end;end;

аннасерб    3   07.04.2020 20:58    0