[DUG] Enable CheckBox

[David O'Brien]

Why the four quotes in the false and a space in the true?

 

I would use something like:

 

DBCheckBox4.Enabled := not (DBEdit2.Text = '') ;

 

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz]
On Behalf Of Bob Pawley
Sent: Tuesday, 27 April 2010 10:39 a.m.
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] Enable CheckBox

 

Hi

 

I am attempting to enable a checkbox only when a DBEdit has a value.
(Disabled when no string in DBEdit.)

 

Following is my code which disables the CheckBox after a delete from the
DBEdit.

 

But it is not enabled when I add a string to the DBEdit.

------

procedure TForm4.DBEdit2Change(Sender: TObject);
begin

 

     if
  DBEdit2.Text = ' '

 

  then
  DBCheckBox4.Enabled := True

 

  Else if DBEdit2.Text = ''''

 

  then
   DBCheckBox4.Enabled := False ;

 

end;

 

Thanks for any help.

 

Bob

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20100427/0e2431c6/attachment.html