Checkbox in StringGrid -> Klicken klappt nicht

[Volker Z.]

Hallo,

versuch mal in Deinem FormCreate folgendes:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  CHB_OK.Visible := FALSE;
  CHB_OK.CreateParentedControl (StringGrid1.Handle);
end;

Dann sollte die Checkbox das Häkchen auch anzeigen.

Du musst nur noch für Dein SetBounds die linke obere Ecke des Stringgrids berücksichtigen (falls nicht (0, 0)).

Gruß

[Hansa]

Das da ist mir zu viel / zu kompliziert. Das geht doch auch mit "simulierter" Checkbox. Hier wird die Checkbox optisch wie gewünscht angezeigt. Das Klicken darauf bezieht sich dann zwar real auf die Zelle, aber was solls.

Delphi-Quellcode:

procedure Tfrm.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const IsChecked : array[Boolean] of Integer =
      (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
var DrawState: Integer;
begin
  inherited;
  if ACol in CheckBoxCols then begin
    if StrToInt (sg.Cells [ACol,ARow]) in [0,1,2] then begin
      InflateRect(Rect,-1,-1);
      DrawState := ISChecked[StrToInt (sg.Cells [ACol,ARow]) = 1];
// ^ die 0/1, die aus dem DB-Original in sg steht, beeinflusst, ob die
// CheckBox gecheckt ist ! D.h. sie wird im OnDrawCell je nach Wert gezeichnet !
      sg.Canvas.FillRect(Rect);// hinter Cells lieg. 0/1/2 = nicht anz.
      DrawFrameControl(sg.Canvas.Handle,Rect,DFC_BUTTON,DrawState);
    end
  end
end;

procedure Tfrm.sgClick(Sender: TObject);
begin
  inherited;
  if sg.Col in CheckBoxCols then begin
    if sg.Cells [sg.Col,sg.Row] = '0' then
      sg.Cells [sg.Col,sg.Row] := '1'
    else if sg.Cells [sg.Col,sg.Row] = '1' then
      sg.Cells [sg.Col,sg.Row] := '0';
  end;
end;

Probiers mal aus.

[Bummi]

Eine Erklärung für das Verhalten habe ich noch nicht gefunden, vielleicht hilft Dir auch ein Workaround.

Delphi-Quellcode:

procedure TForm1.CheckBox1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#32 then
   checkbox1.Checked := not checkbox1.Checked;
end;

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

[Hansa]

Soll das was nützen ? Meine paar Zeilen machen jedenfalls so etwas wie im Anhang.

[Bummi]

@Hansa ich habe selbst jahrelang Grids mit selbst gemalten Checkboxen verwendet.
Mich hat in diesem Fall eher die Problematik mit dem "Inplace-Editor" interessiert, unabhängig davon ob ich es so verwenden würde. (Mich interessiert immer noch warum das beschriebene Verhalten auftritt)
Das Verhalten Deines Beispiels bei Tastaturbedienung ist noch nicht ausgereift