Ir al contenido


Foto

Cambiar el hint en las aplicaciones


  • Por favor identifícate para responder
2 respuestas en este tema

#1 razadi

razadi

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 681 mensajes
  • LocationMéxico D.F.

Escrito 30 septiembre 2009 - 08:22

Saludos comuneros, antes que otra cosa, una disculpa si por periodos largos me ausento, lo que sucede que bueno andamos con mucho trabajo tanto de la empresa como particular.

Bueno des pues de lo anterior, ahora les dejare un truquillo a lo mejor sencillo pero a mi en lo personal me sirvio muchisimo.

Es poder cambiar la forma de nuesto "Hint" de nuestras aplicaciones, primero debemos declarar el nuevo hint


delphi
  1. ...
  2.  
  3. Type
  4.   THintCustom = Class (THintWindow)
  5.     Constructor Create (AOwner: TComponent); override;
  6.   end;
  7. ...
  8.  
  9. Constructor THintConFont.Create (AOwner: TComponent);
  10. begin
  11.   Inherited Create (Aowner);
  12.   Canvas.Brush.Color := clSilver;
  13.   Canvas.Font.Name := 'Century Gothic';
  14.   Canvas.Font.Size := 18;
  15. end;



después en el OnCreate del Form principal escribimos esto


delphi
  1. Application.ShowHint := False;
  2. HintWindowClass := THintCustom;
  3. Application.ShowHint := True;



Espero les sirva, digo ahí ya pueden hacer lo que quieran con el canvas y hechar a volar su imaginación.


Saludos y hasta la próxima...
(b) (b) (b) (b)

  • 0

#2 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 30 septiembre 2009 - 09:10

Excelente aportación amigo :D muchas gracias (y)
  • 0

#3 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3.486 mensajes
  • LocationMexico City

Escrito 30 septiembre 2009 - 10:02

Saludos comuneros, antes que otra cosa, una disculpa si por periodos largos me ausento, lo que sucede que bueno andamos con mucho trabajo tanto de la empresa como particular.....


Yo por eso opino que hagamos huelga pero no me quieres hacer caso :p :$ :D

Saludox ! :D
  • 0




IP.Board spam blocked by CleanTalk.