delphi7 怎么让button按钮跟着鼠标点击dbgrideh数据行移动

时间 2019-12-12

标签 delphi7 delphi 怎么 button 按钮跟着鼠标点击 dbgrideh 数据移动栏目 Delphi 繁體版

原文原文链接

delphi7 怎么让button按钮跟着鼠标点击dbgrideh数据行移动

在 dbgrid的DBGridCellClick 事件中加上：
ide

 
        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) 获取的是鼠标在屏幕的位置。spa