Delphi 在编辑框中输入文本时需要启用按钮_Delphi_Delphi 7

Delphi 在编辑框中输入文本时需要启用按钮

delphi

Delphi 在编辑框中输入文本时需要启用按钮,delphi,delphi-7,Delphi,Delphi 7,我想使用2个TEdit项目和一个按钮。如何检查所有编辑是否都有文本值。之后，我想激活一个按钮展销会的主要形式： Btn1.Enabled:=false 如果Edit1.text+Edit2.text有值，那么btn1.enabled:=true 谢谢你的帮助使用Edit1.OnChange事件，并将其设置为同时处理Edit2.OnChange。事件处理程序代码很简单： procedure TForm1.Edit1Change(Sender: TObject); begin Btn1.En

我想使用2个TEdit项目和一个按钮。如何检查所有编辑是否都有文本值。之后，我想激活一个按钮

展销会的主要形式： Btn1.Enabled:=false

如果Edit1.text+Edit2.text有值，那么btn1.enabled:=true

谢谢你的帮助

使用

Edit1.OnChange

事件，并将其设置为同时处理

Edit2.OnChange

。事件处理程序代码很简单：

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Btn1.Enabled := (Edit1.Text <> '') and (Edit2.Text <> '');
end;

程序TForm1.Edit1Change（发送方：TObject）；
开始
Btn1.Enabled:=（Edit1.Text“”）和（Edit2.Text“”）；
结束；

使用

Edit1.OnChange

事件，并将其设置为同时处理

Edit2.OnChange

。事件处理程序代码很简单：

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Btn1.Enabled := (Edit1.Text <> '') and (Edit2.Text <> '');
end;

程序TForm1.Edit1Change（发送方：TObject）；
开始
Btn1.Enabled:=（Edit1.Text“”）和（Edit2.Text“”）；
结束；

你是吗？如果不是，你应该考虑一下。< /P> 如果你还没有。接下来，添加一个

TAction

。设置动作的属性，使其类似于按钮。（即，设置标题，并将按钮的

OnClick

事件处理程序移动到操作的处理程序。）指定按钮的

action

属性以引用新操作对象

最后，处理操作的事件。在其中，根据需要启用或禁用操作。按钮（以及以后选择与同一操作关联的任何其他控件）将被禁用

程序TSteveForm.ButtonActionUpdate（发送方：TObject）；
开始
TAction（发送方）。已启用：=（Edit1.Text“”）和（Edit2.Text“”）；
结束；

这看起来非常类似于处理编辑控件的

OnChange

事件，但当场景发生变化时，其差异变得明显：

如果添加或删除编辑控件，只需更改这一过程即可确保按钮正确启用。如果正在处理

OnChange

事件，则需要更改过程并将其分配给每个新控件的

OnChange

属性

并非所有控件都有方便的

OnChange

事件，可以让您知道什么时候发生了更改。操作“

OnUpdate

事件使您不必确切地知道何时更新是合适的。它们在程序空闲和按需运行时运行

是吗？如果不是，你应该考虑一下。< /P> 如果你还没有。接下来，添加一个

TAction