在我做的是一个输入窗体,窗体上有多个dbedit,和dbComboBox.一个"保存"button.
想要实现在没有输入数据的时候"保存"的visible:=false;当有数据输入时"保存"的visible:=true;点击后为false:当修改某个dbedit或dbcombobox的值时,"保存"的visible又为true;也就是dbnavigator里的"+"功能.
请问怎么实现呀??请帮助!!!
想要实现在没有输入数据的时候"保存"的visible:=false;当有数据输入时"保存"的visible:=true;点击后为false:当修改某个dbedit或dbcombobox的值时,"保存"的visible又为true;也就是dbnavigator里的"+"功能.
请问怎么实现呀??请帮助!!!
解决方案 »
- checklistbox越界问题 急........在线等..
- Midas+COM+基本问题
- 各位进来看看为何我用Socket向客户端发送的是乱码呢????????????????????
- 动态查询和修改语句怎么写???
- 一个字符转换问题--String->PChar和PChar->String。
- 谁有Crystal report 8.5 for Delphi6 的VCL???高分重谢!!!
- 向高手请教:关于“动态”数组!
- 怎样实现字符串递增?
- 怎样才能在程序中判断shift键和鼠标左键被一起按下?
- 高分求程序!
- 一个线程terminate后,好像只是free了,并没有把他变成nil。
- 谁做过手写笔编程的????
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,我怎么改呀!!!