Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#1

TStringGrid, Doppelklick auf fixed Row ignorieren

  Alt 25. Nov 2010, 13:30
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
Heiko
  Mit Zitat antworten Zitat