社区
Delphi
帖子详情
如何清除一个窗体上所有的Edit.Text的内容
Linux2001
2002-01-15 03:12:34
...全文
164
12
打赏
收藏
如何清除一个窗体上所有的Edit.Text的内容
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
12 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
yxjjx
2002-01-17
打赏
举报
回复
老兄这样对不对?
yxjjx
2002-01-17
打赏
举报
回复
tedit(groupbox.controls[i]).text:=''
不好意思这里少了一个括号
yxjjx
2002-01-17
打赏
举报
回复
var i:integer
begin
for i:=0 to groupbox.controlcount-1 do
if groupbox.controls[i] is tedit then
tedit(groupbox.controls[i].text:='';
end;
这样试试吧
hellion
2002-01-17
打赏
举报
回复
看看第一个回复,需要递归
Linux2001
2002-01-17
打赏
举报
回复
我的EDit控件是在GroupBox控件中的,我用了以上的方法,没有清空任何一个Edit啊
alec_ma
2002-01-15
打赏
举报
回复
对了
武稀松
2002-01-15
打赏
举报
回复
for i:=0 to (Self.ControlCount-1) do
begin
if Self.Controls[i] is TEdit then
(Self.Controls[i] as TEdit).Text:='';
或
TEdit(Self.Controls[i]).Text:='';
end;
genedna
2002-01-15
打赏
举报
回复
var
I : Integer;
begin
for I := 0 to Form1.ComponentCount-1 do
if (Component[I] is TEdit) then
(Component[I] as TEdit).Text := '';
end;
stiwin
2002-01-15
打赏
举报
回复
find as tedit
fshrq
2002-01-15
打赏
举报
回复
for i:=1 to n do
form1.findcomponent('edit'+inttostr(i)) as tedit).text:='';
iBear
2002-01-15
打赏
举报
回复
用窗体的Components属性遍历,如果是edit就clear
hellion
2002-01-15
打赏
举报
回复
利用Components属性,若Form中有其它容器,需要递归
delphi xe3 子
窗体
给父
窗体
的label 控件设置值
delphi xe3 子
窗体
给父
窗体
的label 控件设置值
edit
输入的使用方法
delphi空间使用的方法
delphi
窗体
与组件的使用的代码实例
delphi
窗体
与组件的使用的代码实例,写的简单不复杂,适合初学的朋友使用
delphi_悬浮窗口
function SetLayeredWindowAttributes(hwnd: HWND; crKey: Longint; bAlpha: byte; dwFlags: longint): longint; stdcall; external user32; //函数声明 implementation {$R *.dfm} procedure TForm1.btnCancelClick(Sender: TObject); begin Form1.Close; Application.Terminate; end; procedure TForm1.btnOkClick(Sender: TObject); begin if
Edit
1.
Text
= '' then begin ShowMessage('透明度不能为空!');
Edit
1.SetFocus;
edit
1.SelectAll; Exit; end; //设置透明度 SetTMD(StrToInt(
Edit
1.
Text
)); end;
简单登录小
窗体
(delph)
我delph是
一个
初学者刚刚学会做了
一个
简单的小东西,呵呵和大家分享~
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章