StringGrid

1、右键选择行

procedure TFZu.SG_dataMouseDown(Sender: TObject; Button: TMouseButton; 

  Shift: TShiftState; X, Y: Integer);

var 

    MousePos:   TSmallPoint;

begin 

    if Button = mbRight then 

    begin 

        MousePos.x   :=   x;

        MousePos.y   :=   y;

        SendMessage(SG_data.Handle, WM_LBUTTONDOWN, 0, MAKELONG(x, y)); 

        SendMessage(SG_data.Handle, WM_LBUTTONUP, 0, MAKELONG(x, y)); 

    end; 

end;