PopUp Menu y StringGrid

[federiconqn21]

Hola Amigos Del Foro:quisiera manifestar la siguiente inquietud.
estoy utilizando el componente StringGrid y un popUpMenu.Ahora bien, lo que quiero hacer es, emerger el popupMenu al hacer click derecho sobre un item del StringGrid, pero al mismo tiempo seleccionar ese item(como si hiciera click izquierdo al mismo tiempo de hacer click derecho). no se como hacerlo. si lo hago con listbox en lugar de stringGrid tengo la posibilidad de usar los metodos itemAtPos y ClientToScreen.pero es este caso no hay manera.
Agradecezco desde ya la respuesta de quien se tome el tiempo de leer mi inquietud y responderla.
Atentamente...Federico(Arg)

[[Lepe]]

Tendrás que hacerlo por código.

usas el evento OnMouseDown del stringgrid y allí debes averiguar la celda sobre la que estás, seleccionarla, y por último lanzar el popup.

Código Delphi [-]
var aCol, aRow :integer;
      p:TPoint;
begin
  if button = mbright then
  begin 
    Stringgrid1.MouseToCell(X, Y, aCol, aRow);
    StringGrid1.Row := aRow;
    StringGrid1.Col := aCol;
    p := StringGrid1.ClientToScreen(Point(x,y))
    popupmenu1.popup(p.x, p.y);
  end;

Quizás tenga erores el código, o debas verificar si la columna es válida, pero más o menos ese es el código.

Saludos