checklistbox da click

[mege]

checklistbox da (TNTchecklistbox) sadece kutucuğa tıklayınca seçiliyor(veya seçiliyse iptal oluyor).

textine tıklayınca olmuyor. propertiesde bişey göremedim. kodlamı ypamak gerekir acaba?

[rsimsek]

OnClick e aşağıdaki kodu yazarayk yapabilirsin.

Kod: Tümünü seç

procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
  CheckListBox1.Checked[CheckListBox1.ItemIndex] := not CheckListBox1.Checked[CheckListBox1.ItemIndex];
end;

[mege]

saolun hocam bende öyle yaptım. ancak bu seferde kutucuğa tıklayınca yapmıyo du, daha doğrusu ilk önce NOT sonra bidaha NOT başa dönüyodu

sonra aynı eventi OnClickCheck dede çağırınca NOT NOT NOT oldu yani NOT

[rsimsek]

Kardeşim demokraside tükenmeyen çareler bizim forumda tükenecek değil ya iki ali cengiz yaparız olur biter

Kod: Tümünü seç

procedure TForm1.CheckListBox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  caption := inttostr(x);  // kutucuğun pozisyonunu bulma/görmek için.
  if x > 13 then exit; // fare yazının üzerinde ise
  CheckListBox1.OnClick := nil;
end;

procedure TForm1.CheckListBox1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  CheckListBox1.OnClick := CheckListBox1Click;
end;

Dün olayın farkındaydım da kod uzasın istemedim