更改表单元素基于其他表单元素启用的属性

时间:2018-03-07 15:04:27

标签: delphi delphi-xe3

我想知道根据其他组件状态更改dfm组件的Enabled属性的正确方法。

例如,只有当 edit1 的值设置为 {' value1'时,我才会启用 edit3 , ' value2'} edit2 值为' edit2Val'

最正确的方法是什么?

或者有更好的方法来制作2个 onChange 事件,看起来像这样吗?

procedure tFrm1.edit1Change(Sender : TObject);
begin
  edit3ChangeEnabled;   
  //some specific code
end;

procedure tFrm1.edit2Change(Sender : TObject);
begin
  edit3ChangeEnabled;  
  //some other specific code 
end;

procedure tFrm1.edit3ChangeEnabled;
var 
  Enabled : Boolean;
begin
  Enabled := checkEdit1Vals and checkEdit2Vals;
  edit3.Enabled := Enabled;
end;

0 个答案:

没有答案