PopupMenu

[cmfab]

Hola a todos. como puedo ubicar un popupmenu al final de un TEdit. osea necesito colocar el codigo de activacion del popupmenu en el evento onexit del TEDit, utilizo el siguiente codigo

[Dehphi]

PopupMenu1.Popup(Edit1.left, Edit1.top );

[/Dehphi]

Pero la posicion varía en dependecnia de si la ventana está restaurada o maximizada. tambien varía en dependencia de la resolucion de la pantalla en pixels


saludos

[ecfisa]

Hola cmfab.

Asigná este código al evento OnMouseDown de el/los controles:

Código Delphi [-]
procedure TForm.ControlMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  P: TPoint;
begin
  with Sender as TControl do
  begin
    P.X := Left + Width;
    P.Y := Top + Height ;
    P := Self.ClientToScreen(P);
    PopupMenu1.popup(P.X, P.Y );
  end;
end;

Saludos.