Tema: ToolButon con PopUp asociado como desplegar automaticamente
Ver Mensaje Individual
  #2  
Antiguo 06-08-2004
Avatar de ruina
ruina ruina is offline
Miembro
  
Registrado: jun 2004
Posts: 196
Reputación: 21
ruina Va por buen camino
mira a ver que tal asi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var p:tpoint;
begin
    p:=ToolButton1.ClientToScreen(point(0,ToolButton1.Height));
    ToolButton1.DropdownMenu.Popup(p.X,p.Y);
end;
__________________
todo el mundo debe creer en algo... yo creo que voy a tomarme otra copa.
Responder Con Cita