或者直接在提交按钮上加一条
if edit.text = 'tedit' then
showmessage('xxxxxxx');
procedure TForm1.TEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Key := #0;
end;
或者设置它的readonly属性也可以啊
如何限定TEDIT只能输入数字或汉字或字母
在Delphi中使用编辑框时，有时需要限制输入它的字符类型，如只接收数字或只接收字母。我们可以在TEdit组件的OnKeyPress事件中对输入进行处理，以限制对编辑框的输入。限制为只接收数字的例程如下：procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not(key in['0'..'9',#...
delphi 怎么在另外一个程序的EDIT里 输入字符呢?
首先确保你的程序在运行时拥有足够的权限，比如使用管理员运行。通过FindWindow函数找到你想要控制的程序，比如通过主窗口的名称或者类名，如果你不知道，可以用Spy++这样的小工具来找。然后继续通过FindWindow在父窗口中通过WindowsClass名找到你要控制的Edit，函数将会返回一个窗口句柄。然后你通过SendMessage(...
Delphi Edit组件的奇怪问题,怎么某窗体上的Edit老是自动选择中文输入...
Formshow中加入下面代码,将所有的编辑框的默认输入法都设置为默认.\/\/所有编辑框输入法 inherited;for i:=0 to Self.ComponentCount-1 do begin if Self.Components[i] is TEdit THEN begin (Self.Components[i] as TEdit).imename:= '';(Self.Components[i] ...
DELPHI 中如何让edit1.text只能输入数字和字母
你可以通过Edit1控件的KeyPress事件来进行控制。KeyPress中有个参数Key,当键盘输入时。你可以对Key进行判断，下面是一个只接收0-9，小数点和退格、回车、ESC的例子：If not (Key in ['0'..'9','.',#27,#13,#8]) then Key:=#0 Else Key:=SendKey;end;...
请问如何通过Delphi编程,做到在一个输入框中,只能输入数字,而不能输...
edit的maxlength设置为2;在edit的onkeypress事件内 procedure Ttbdlform.Edit1KeyPress(Sender: TObject; var Key: Char);begin if key <> #9 then\/\/ #9 是空格,你可以查找下数字1\\2\\3是什么值 showmessage('请输入数字')end;
delphi中的tedit类是什么??
在 delphi 中定义的类通常都是以 T 为首字母，用于标识当前所定义的是一个“类（类型、类别）”，这属于约定俗成，并非强制规定，即并不是类的定义就必须用 T 为首字母。类似的 delphi 中，还有诸如：用英文字母 I 来作为 接口（Interface） 类型首字母标识等等。TEdit 类定义了一个 windows 窗口...
请问Delphi中Tedit控件能否识别区分 键盘输入 和 条码扫描器输入 ??
我的程序是用EDIT框内容那个的变化来触发的，结果扫描器是逐个字符输入的那种，所以每次只能处理第一个字符，有没有谁见过一次输入整个字符串的那种扫描器
delphi tab Tedit
在该控件(如edit1)的onkeypress中加入如下代码:If Key=#13 Then edit2.SetFocus;这样就可以把光标跳到下一个控件，key=#13时判断按下了回车键，
delphi的程序如何控制输入法
所先,你先定义一个公共变量 var ImeName : String;然后你可以在用户登入的时候 选择输入法 procedure TValidateFrm.FormCreate(Sender: TObject);var i: Integer;begin Combobox1.Clear;for i := 0 to Screen.Imes.Count - 1 do\/\/(呵呵,刷出当前计算机的输入法:)begin Combobox1.Items.Add(...
delphi程序运行时别的功能无法使用
可以采用两种方法:1) 在线程单元定义一个TEdit对象,例如edit4:Tedit; 在Execute过程内直接引用但在Unit1中一定要在FormCreate过程里作一个赋值:procedure TForm1.FormCreate(Sender: TObject); begin thread1.edit4:=edit1; end;这样,就把第一线程的edit4与Form上的edit1联系来。2)在第二个线程中首先声明...
