TStringGrid, Doppelklick auf fixed Row ignorieren

[hoika]

Halo#,

irgendwie stehe ich auf dem Schlauch.

Der folgende Code soll beim Doppelklick auf eine Zelle das DoEdit aufrufen,
ausser beim Doppelklick auf die FixRow.

Delphi-Quellcode:

procedure TForm1.GridDataDblClick(Sender: TObject);
var
  iCol: Integer;
  iRow: Integer;
  Point: TPoint;
begin
  Point.X:= Mouse.CursorPos.X;
  Point.Y:= Mouse.CursorPos.X;
  Point:= GridData.ScreenToClient(Point);

  GridData.MouseToCell(Point.X, Point.Y, iCol, iRow);
  if iRow<1 then Exit;

  DoEdit;  // das eigentliche Editieren
end;

Klappt aber nicht ;(
iCol und iRow ergeben immer -1 ???

Was mache ich verkehrt ?


Danke


Heiko

[DeddyH]

Delphi-Quellcode:

procedure TfrmTest.StringGrid1DblClick(Sender: TObject);
var p: TPoint;
    aCol, aRow: integer;
begin
  p := StringGrid1.ScreenToClient(Mouse.CursorPos);
  StringGrid1.MouseToCell(p.X,p.Y,aCol,aRow);
  if aRow < StringGrid1.FixedRows then
    begin
      if aRow < 0 then
        ShowMessage('Keine Zelle an dieser Stelle')
      else
        ShowMessage('Fixe Zeile geklickt');
    end;
end;

Klappt bei mir so ;)

[hoika]

Hallo,

Point.X:= Mouse.CursorPos.X;
Point.Y:= Mouse.CursorPos.Y;

Und das <0 auf <1 ändern ...


Das war mein Fehler ;)


Danke


Heiko