OnClick wird nicht ausgelöst

[SMO]

Zitat von bcvs:

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

Damit kann man aber noch immer nicht die Checkbox per Leertaste toggeln.

Zitat von Captnemo:

Aber trotzdem wüsste ich gerne das "warum".

Ich auch, deswegen bin ich mal mit dem Debugger durchgegangen. Die WndProc-Aufrufe sind ziemlich verschachtelt, das versuche ich erst gar nicht zu erklären. Aber grob gesagt passiert folgendes:

1. Nach Loslassen der linken Maustaste wird WM_LBUTTONUP an die Checkbox gesendet
2. Nach Durchlaufen diverser WndProcs wird daraus eine BM_SETSTATE ($F3) Nachricht, gefolgt von WM_CAPTURECHANGED und WM_COMMAND.
3. Diese letzte WM_COMMAND Nachricht wird an den Parent der Checkbox gesendet.
4. Normalerweise wandelt eine Delphi-Control diese Nachricht in CN_COMMAND um, was dann letztendlich bei TCustomCheckBox.CNCommand landet und TCustomCheckBox.Toggle und OnClick ausführt.
5. Dummerweise "verschluckt" aber der WM_COMMAND Handler von TCustomGrid die Nachricht!

Man muss also eine neue Klasse des gewünschten Grids ableiten und einen eigenen WM_COMMAND Handler schreiben, oder man ändert den Code in Vcl.Grids.pas, fügt einen simplen inherited-Aufruf hinzu. Mit Vcl.Grids.pas habe ich sowieso schon herumgespielt, um den Grids proportionale Scrollbars beizubringen... es nervt etwas, dass das noch immer nicht Standard ist.

Delphi-Quellcode:

procedure TCustomGrid.WMCommand(var Message: TWMCommand);
begin
  with Message do
  begin
    if (FInplaceEdit <> nil) and (Ctl = FInplaceEdit.Handle) then
      case NotifyCode of
        EN_CHANGE: UpdateText;
      end
    // added by SMO: support for child controls (TCheckBox etc.)
    else
      inherited;
  end;
end;

Wer diesen Fehler Embarcadero melden möchte, sollte das bitte und gerne tun!