M�todo Popup do SpeedButton em form Modal

01/11/2004

Ol�! Tenho em uma determinada posi��o de um form um SpeedButton. Esse form est� com �BorderStyle� igual a �bsDialog� e ele sempre � chamado com �ShowModal�. Coloquei no form um PopupMenu e eu queria que quando o usu�rio pressionasse o bot�o o PopupMenu aparecesse embaixo dele. J� coloquei o menu na propriedade �PopupMenu� do SpeedButton, mas nada acontece. Coloquei o seguinte c�digo que achei aqui no f�rum:

...
var pt:TPoint;
begin
   GetCursorPos(pt);
   PopupMenu1.Popup(pt.X, pt.y);
end;

At� funciona, mas eu queria posicionar o Menu exatamente abaixo do bot�o n�o importando onde o usu�rio clique. Exatamente como os �ToolButtons� fazem quando est�o com sua propriedade �DropDownMenu� preenchidas...

Se algu�m souber como resolver isso... At�!

Delphi32

Curtir t�pico + 0

Responder

Posts

01/11/2004

Gilvanj

Tente utilizar isso:

PopupMenu1.Popup( SpeedButton1.ClientToScreen(Point(0,SpeedButton1.Height)) );

Responder

Gostei + 0

01/11/2004

Gilvanj

Ops...

Tente este aqui:

var
vPonto : TPoint;
begin
vPonto := SpeedButton1.ClientToScreen(Point(0, SpeedButton1.Height));
PopupMenu1.Popup(vPonto.X, vPonto.Y);

Responder

Gostei + 0

20/10/2021

Wellington Telles

Para qualquer objeto:

procedure TForm1.Image1Click(Sender: TObject);
var
  P : TPointF;
begin
  P.X := 0;
  P.Y := 50;
  P := Image1.LocalToAbsolute(P);
  P := ClientToScreen(P);
  PopupMenu1.Popup(P.X,P.Y);
end;

Responder

Gostei + 0