[Delphi] CheckBox

0

Mam taki problem:
Jak wpisuje taki kod (w Delphi6) to program wariuje i bez konca zaznacza i odznacza CheckBox:

[code]if CheckBox1.State=cbGrayed then
CheckBox1.State:=cbChecked
else
CheckBox1.State:=cbGrayed;
end;

Dlaczego???

Z góry dziekuje!

0

Acha i ten kod wpisuje w:

[code]procedure TForm1.CheckBox1Click(Sender: TObject);

0

Może dlatego, że CheckBox przy zmianie State wywołuje Click? Sprawdź, czy w CheckBox jest opcja zmieniająca go z 2-stanowego na 3-stanowy i może wtedy cała procedura nie będzie potrzebna.

0

zrob zmienna globalna typu boolean a procedure zrob tak:

if Wykonaj then
begin
if CheckBox1.State=cbGrayed then
CheckBox1.State:=cbChecked else
CheckBox1.State:=cbGrayed;
Wykonaj :=false;
end
else
begin
Wykonaj:=True;
end;

Tym sposobem procedura wykona sie dwa razy ale za drugim nie zmieni stanu checkboxa i tym samym nie wywola sie ponownie

Powinno zadziałać [cygaro]

0

Dziala, Dzieki!!!

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