Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   PopUp Menu y StringGrid (https://www.clubdelphi.com/foros/showthread.php?t=50704)

federiconqn21 26-11-2007 12:03:22

PopUp Menu y StringGrid
 
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 26-11-2007 14:50:25

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


La franja horaria es GMT +2. Ahora son las 20:49:20.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi