Реферат: Разработка тестового приложения Компоненты меню Delphi

otv:integer; // номер выбранного ответа

// установка формы в исходное состояние

Продолжение приложения 1

Procedure ResetForm(frm:Tform1);

var

i:integer;

begin

form1.label2.visible:=false;

form1.Save1.Visible:=false;

form1.Gauge1.Visible:=false;

Form1.Memo1.Visible:=false;

for i:=1 to N_ANSWERS do

begin

answer[i].width:=frm.ClientWidth-answer[i].left-5;

answer[i].Visible:=false;

selector[i].Visible:=false;

end;

frm.Label5.width:=frm.ClientWidth-frm.Label5.left-5;

frm.Image1.Visible:=false;

end;

// Определение достигнутого у?