button

procedure TForm2.btn1Click(Sender: TObject);
begin
if edt1.Text=‘1234‘ then //核实口令 （设正确口令为1234）
 begin
   ShowMessage(‘输入口令正确！请计算！‘);
   {使各个编辑框可以输入，按钮可以接受事件}
   edt2.Enabled:=True;
   edt3.Enabled:=True;
   btn2.Enabled:=True;
   edt2.SetFocus;//让半径编辑框得到输入焦点
 end
 else
 begin
  ShowMessage(‘输入口令错误！请重新输入！‘);
  {下面3句是使edt1编辑框中的文字被选反白}
  edt1.SetFocus;//edt1取的焦点
  edt1.SelStart:=0;//指定edt1被选择的第一个字符的位置
  edt1.SelLength:=Length(edt1.Text);//指定edt1被选择的文本长度
 end;
end;

procedure TForm2.btn2Click(Sender: TObject);
var
r,S:Real;
begin
r:=StrToFloat(edt2.Text);
S:=Pi*r*r;//pi为系统定义的常量 （3.1415）
edt3.Text:=FloatToStr(S);
end;

procedure TForm2.edt2Change(Sender: TObject);
begin
edt3.Text:=‘‘;
end;