V1: {{05}} 05_События объектов
I: {{05_01}}
Q: Укажите правильный вариант ответа
S: Выполнение процедуры
procedure TForm1.Button5Click(Sender: TObject);
begin
for x1:=1 to Image1.Width do
for y1:=1 to Image1.Height do
Image1.Canvas.Pixels[x1,y1] := clWhite;
end;
произойдет при наступлении события
+: щелчок мышью на объекте
-: изменение содержимого текстового окна
-: истечение интервала времени
-: попадание курсора мыши в область объекта
I: {{05_02}}
Q: Укажите правильный вариант ответа
S: Выполнение процедуры
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with Image1.Canvas do begin
case fig of
1 : begin MoveTo(x1,y1); LineTo(x,y); end;
2 : Rectangle(x1,y1,x,y);
3 : Ellipse(x1,y1,x,y);
end;
end;
end;
произойдет при наступлении события
+: отпускания левой кнопки мыши над областью объекта
-: изменение содержимого текстового окна
-: щелчок мышью на объекте
-: попадание курсора мыши в область объекта
I: {{05_03}}
Q: Укажите правильный вариант ответа
S: Выполнение процедуры
procedure TForm1.FormCreate(Sender: TObject);
begin
x1:=0;
y1:=0;
Image1.Canvas.Pixels[x1,y1] := clWhite;
end;
произойдет при наступлении события
+: создание формы
-: наведение мыши на объект
-: нажатие левой кнопки мыши
-: отпускание левой кнопки мыши
I: {{05_04}}
Q: Укажите правильный вариант ответа
S: Выполнение процедуры
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if lift_pol=vizov then begin
timer1.Enabled:=false; lift_sost:=0;
end;
lift.Top:=lift.Top+lift_sost;
end;
произойдет при наступлении события
+: истечение интервала времени
-: изменение содержимого текстового окна
-: щелчок мышью на объекте
-: попадание курсора мыши в область объекта
I: {{05_05}}
Q: Укажите правильный вариант ответа
S: Выполнение процедуры
procedure TForm1.Edit1Change(Sender: TObject);
begin
for x1:=1 to Image1.Width do
for y1:=1 to Image1.Height do
Image1.Canvas.Pixels[x1,y1] := clWhite;
end;
произойдет при наступлении события
+: изменение содержимого текстового окна
-: щелчок мышью на объекте
-: истечение интервала времени
-: попадание курсора мыши в область объекта
I: {{05_06}}
Q: Укажите правильный вариант ответа
S: Выполнение процедуры
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
x1:=0;
y1:=0;
Image1.Canvas.Pixels[x1,y1] := clWhite;
end;
произойдет при наступлении события
+: нажатие левой кнопки мыши
-: наведение мыши на объект
-: создание формы
-: отпускание левой кнопки мыши
I: {{05_07}}
Q: Укажите правильный вариант ответа
S: Выполнение процедуры
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
for x1:=1 to Image1.Width do
for y1:=1 to Image1.Height do
Image1.Canvas.Pixels[x1,y1] := clWhite;
end;
произойдет при наступлении события
+: закрытие формы
-: изменение содержимого текстового окна
-: щелчок мышью на объекте
-: истечение интервала времени
-: попадание курсора мыши в область объекта
I: {{05_08}}
Q: Укажите правильный вариант ответа
S: Выполнение процедуры
procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin
for y1:=1 to Image1.Height do
Image1.Canvas.Pixels[x1,1] := clWhite;
end;
произойдет при наступлении события
+: перемещение курсора мыши в области объекта
-: щелчок мышью на объекте
-: истечение интервала времени
-: изменение содержимого текстового окна