Personalizar Ttoolbar por código
 

Como les Va

Quisiera saber si alguno de ustedes ha intentado personalizar un Ttoolbar (Customizable := True) por medio de un disparo desde código y no por un doble click en la barra??.

He intentado disparar el evento toolbar1.OnDblClick(self, o nil) pero no funciona.

¿Hay alguna forma de hacer dobleclick en la barra pero por código? O alguna funcion del Ttolbar que dispare el cuadro de personalizacion, que sea por ej Toolbar1.custimoze; (cosa que no he encontrado).

Desde ya Gracias

Desde las propiedades de la barra, crear el evento y agregar el codigo que deseas.

Código Delphi [-]
procedure TForm1.ToolBar1DblClick(Sender: TObject);
begin 
ShowMessage('Hola...  ');
end;

Luego desde donde quieras llamarlo:

Código Delphi [-]
Form1.ToolBar1DblClick(Self);

Tener en cuenta que si llamas al este evento desde otra unidad que no sea la del Form1 debes añadirla al proyecto.

Sobre eso no hay dudas.

Lo que pasa es que no deseo llamar a lo que haya en el Evento OnDblClick (que de hecho no hay nada). SIno lo que quiero lograr es hacer un doble click sobre la barra ToolBar para que aparezca el cuadro de personalizacion de botones de la barra.

En una oportunidad programe algo asi:
Un nuevo form con un treeView rellenado con el menu ppal.

elige un item y lo agrega a la ttoolbar. y al mismo tiempo lo guardo en la base de datos asociado con el usuario que esta logueado. como para que sea aun mas personalizado todavia.

al momento de logueo, vaciar la barra de botones y cargar todos aquellos que este tenga en la tabla que mencione antes. y cada boton esta asociado a la imagen (si es que tiene) y evento en el menu ppal.