Ver Mensaje Individual
  #2  
Antiguo 31-10-2008
Avatar de gulder
gulder gulder is offline
Miembro
 
Registrado: abr 2005
Ubicación: colombia-sucre
Posts: 384
Reputación: 20
gulder Va por buen camino
Thumbs up

hola advancexz como andas espero que bien bueno lo que se me ocurre es hacer lo siguiente, este truco es el numero 33 de trucomania y lo que hace es cargar el font desde una direccion especifica, que tal si tu agregas la fuente an la carpeta de tu aplicacion y con este truco podrias cargarlo aqui va:

Para cargarlo, (por ejemplo en el evento OnCreate de tu form):

Código Delphi [-]
   procedure TForm1.FormCreate(Sender: TObject);
      begin
        AddFontResource('c:\FONTS\FUENTE.TTF');
        SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
      end;

Y al salir de tu aplicación, lo liberas con:


Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
      begin
        RemoveFontResource('D:\FONTS\FUENTE.TTF');
        SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
      end;


espero que te funcione puesto que de casualidad en estos momentos lo estoy utilizando para lo mismo que preguntas saludes transmitiendo en directo desde mi cuarto
Responder Con Cita