Witam, znowu problem, tym razem z checkboxem, psuje mi wszystko.
Jak zauważyłem CheckBox w momencie przypisania do niego wartości
Checked generuje zdarzenie onClick. Można temu jakoś zapobiec,
albo chociaż sprawdzić czy zdarzenie zostało wywołane przez
kliknięcie myszką czy przez zmianę tej że wartości ?
0
0
Na pewno masz problem z warunkiem czy jest wciśnięty czy nie w momencie OnClick... i dzieją się przykre rzeczy :/
Najprościej zastosować event OnMouseUp
procedure TForm1.CheckBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if CheckBox1.Checked = True then // znaczy że właśnie wcisnełeś go
else // nie wcisnełeś...
end;
PS: mam na myśli to, żebyś przeniół polecenia z OnClick do OnMouseUp, wtedy będzie można generować wciśnięcie CheckBoxa bez jego procedur OnClick.
0
Dzięki... [hurra] [cya] kamień spadł mi z serca...