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;[/code]
Dlaczego???
Z góry dziekuje!
Acha i ten kod wpisuje w:
[code]procedure TForm1.CheckBox1Click(Sender: TObject);[/code]
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.
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]
Dziala, Dzieki!!!