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;