delphi7 怎麼讓button按鈕跟着鼠標點擊dbgrideh數據行移動

delphi7 怎麼讓button按鈕跟着鼠標點擊dbgrideh數據行移動

在 dbgrid的DBGridCellClick 事件中加上：

Delphi/Pascal code

 

1 2 3 4 5 6 7 8 9 10 11

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) 獲取的是鼠標在屏幕的位置。