Tipo de letra en Delphi

[AgustinL]

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

[roman]

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

[marcoszorrilla]

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

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.