Foros Club Delphi - Evento en TToolBar

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Evento en TToolBar (https://www.clubdelphi.com/foros/showthread.php?t=93591)

Angel.Matilla

24-11-2018 10:49:42

Evento en TToolBar

Tengo una TToolBar asociada a un TMainMenu; uno de los botonones es del estipo tbsDropDown ya que de la opción correspondiente del menú cuelga un submenú. Me he dado cuenta que el menú sólo se despliega si pulso directamente sobre la flecha que muestra el menú mientras que si lo hago sobre cualquier otra zona del botón no lo hace. ¿Qué evento se ejecuta para poder desplegar el menú?

ecfisa

25-11-2018 02:24:18

Hola.

Si no entendí mal la situación, podes usar el evento OnClick del TToolButton en cuestión:

Código PHP:


		
			
// Abrir el PopupMenu asociado en posición:
void __fastcall TForm1::ToolBtnDropDownClick(TObject *Sender)
{
  TToolButton *TB = static_cast<TToolButton*>(Sender);

  PopupMenu1->Popup(TB->ClientOrigin.x, TB->ClientOrigin.y + TB->Height);
}

Saludos :)

La franja horaria es GMT +2. Ahora son las 06:33:15.