Programación General > Delphi
Manejo De La Status Bar
h20_mx:
Eso mismo es lo que quiero hacer, la unica manera que he econtrado de hacerlo es por ejemplo en el onmousemove de cada componente y poner a cada coponente el texto que quieras, es muy latoso, es toy viendo el hacer una funcion que solo le mandes el texto y lo ponga automaticamente, pero no he tenido tiempo de hacerlo, ah y para que no pongas otra linea de borrado, pon un componente timer y con el valor mas bajo posible ponle que escriba nada
en el onmousemove del boton:
StatusBar.Panels[(Aki el nº de panel)].text:=' se mueve sobre el boton';
en el timer:
StatusBar.Panels[(Aki el nº de panel)].text:='';
haber si te sirve de algo. Saludos!!!! :hola:
h20_mx:
Eso mismo es lo que quiero hacer, la unica manera que he econtrado de hacerlo es por ejemplo en el onmousemove de cada componente y poner a cada coponente el texto que quieras, es muy latoso, es toy viendo el hacer una funcion que solo le mandes el texto y lo ponga automaticamente, pero no he tenido tiempo de hacerlo, ah y para que no pongas otra linea de borrado, pon un componente timer y con el valor mas bajo posible ponle que escriba nada
en el onmousemove del boton:
StatusBar.Panels[(Aki el nº de panel)].text:=' se mueve sobre el boton';
en el timer:
StatusBar.Panels[(Aki el nº de panel)].text:='';
haber si te sirve de algo. Saludos!!!! :hola:
RedChaos:
Si la idea del onmousemove esta muy bien el problema es q deberia ser algo como onmousemoveoverlink jejeje, bueno, con lo del timer ahorro en borrado, aunq indicando q si no hay link no ponga nada tb resolveria.
Encontre un problema a mi forma y es q te pone el nombre tras irte de la página(Yo ponia el codigo en el WebBrowser en la zona de ondownloadbegin, pero no vale de mucho).
Seguire buscando formas de hacerlo, toy con mi mascara de navegador y espero conseguir q vaya de perlas, si tal despues ya me metere a hacer un navegador completo, es decir los enlaces a servidores y llamadas http
saludos
RedChaos:
Resuelto el Problem, aqui va la solución:
procedure TFormPrincipal.StatusBar(Server: TObject; const Text: WideString);
begin
StatusBarPrincipal.Panels[1].Text := Text;
end;
Esta funcion en OnStatusTextChange y asunto arreglado.
Menuda facilidad cuando se saben las cosas
Navegación
[*] Página Anterior
Ir a la versión completa