5,386
社区成员
发帖
与我相关
我的任务
分享有没有函数可以让全部edit的text为空？
我想在form退出后自动把edit的text清空，但由于edit太多，我不想在close或destory事件后写。text=‘’；有没有什么函数呢？
...全文
请发表友善的回复…
发表回复
xtao 2003-08-21
- 打赏
- 举报
改成FormClose
xxsteven 2003-08-21
- 打赏
- 举报
谢谢在onshow事件里面可以实现了，马上家粉
qiume 2003-08-21
- 打赏
- 举报
对的啦,就是遍历窗体上的所以控件
xxsteven 2003-08-21
- 打赏
- 举报
好象，没有用呀？
lxpbuaa 2003-08-21
- 打赏
- 举报
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ControlCount-1 do
if Controls[I].InheritsFrom(TEdit) then
TEdit(Controls[I]).Text := '';
end;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
var
I: Integer;
begin
for I := 0 to ControlCount-1 do
if Controls[I].InheritsFrom(TEdit) then
TEdit(Controls[I]).Text := '';
end;
————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————
