首页 > 代码库 > button
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);beginif 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);varr,S:Real;beginr:=StrToFloat(edt2.Text);S:=Pi*r*r;//pi为系统定义的常量 （3.1415）edt3.Text:=FloatToStr(S);end;procedure TForm2.edt2Change(Sender: TObject);beginedt3.Text:=‘‘;end;
效果：
button
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。