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;