Создать программу

@yyyyyyy · Регистрация: 17.04.2017

Author24 — интернет-сервис помощи студентам

Создать программу, которая будет функционировать так:

* При загрузке в левом верхнем углу экрана возникает окно: цвет фона - голубой, название - "Веселое окно", размеры окна менять нельзя;

* Нажатие левой клавиши мыши в пределах окна приводит к изменению положения окна случайным образом;

@Puporev · 18.04.2017, 21:17

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
left:=0;
top:=0;
caption:='Веселое окно';
width:=400;
height:=400;
color:=clSkyBlue;
BorderStyle := bsSingle
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
left:=random(screen.Width-form1.Width);
top:=random(screen.Height-form1.Height);
end;

@yyyyyyy 0 / 0 / 0 Регистрация: 17.04.2017 Сообщений: 17
		1
	Создать программу 18.04.2017, 20:41. Показов 1102. Ответов 1 Метки нет (Все метки) Создать программу, которая будет функционировать так: * При загрузке в левом верхнем углу экрана возникает окно: цвет фона - голубой, название - "Веселое окно", размеры окна менять нельзя; * Нажатие левой клавиши мыши в пределах окна приводит к изменению положения окна случайным образом; 0

	18.04.2017, 21:17

Опции темы

Создать программу

Решение