delphi运行后开始button不可用在edit里面输入数据时button变为可用怎么做

button不需要click事件 一运行就是灰的 要采用什么事件做

将Button的Enabled设置为False
然后在Edit的OnExit事件里写入
if Edit1.Text <> '' then
button1.enabled:=true;
就可以了!
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-01-10
IF edit不是空 then
调整BUTTON 按键为非灰色

delphi 里面的DBEdit 为什么在运行的时候不能输入数据?
DBEidt是数据感知控件,可以自动获取数据库中某个字段的值并显示,也可以将用户的修改保存回数据库,但前提条件是:与DBEidt相关的数据集控件(如:ADOTable、ADOQuery、ADODataSet、。。。)必须Open 。你无法输入的原因,很可能是没有Open所致。 也有可能是没有设置DataSource控件的DataSet属性。

delphi 里面的DBEdit 为什么在运行的时候不能输入数据?
DBEdit需要处于编辑状态才能输入数据,输入数据后,你表中的相应字段也会随着更新。

delphi 打开窗口直接运行代码
可以考虑在窗体的 OnShow 事件中,运行数据的查询。不可以修改 将 DBGrid 设置为只读。点击Button1 按钮后 可以向里输入数据 然后点Button2保存到数据库 将各字段用 edit 等控件一一对应建立,点击 Button1 时,先清空各 edit 原有数据;输入完成后,点 Button2 时,数据库执行 Append,再将数据 Pos...

delphi 扫描枪EDIT输入完后 自动执行BUTTON
测试:可以打开记事本,扫描多次,除了字符,还会换行。结论:一般扫描枪,输入时都带有换行,所以输入时候捕捉换行(也有可能是回车,我忘记了)然后触发,程序实在忘记怎么写的了 if 条码符合长度 AND 最后字符是换行(回车) then begin BUTTON.Click; 就可以了 end;...

如何在Delphi语句中设置,当某个edit输入为空时,按钮不能点击?
如果开始edit为空,先将button1的enabled置为False 然后在edit的onchange事件中写 if Edit1.text = '' then button1.enabled := false else button1.Enabled:=True;

在DELPHI的EDIT中输入的内容怎么样不被修改,我在Edit中输入了一些内容...
设置属性ReadOnly=true

delphi怎么控制edit中只能输入数字??
首先,在delphi里面控制edit只能输入数字的方法如下:if not (key in ['0'..'9',#8]) then key := #0;只能输入汉字,而不能输入数字或其他字符.在Edit的OnKeyPress事件中 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if (Ord(Key)<127) or (Ord(Edit1.Text[...

delphi程序运行时别的功能无法使用
Create()的参数用True,表明构造出的线程为挂起状态。 注意一下,在同一个线程对象里,如果两次构造,将产生两个独立的线程,不但运行是独立的,而且使用线程的局部变量也是独立的。但这里为了简化问题,还是建立了两个独立的线程对象,而且两个循环数是不同的,在并行运算时容易判断出是两个不同的程序在运行。 假定我们给...

delphi中,运行后dbedit显示正常,按钮点击查找后出现field not found情 ...
field not found 字段没找到,通常这种错误是由于数据源的数据进行 query 之后,导致了 dbedit 控件需要的字段在数据源里找不到。建议检查 点击查找 的代码段中,如果是用 query 编写 sql 语句进行查询,则检查 sql 语句中是否包含 dbedit 控件中匹配的字段。

delphi 的按钮的onclick事件中要以edit的内容是否发生改变做为条件...
Delphi全部代码如下:{ 根据Edit的内容,决定Button的动作 by 宋银海 QQ:25337012 } unit Unit3;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type TForm3 = class(TForm)Edit1: TEdit;Button1: TButton;procedure Button1Click(Sender...

相似回答