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.