delphi7 怎麼讓button按鈕跟著滑鼠點擊dbgrideh資料行移動

標籤：window   over   getc   title   point   cursor   key   phi   dex   

delphi7 怎麼讓button按鈕跟著滑鼠點擊dbgrideh資料行移動

在 dbgrid的DBGridCellClick 事件中加上：

Delphi/Pascal code 

1234567891011

var  x, y : integer ;  P: TPoint;begin  GetCursorPos(P);  Edit1.Text := Format(‘X: %d, Y: %d‘,[P.X, P.Y]);  x := frMainTest.Left ;  y := frMainTest.Top ;  Button.Top := P.Y - y - 45 ;  Button.Left := P.X - x ;  Button.BringToFront();

註： Button 的位置，需要根據你放置的容器不同而計算出相對位置。

GetCursorPos(P) 擷取的是滑鼠在螢幕的位置。

 

delphi7 怎麼讓button按鈕跟著滑鼠點擊dbgrideh資料行移動