Einzelnen Beitrag anzeigen

bcvs

Registriert seit: 16. Jun 2011
668 Beiträge
 
Delphi 12 Athens
 
#2

AW: OnClick wird nicht ausgelöst

  Alt 9. Jun 2015, 19:13
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;
  Mit Zitat antworten Zitat