Lazarus
Виправити помилки.
procedure TForm1.Button1Click(Sender: TObject);
begin
if Combobox1.Text='Заголовок';
Then Form1.Caption:='Заголовок изменен'
else if Combobox2.Text='Цвет'
Then Form1.Color:=clRed
else Combobox1.Text='Размер'
Then begin
Form1.Width:=600; Form1.Height:=400;
end;
end;

сидоровнекит    2   07.04.2020 20:59    0