Skærm position på et Item

På dit OnMouseDown event


procedure TForm1.dxDBGridMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('X: ' +IntToStr(X ) + ' Y: '+ IntToStr(Y));
end;

nej det duer ikke sorry, kan se du skal bruge en function hvor du stikker den item

Prøv dette

Function GetPos(I1,I2: Integer;DB:TDBGrid):TGridCoord;
Begin
    Result:=DB.MouseCoord(I1,I2);
End;

Delphi hjælp siger dette:
MouseCoord returns the row and column indexes of the cell that contains a point specified in screen coordinates.

type TGridCoord = record

    X: Longint;
    Y: Longint;
  end;

function MouseCoord(X, Y: Integer): TGridCoord;

Description

Call MouseCoord to locate the column and row of the cell which contains a given screen coordinate. Usually, MouseCoord is used to locate the cell which is under the mouse.

Mvh. Simon

Tak for svaret men det er jo den omvendte funktion jeg skal bruge

function Pos(Form:TForm;row:TPoint;DB:TDBGrid;
var
I1,I2:Integer;
coord:TGridCoord;
Begin
    For I1:=0 To Form.Height Do
    For I2:=0 To Form.Widht Do
    Begin
    Coord:=DB.MouseCoord(I1,I2);
    If (Coord.X=Row.X) and (Coord.Y=Row.Y) Then
    Begin
    Result.X:=I1;
    Result.Y:=I2;
    Exit;
    End;
    End;
End;

Denne burde kunne bruges

Mvh. Simon