Blokowanie - wyłanczanie

0

Blokowanie - wyłanczanie -- jak wylaczyc np edita jak nie jest zaznaczony Checkbox??

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1 = true then
edit1.Enabled := false;
else
edit1.Enabled := true;
end;

cos nie dziala -- pomocy

0

Tak:
if CheckBox.Checked then Edit.Enabled := True;
if not CheckBox.Checked then Edit.Enabled := False;
--Pozdrawiam {hello}
Tomasz K.

0

Albo jeszcze szybciej

Edit1.Enabled:=Checkbox1.Checked; :-) --Pomoc i analiza źródeł wszystko czego potrzebujesz ( no i może odrobinę logicznego myślenia)

0

dzieki

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0