在我做的是一个输入窗体,窗体上有多个dbedit,和dbComboBox.一个"保存"button.
想要实现在没有输入数据的时候"保存"的visible:=false;当有数据输入时"保存"的visible:=true;点击后为false:当修改某个dbedit或dbcombobox的值时,"保存"的visible又为true;也就是dbnavigator里的"+"功能.
请问怎么实现呀??请帮助!!!
想要实现在没有输入数据的时候"保存"的visible:=false;当有数据输入时"保存"的visible:=true;点击后为false:当修改某个dbedit或dbcombobox的值时,"保存"的visible又为true;也就是dbnavigator里的"+"功能.
请问怎么实现呀??请帮助!!!
begin
...
button.visible:=false;
...
end;procedure TForm1.Edit1Change(Sender: TObject);
begin
...
button.visible:=ture;
...
end;procedure TForm1.dbComboBoxChange(Sender: TObject);
begin
...
button.visible:=ture;
...
end;
if adoquery1.state in [dsEdit,dsInsert] then
btnSave.visible:=true
else
btnSave.visible:=false;
当然你也可以使用函数或者过程来调用
其它:dsBrowse,dsFilter...
我用的是 adoquery
dsEdit,dsInsert即在数据集的编辑和INSERT状态时,btnsave为enable=true
也就实现了你想要的功能
这时就设置btSave.visible := False;
if edit1.text:='' then
...
else if edit2.text='' then
......visible:=true;
btnSave.visible:=true
else
btnSave.visible:=false;
请问这句写在哪里呀!!!
procedure TForm1.FormShow(Sender: TObject);
procedure TForm1.FormCreate(Sender: TObject);
我写在如上里面都不行呀!都执行btnSave.visible:=false;
而不执行btnSave.visible:=true,我怎么改呀!!!