Checkbox in StringGrid -> Klicken klappt nicht

[Volker Z.]

Hallo,

der Vom TE eingeschlagene Weg
  CHB_OK.Parent := StringGrid1;
kann nicht funktionieren.
Annahme: Es ist eine Zelle selektiert, so dass die Checkbox im Grid angezeigt wird. Was passiert, wenn man mit der Maus auf die Checkbox klickt?
Die WM_LBUTTONDOWN Message wird in TButtonControl.WndProc eigentlich nur über TWinControl.WndProc an TControl.WndProc weitergereicht, um dann über TObject.Dispatch in TControl.WMLButtonDown zu landen. Soweit passt eigentlich noch alles. Wenn jetzt die Kinder mit den Eltern sprechen: Die von der Checkbox abgesetzte WM_COMMAND Message landet jetzt aber (bei Mama und Papa) in der TCustomGrid.WMCommand und dort wird eben nur der InplaceEditor (falls existent), nicht aber die Checkbox behandelt.
Die WM_COMMAND Message würde von der Checkbox über TCustomCheckBox.CNCommand verarbeitet werden; kommt dort nur nicht mehr an.
Wer also das Standardverhalten einer Checkbox erhalten möchte, suche sich bessere Eltern.

Kompletter Unsinn ist übrigens mein Vorschlag (also ganz schnell vergessen)
  CHB_OK.CreateParentedControl (StringGrid1.Handle);
Außer eine Instanz einer TWinControl anzulegen tut es nix. Lieber TE sollte Du diesen Vorschlag übernommen haben (wenn es funktioniert, dann nur weil die CHB_OK.Parent Zuweisung fehlt und die Checkbox auf einem Form, einem Panel o. ä. liegt), es tut mir leid zu schnell aus der Hüfte geschossen zu haben.

@Bummi:

Zitat:

Mich interessiert immer noch warum das beschriebene Verhalten auftritt

Danke! Das habe ich gebraucht. Sonst hätte ich wohl über meinen Post nicht mehr nachgedacht und mich mit (m)einer unsinnigen Lösung zufrieden gegeben.

Gruß

[Bummi]

@Volker Z.

Danke WMCommand war die Ecke die mir fehlte, jetzt könnt man das ganz doch noch runder bekommen ... ohne den ganzen ein/ausblende und Ereignisbehandlungscode drumherum ...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TStringGrid = Class(Grids.TStringGrid)
    procedure WMCommand(var Message: TWMCommand); message WM_COMMAND;
  private
    FCheckBox: TCheckBox;
    procedure SetCheckBox(const Value: TCheckBox);
  published
    property CheckBox: TCheckBox read FCheckBox Write SetCheckBox;
  End;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.CheckBox := CheckBox1;
end;

{ TStringGrid }

procedure TStringGrid.SetCheckBox(const Value: TCheckBox);
begin
  FCheckBox := Value;
  FCheckBox.Parent := Self;
end;

procedure TStringGrid.WMCommand(var Message: TWMCommand);
begin
  if Assigned(FCheckBox) then
    if Message.NotifyCode = 0 then
      FCheckBox.Checked := not FCheckBox.Checked;
  inherited;
end;

end.

[Volker Z.]

Hallo,

@Bummi: Sieht schön schlank aus!

macha' s ganz rund und spendieren wir dem TE noch die SelectCell (so als Wiedergutmachung)

Delphi-Quellcode:

type
  TStringGrid = class(Grids.TStringGrid)
    procedure WMCommand (var Message: TWMCommand); message WM_COMMAND;
  private
    FCheckBox: TCheckBox;
    procedure SetCheckBox (const Value: TCheckBox);
  protected
    function  SelectCell (ACol, ARow: Longint): Boolean; override;
  published
    property  CheckBox: TCheckBox read FCheckBox write SetCheckBox;
  end;

und

Delphi-Quellcode:

function TStringGrid.SelectCell (ACol: Integer; ARow: Integer) : Boolean;
var
  r : TRect;
  p : TPoint;
begin
  if (ACol = 5) AND (ARow >= FixedRows) then
    begin
      Perform (WM_CANCELMODE, 0, 0);
      r := CellRect(ACol, ARow);
      p := ScreenToClient (ClientToScreen (r.TopLeft));

      with FCheckBox do
        begin
          BringToFront;
          SetBounds(p.X + 17, p.Y + 5, 13, 13);
          Visible := True;
          SetFocus
        end
    end;

  Result := inherited SelectCell (ACol, ARow)
end;

Rest wie gehabt.

Gruß