社区
Delphi
帖子详情
如何清除一个窗体上所有的Edit.Text的内容
Linux2001
2002-01-15 03:12:34
...全文
151
12
打赏
收藏
如何清除一个窗体上所有的Edit.Text的内容
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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_悬浮窗口
function SetLayeredWindowAttributes... if
Edit
1.
Text
= '' then begin ShowMessage('透明度不能为空!');
Edit
1.SetFocus;
edit
1.SelectAll; Exit; end; //设置透明度 SetTMD(StrToInt(
Edit
1.
Text
)); end;
C#写的QQ自动发消息.rar
////找到
窗体
顺序上的第
一个
Rich
Edit
20A控件,其实就是消息显示框 IntPtr hwndRich
Edit
= NativeMethods.FindWindowEx(hWnd, IntPtr.Zero, "Rich
Edit
20A", null); ////利用spy++,可以看到消息输入框的父
窗体
是...
Python Tkinter
窗体
讲解
Python作为自立门户的语言,除了学习它的基础编程之外,它还提供了
窗体
的学习,这样相对来说,它就完整了,如果大家学习过C#
窗体
实现或者Java,MFC等等吧,再学习它就会简单的多。当然大家也不用担心,即使没学过,...
matlab课程设计
利用MATLAB的图形用户界面(GUI)设计含有坐标的
窗体
和编辑框,其中
窗体
含有
text
控件、
edit
控件、push控件,设计回调函数,实现当控件被触发时执行函数命令。当在编辑框输入函数时,
窗体
将出现光反射图像,时间的...
如何把
一个
程序中
Edit
中的文本赋给另
一个
程序的
Edit
? - 回复 "Disk_" 的问题
Button1.Caption := '把
Edit
1 中的
内容
发送到
Edit
2 中句柄指示的文本控件中...'; Button1.WordWrap := True; {如果是 Delphi 2009 之前的版本, Button 可能不支持换行} end; end. 这是...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章