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;

произойдет при наступлении события

+: перемещение курсора мыши в области объекта

-: щелчок мышью на объекте

-: истечение интервала времени

-: изменение содержимого текстового окна

Дата добавления: 2014-12-16