StringGrid右键选择单元格
我的StringGrid有一个popmenu，每次我都要先点左键，再点右键进行单元格操作，我能不能点右键直接就选种单元格。

[解决办法]
虽然有点不伦不类, 但应该可以实现你的需要:

var
xMouse, yMouse : integer;

procedure TForm1.Timer1Timer(Sender: TObject);
var
XY : string;
begin
XY := Format( '$%.4x%.4x ',[yMouse,xMouse]);
SendMessage(StringGrid1.Handle, WM_LButtonDown, 0, StrToInt(XY));
SendMessage(StringGrid1.Handle, WM_LButtonUp, 0, StrToInt(XY));
Timer1.Enabled := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.PopupMenu := PopupMenu1;
Timer1.Interval := 10;
Timer1.Enabled := False;
end;

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
xMouse := X;
yMouse := Y;
Timer1.Enabled := True;
end;