Zellen nur innerhalb einer Zeile markieren (Stringgrid)

[White Rabbit]

Hallo,

ist es möglich in einer Stringgrid nur Zellen innerhalb(!) einer Zeile markierbar zu machen,
d.h. nur die Zellen links bzw. rechts der zuerst ausgewählten Zelle?
Mit Hilfe der Standard-Properties hab ich keine Lösung gefunden, muss ich da evtl. eine
Event-Methode (OnSelectCell?) überschreiben?
Vielleicht hat das hier schon jemand gemacht.

lieben Dank

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, White Rabbit.

OnSelectCell() scheint mir weniger geeignet. Schau dir mal diesen Code an:

Delphi-Quellcode:

procedure TDemoForm.StringGridClick(Sender: TObject);
var
  p: TPoint;
  gr: TGridRect;
  iCol, iRow: integer;
begin
  with StringGrid do
  begin
    p := ScreenToClient(Mouse.CursorPos);
    MouseToCell(p.X, p.Y, iCol, iRow);
    if (iCol < FixedCols) or (iRow < FixedRows) then
      Exit;
    if iRow <> Row then
    begin
      gr.Left := iCol;
      gr.Right := iCol;
      gr.Top := iRow;
      gr.Bottom := iRow;
      Selection := gr;
    end;
  end;
end;

Grüße vom marabu

[White Rabbit]

hallo marabu,

vielen Dank für die schnelle Antwort.
Reinkopiert, kurz angepasst und es funktioniert. :

greetz WR