Delphi的编程问题,大家帮助我一下

Question

我写了一个查询图书分类的窗体，可是调试的时候删除按钮不能用，是灰色的，请大家
帮我看一下代码是否有问题，谢谢！

procedure TFrmDefBZ.fcBtnDelClick(Sender: TObject);
sSql:String;
begin
inherited;
sSql:=' SELECT 1 FROM TSZL WHERE TSZL01=' + QuotedStr(dxdbdtTSZL01.Text) + ' OR TSZL01 = ' + QuotedStr(dxdbdtTSZL01.Text);
cdsTmp.XMLData:=DM0100.DefXSIntf.select(sSql,'','');
if not cdsTmp.IsEmpty then
begin
MymessageWarn('对不起,该书已设定了价格,不允许删除');
Exit;
end;
try
if MyMessageAsk('是否删除该条记录？') then
begin
DM0100.DefXSIntf.delete(CreateXMLData(CdsTS),'deleteTSZL');
CdsTS.Delete;
end;
iState := 0;
SetButton;
except
on E :Exception do
MyMessageError(LocateLang('删除操作失败')+#13+E.Message);
end;
end;

Answer 1

程序没问题，是 你使用的按钮 设置的属性有问题吧， Enabled属性，看一下。
可能写在窗体的OnShow里(如果是应用程序)。反正找个地方看下那个