как узнать позицию мышки

[SERG1980]

С помощью такой вот записи можно узнать координаты курсора мышки

getcursorpos(pt);
      edit1.Text:=inttostr(pt.X);
      edit2.Text:=inttostr(pt.Y);

Но если я нахожусь в 3D приложении то это уже не работает. Как можно узнать координаты мыши. Приложение прикрепил, в нём видно, что при движении мыши (с нажатием на левую КМ) координаты не меняются

[raxp]

...в OpenGL это делается по-другому:

VAR vp: array [0..3] of GLint;

procedure Tpgl.WMMouseMove(var msg: TWMMouseMove);
var i,z: integer;
    a,b,c: extended;
    //
    mvmatrix,projmatrix: array[0..15] of gldouble;
    zval: glfloat;
begin
 if not Focused then SetFocus; //fix-

 //поиск ближайшей точки для подсветки -
 glGetIntegerv(GL_VIEWPORT, @vp);
 glgetdoublev(GL_MODELVIEW_MATRIX, @mvmatrix);
 glgetdoublev(GL_PROJECTION_MATRIX, @projmatrix);
 glreadpixels(msg.xPos, vp[3]- msg.yPos -1, 1, 1, GL_DEPTH_COMPONENT, GL_FLOAT, @zval);
 gluunproject(msg.xPos, vp[3]- msg.yPos -1, zval, @mvmatrix, @projmatrix, @vp, wx,wy,wz);

//отображение в формуляре позиции мышки-
...
{ далее используем пересчитанные координаты WX, WY, WZ }

status.Caption:= format(' %.1fкм  %.0f° %.0f''',[c*dalnost/1000,ug,59.9*(ug-trunc(ug))]);

p.s.: ваше приложение не запустилось:

0 (I) Log subsystem started in elapsed time mode.
321 (i) Temporary rendering context created
321 (I) Getting OpenGL entry points and extension
321 (I)
321 (i) OpenGL rendering context information:
321 (i) Renderer : GDI Generic
321 (i) Vendor : Microsoft Corporation
321 (i) Version : 1.1.0
331 (i) Temporary rendering context destroyed

[SERG1980]

Сообщение от raxp

p.s.: ваше приложение не запустилось:

Да забыл картинки и модель вложить

[SERG1980]

Пытаюсь ещё вот таким способом считать координаты но почему то при движении мыши выдаются одни и те же числа

procedure TForm1.WMMouseInf(var msg: TMessage);
begin
 case msg.WParam of
  WM_LBUTTONDOWN: begin

                  end;
  WM_LBUTTONUP:   begin
                  
                            end;
  WM_MOUSEMOVE:   begin
                               X2 := SMALLINT( msg.lParam and $FFFF);  
                               Y2 := SMALLINT( (msg.LParam shr 16) and $FFFF);   
                               memo1.Lines.Add('X2 = '+inttostr(X2)+'   Y2 = ' +
                               inttostr(Y2));
                  end;
 end;
 inherited;
end;