duda pequeña pero inquietante con popup

[federiconqn21]

Hola:
Tengo una duda que no puedo aclararme.
estoy utilizando un listbox y un popupmenu,y lo que quisiera lograr es,cuando hago click derecho para que se muestre el menu del popupmenu,sobre un item de mi listbox,quisiera que tambien se seleccione ese item,y no puedo lograrlo,es decir ,se abre el menu pero el item no se selecciona.Me fije en el evento OnPopup y a ese evento le asocie el evento
Listbox1Click,pero no pasa nada.Tambien me asegure de asignarle el popup al
listbox.como puedo hacer para que,al hacer click derecho sobre el item de la lista,este item se seleccione y al mismo tiempo se muestre el menu del popup?
Gracias a quien pueda ayudarme
Salu2

[roman]

Yo quitaría el menú de la propiedad PopupMenu del ListBox y en el evento OnMouseDown seleccionaría el ítem y mostraría el menú:

Código Delphi [-]
procedure TForm1.ListBox1MouseDown(...);
var
  P: TPoint;
  I: Integer;

begin
  (* si es el botón derecho *)
  if Button = mbRight then
  begin
    P := Point(X, Y);
    I := ListBox1.ItemAtPos(P, true);

    (* si se hizo click sobre algún ítem *)
    if I <> -1 then
    begin
      ListBox1.ItemIndex := I;
      P := ListBox1.ClientToScreen(P);
      PopupMenu1.Popup(P.X, P.Y);
    end;
  end;
end;

// Saludos

[DarKraZY]

Hola!

Acabo de probarlo en Delphi 7 y puedes hacerlo de la siguiente manera:
Una vez asociado el PopupMenu al ListBox mediante su propiedad solo te queda usar el evento OnContextPopup del ListBox y asignarle esto

Código Delphi [-]
lbx.ItemIndex := lbx.ItemAtPos(MousePos, True)

Este evento parece que salta justo en el momento de pulsar el botón derecho (de ahí lo de context popup). Y el código significa traducir una posición de ratón a un item. Y después lo ponemos como Item actual.

Espero que te sirva

[roman]

Muy buena opción. La verdad es que no tenía presente ese evento. Mucho mejor así.

// Saludos