Checkbox in StringGrid -> Klicken klappt nicht

[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ß