手机上的Edit,如果增加一个按钮,会非常方便用户操作,XE5为我们想到了,下面看看如何为一个TEdit增加一个按钮:
1.在Form上放一个TEdit,然后双击Edit,会弹出增加按钮的窗口
2.选择增加按钮的类型,目前支持7个:
3.选择后,点Add Item,会生成一个按钮对象,和正常的Button是一样的,这里,我们增加一个Clear按钮,用来清空Edit的内容:
4.编码新增按钮的Click事件:
procedure TForm1.ClearEditButton1Click(Sender: TObject);
begin
Edit1.Text:='';
end;
5.可以为Edit增加多个按钮。
结论:这开发效率,不减当年!
1.在Form上放一个TEdit,然后双击Edit,会弹出增加按钮的窗口
![Delphi <wbr>XE5 <wbr>给Edit增加自定义按钮 Delphi <wbr>XE5 <wbr>给Edit增加自定义按钮](https://ucc.alicdn.com/vc5lcb6flvxog/developer-article46205/20241009/14177ac659254d06ba771385870db164.gif)
2.选择增加按钮的类型,目前支持7个:
![Delphi <wbr>XE5 <wbr>给Edit增加自定义按钮 Delphi <wbr>XE5 <wbr>给Edit增加自定义按钮](https://ucc.alicdn.com/vc5lcb6flvxog/developer-article46205/20241009/2ea0bcdfef304632a301a6ec2783e0bb.gif)
3.选择后,点Add Item,会生成一个按钮对象,和正常的Button是一样的,这里,我们增加一个Clear按钮,用来清空Edit的内容:
![Delphi <wbr>XE5 <wbr>给Edit增加自定义按钮 Delphi <wbr>XE5 <wbr>给Edit增加自定义按钮](https://ucc.alicdn.com/vc5lcb6flvxog/developer-article46205/20241009/230c5f4b605a4b9f9a5e23cdf33db27b.gif)
4.编码新增按钮的Click事件:
procedure TForm1.ClearEditButton1Click(Sender: TObject);
begin
end;
5.可以为Edit增加多个按钮。
![Delphi <wbr>XE5 <wbr>给Edit增加自定义按钮 Delphi <wbr>XE5 <wbr>给Edit增加自定义按钮](https://ucc.alicdn.com/vc5lcb6flvxog/developer-article46205/20241009/95a17ee0402a4a94a75e2f14a2d72a86.gif)
结论:这开发效率,不减当年!