button

button的常用属性

caption 标题

default  设为默认按钮

button1.enabled:=true 按钮恢复可用；

button1.setfocus  让button1得到焦点

 

edit1.selstart:=0 // 指定edit1被选择的第一个字符的位置

edit1.sellength:=length(edit1.text);//指定edit1被选择的文本长度

edit1.enabled:=true //使编辑框可以输入

edit1.setfocus; //让编辑框获得焦点

edit1.text:='';//清空值；

 

带小数的定义变量的时候用real，转换的时候用strtofloat  或floattostr 

 

实例：

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;

效果：

 

转载于:https://www.cnblogs.com/chuangyiyuan/p/6103759.html