
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD>

<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>

<META name=GENERATOR content="MSHTML 8.00.6001.18852">

<STYLE></STYLE>

</HEAD>

<BODY bgColor=#ffffff>

<DIV><FONT size=2 face=Arial>Hi</FONT></DIV>

<DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV>

<DIV><FONT size=2 face=Arial>I have two tdbcheckboxes.</FONT></DIV>

<DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV>

<DIV><FONT size=2 face=Arial>I want one checkbox to be disabled unless the other 

checkbox is checked.</FONT></DIV>

<DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV>

<DIV><FONT size=2 face=Arial>The following does compile but DBCheckbox6 isn't 

enebled when the sql condition is true.<BR></FONT></DIV>

<DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV>

<DIV><FONT size=2 face=Arial>Could someone suggest what it is I am doing 

wrong??</FONT></DIV>

<DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV>

<DIV><FONT size=2 face=Arial>Bob</FONT></DIV>

<DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV>

<DIV><FONT size=2 

face=Arial>begin<BR>&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

DBCheckbox6.Enabled := False;</FONT></DIV>

<DIV><FONT size=2 

face=Arial><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

begin<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

PSQLQuery2.Close;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

PSQLQuery2.SQL.Clear;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PSQLQuery2.SQL.Add 

('select (p_id.processes.pump1)');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

PSQLQuery2.SQL.Add ('from p_id.processes');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

PSQLQuery2.SQL.Add ('where p_id.processes.fluid_id = 

:Fluidid');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

PSQLQuery2.ParamByName('Fluidid').AsString := 

DBEdit2.Text;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

PSQLQuery2.Prepare;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

PSQLQuery2.Open;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PSQLQuery2.First 

;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Pump:= 

PSQLQuery2.FieldByName('pump1').AsBoolean ;</FONT></DIV>

<DIV>&nbsp;</DIV>

<DIV><FONT size=2 

face=Arial>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

Pump = True<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DBCheckbox6.Enabled := 

True;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

end;<BR>end;</FONT></DIV></BODY></HTML>