Foros Club Delphi - Tipo de letra en Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Tipo de letra en Delphi (https://www.clubdelphi.com/foros/showthread.php?t=8320)

Tipo de letra en Delphi

Como puedo configurar mi Entorno de Delphi 6 para que por defecto siempre me ponga el tipo de letra que yo desee, me refiero a los TLabel, TEdit, etc?
Gracias.

Otro tema relacionado con el tipo de letra, es: ¿se le puede cambiar el tipo de letra al objeto TMainMenu?

Gracias

Esto es virtualmente imposible. El entorno de Delphi no es, por así decirlo, como el de PowerPoint que puedes configurar a tu gusto. Los TLabel, TEdit, etc, son clases y cuando insertas uno en tu formulario, obtienen el tipo de letra al momento de construir la clase, no es algo que lean de algún archivo de configuración.

// Saludos

Con esta función cambias las fuentes de todos los formularios de la aplicación, mira a ver si por este camino logras algo:

Código:

Function SetCaptionFont(FontName : String) : boolean;

 Type

 con = array[0..31] of char;

 Var

 NCM                 : TNONCLIENTMETRICS;

 begin

 Result         := false;

 ncm.cbSize := SizeOF(ncm);

 //Get old NCM

 IF SystemParametersInfo(SPI_GETNONCLIENTMETRICS, ncm.cbSize,  @ncm, 0) then

 begin

  //Set new FontName

  Move(PChar(FontName)[0], ncm.lfCaptionFont.lfFaceName[0], SizeOf(ncm.lfCaptionFont.lfFaceName));

 

  //Set new NCM

  IF SystemParametersInfo(SPI_SETNONCLIENTMETRICS, ncm.cbSize,  @ncm, 0) then

   Result := true;

 end;

 end;

Un Saludo.