простая процедурка с CheckBox

[Domanoff]

просто по кликанью активировать и деактивировать Edit3, вроде все просто -

procedure TForm4.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked  = true then
  begin
  form4.Edit3.Enabled:= true
  end
   else
   begin
    form4.Edit3.Enabled:= false;
    end;
  end;

ан не работатет((( подскажите

[Alex2009]

Вот что у меня

[W0LF]

Несмотрел придыдущий пример, вот так можно:

procedure TForm4.CheckBox1Click(Sender: TObject);
begin
  form4.Edit3.Enabled := not form4.Edit3.Enabled;
end;

При клике деактивируеться (если активна) и наоборот...