Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   TStatusbar (https://www.clubdelphi.com/foros/showthread.php?t=31815)

nenufer 18-05-2006 17:54:56

TStatusbar
 
Hola a tod@s!!! Vereis, estoy haciendo una aplicacion Mdi, en el form que es Mdiform tengo:
Un toolbar con 3 botones, 1 Statusbar con dos paneles, en uno de estos paneles me gustaria mostrar,cuando paso el raton por cada boton,el caption del boton. Como si fuera un hint. Pero que salga en el Statusbar.
He probado

Código Delphi [-]
if x < boton.with then
statusbar.panels[1].text := boton.caption
else
statusbar.panels[1].text := '';

Esto lo tengo todo en el mousemove del boton, pero lo que me hace es que si que me pone en la barra del statusbar el caption, pero cuando ya no estoy encima del boton no se queda vacio, sino que sigue el caption.

Si alguien me pude ayudar,gracias de antemano

Neftali [Germán.Estévez] 18-05-2006 18:03:04

¿Porqué no lo haces aprovechando el Hint, que para eso está?
Si utilizas la propiedad AutoHint del StatusBar conseguirás que el Hint aparezca automáticamente.

Otros controles (como el TStatusBarPro) permiten ir un poco más allá y configurar en cual de los paneles quieres que se visulize ese Hint.
Puedes hacerlo sin una sólo línea de código.

roman 18-05-2006 19:33:16

Incluso con el mismo TStatusBar es muy sencillo poner el hint en el panel deseado usando una componente ApplicationEvents y asignando el hint en su evento OnHint:

Código Delphi [-]
StatusBar1.Panels[84].Text := Application.Hint;

// Saludos

nenufer 18-05-2006 20:47:13

Gracias a los dos. Es lo que habia visto en el foro, pero no sabia si me servia. Siento haberlo repetido.
Muchas gracias


La franja horaria es GMT +2. Ahora son las 00:19:59.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi