OnClick wird nicht ausgelöst

[bcvs]

Bei mir (D2007) wird da ja noch nicht mal die Checkbox gecheckt, wenn sie angeklickt wird. Also erst recht kein OnClick. Irgendwie kommen die CheckBoxen damit nicht zurecht, dass das Stringgrid das Parent ist.

Meine Lösung. In OnMouseUp Checked setzen, dadurch wird dann auch OnClick ausgelöst.

Delphi-Quellcode:

procedure TForm1.CheckBoxMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  (Sender as TInlineCheckBox).Checked:=not(Sender as TInlineCheckBox).Checked;
end;

InlineCheckBox.OnMouseUp:=CheckBoxMouseUp;