15 respuestas en este tema

[Fleon]

hola de nuevo amigos, tengo un problema tratando de mostrar un popupmenu encima de un botón, como lo hace el winamp cuando agregas una canción, tengo lo siguiente:

delphi

procedure TForm1.btAddPClick(Sender: TObject);
var
   p : TPoint;
begin
   with Sender as TSpeedButton do
   begin
      if pmAdd = nil then
         beep
      else
         begin
            GetCursorPos( p );
            p.x := btAddP.Left + 1;
            p.y := btAddP.Top + btAddP.Height + 1;
            p := Self.ClientToScreen( p );
            pmAdd.popup( p.x, p.y );
         end;
   end;
end;

Pero no me furula, ¿alguien me puede ayudar?.

Fleon xD

[escafandra]

Pues a mi si me funciona:

delphi

procedure TForm1.btAddPClick(Sender: TObject);
var
   p : TPoint;
begin
   if Sender is TSpeedButton then
   with Sender as TSpeedButton do
   begin
      if pmAdd = nil then
         beep
      else
         begin
            p.x := btAddP.Left + 1;
            p.y := btAddP.Top + btAddP.Height + 1;
            p := Self.ClientToScreen( p );
            pmAdd.popup( p.x, p.y );
         end;
   end;
end;

Dejo un ejemplo con un botón (btAddP), el popupmenu (pmAdd) y un SpeedButton.

Saludos.

Archivos adjuntos

•  925_5f6d39c9342f1c7a515b33f92dd9875882df8c7b.zip   3,46KB   10 descargas

[Fleon]

Hola escafandra pues no, no me funciona, me lo pone en la parte superior izquierda del formulario y no encima del botón, ¿será porque el formulario está transparente?, porque así lo tengo .

[Fleon]

ahora que veo tu ejemplo, no es lo que busco, pues lo pone debajo de otro botón y no del mismo, os dejo una muestra de como debería ser.

Fleon xD

[escafandra]

ahora que veo tu ejemplo, no es lo que busco, pues lo pone debajo de otro botón y no del mismo

Por tu código entendí que lo querías debajo de otro. 

Mira este ejemplo, ¿se ajusta mas a lo que dices?:

delphi

procedure TForm1.btAddPClick(Sender: TObject);
var
   p : TPoint;
begin
   if pmAdd = nil then
       beep
   else
      begin
         p.x := btAddP.Left + 1;
         p.y := btAddP.Top + btAddP.Height + 1;
         p := Self.ClientToScreen( p );
         pmAdd.popup( p.x, p.y );
      end;
end;

Saludos.

Archivos adjuntos

•  931_d8a006f5c06139ef91fb48eb0e164cbd053796f9.zip   198,01KB   0 descargas

[Fleon]

Hola escafandra, ¿seguro que el último ejemplo no es el mismo?, porque me hace el mismo efecto

[escafandra]

En un principio al pulsar un botón mostraba un menú debajo de oro, siguiendo el ejemplo de tu primer post.

ahora que veo tu ejemplo, no es lo que busco, pues lo pone debajo de otro botón y no del mismo, os dejo una muestra de como debería ser.

Entonces lo cambié para que se mostrara el menú bajo el botón pulsado.

...¿seguro que el último ejemplo no es el mismo?, porque me hace el mismo efecto

Bueno el mismo efecto no es, se muestra en el botón que pulsas. Si bien es cierto que mirando bíen lo que subí, era el mismo código (lo corrijo). :$ Pero el post mostraba el correcto. 

Ahora pienso que quizás quieres que lo muestre arriba del botón. Te mando un ejemplo de eso también.

Saludos.

Archivos adjuntos

•  1475_7f7b41942897fa3f10d51e5ee733a08894557ec9.zip   197,91KB   0 descargas
•  1474_bfa36f5dd4fcf5b5c481795a6ace72a56a6f71b2.zip   197,3KB   0 descargas

[luk2009]

Es el mismo ejemplo. o por lo menos hace lo mismo, ademas si presionas en cualquier lugar del formulario, te sale el popup

[luk2009]

Los dos ultimos funcionan segun lo que dices

[Fleon]

Hola escafandra, vi los nuevos code y sí funcionan, aparte de que ahora se me ha infectado el Delphi , pero me sigue sin funcionar, definitivamente creo que el problema viene con que mi form tiene el Brush en Clear, ¿será por eso?, déjame hacer unas pruebas.

[Fleon]

Efectivamente el problema venía con el ClientToScreen, como el Form tiene su Brush en Clear tomaba como base la pantalla completa y no del form, así que lo que hice fue poner el ClientToScreen del Panel donde está el botón y así lo pone encima, aunque no me la pone pegado, no sé si se debe a que el panel es del mismo alto que el botón , ¿será?.

Fleon xD

[escafandra]

Si el botón está metido en un TPanel, sus coordenadas Left y Top, son relativas al TPanel, por lo tanto el ajuste a las coordenadas de Pantalla sería Panel1.ClientToScreen

delphi

procedure TForm1.btAddPClick(Sender: TObject);
var
   p : TPoint;
begin
   if pmAdd = nil then
       beep
   else
      begin
         p.x := btAddP.Left + 1;
         p.y:= btAddP.Top - GetSystemMetrics(SM_CYMENUSIZE)*pmAdd.Items.Count-1;
         p := Panel1.ClientToScreen( p );
         pmAdd.popup( p.x, p.y );
      end;
end;

Saludos.

Archivos adjuntos

•  1476_21dba8877093b263532e7b9eb2364004c4ea1e2d.zip   1,96KB   0 descargas

[Fleon]

Hola escafandra, efectivamente así lo tengo . Aunque no es gran cosa, la distancia es casi casi un CM, diría que 0.8 CM.

Fleon xD

[escafandra]

Hola escafandra, efectivamente así lo tengo . Aunque no es gran cosa, la distancia es casi casi un CM, diría que 0.8 CM.

¿Bajaste mi ejemplo?. En él no se separa el menú del botón.



Saludos.

[Fleon]

Si, baje el ejemplo, pero aún así no sale pegado, insisto que debe ser problema de la transparencia del form. Pero de todos modos, la distancia no es notable.

Fleon xD

[egostar]

Pues mas bien ha de ser algo en tu programa amigo, porque yo lo veo bien tal y como se muestra en la imagen de escafandra.

Salud OS