Como cambiar color de Formulario,Etc

[Gustavo Gowdak]

Hola, tengo un formulario que se llama configuracion, en donde tengo todos las opciones que decee el usuario, tales como: colores de formularios, colores de las grillas, formatos de letras, etc, necesito saber como puedo hacer eso??, por ejemplo el color de los formulario es negro y el usuario quiere cambiar a gris, al seleccionar gris se cambie todos los formularios del sistema a gris, me entienden???, y asi con todos los casos citados mas arriba.....

[roman]

Puedes hacer una rutina que recorra todas las componentes del formulario que le pases. Por cada componente examinas de qué tipo es (TLabel, TEdit, TComboBox, etc.) y según el caso asignas propiedades:

Código Delphi [-]
procedure CambiaAdornos(Formulario: TForm);
var
  Componente: TComponent;
  I: Integer;

begin
  for I := 0 to Formulario.ComponentCount - 1 do
    if Componente is TLabel then
    begin
      Asignas propiedades a TLabel(Component)
    end
    else if Componente is TEdit then
    begin
      Asignas propiedades a TEdit(Component)
    end
    else if Componente is TComboBox then
    begin
      Asignas propiedades a TComboBox(Component)
    end
    else
      etcétera
end;

Cuando el usuario escoja los colores, recorres esta rutina para todos los formularios abiertos:

Código Delphi [-]
var
  I: Integer;

begin
  for I := 0 to Screen.FormCount - 1 do
    CambiaAdornos(Screen[i]);
end;

Si quieres además que los cambios se reflejen al volver a abrir laaplicación entonces tendras que correr esta rutina cada vez que crees un formulario.

// Saludos

[ISKANDAR]

Lo que podrias hacer es crear algún objeto cuyas propiedades sean valores de configuración de tu aplicación (color de formulario, tamaño máximo o mínimo de ventana, etc) que se cree al inicio, junto con el primer formulario. De este modo cuando cambias el color como en tu caso, le asignás el color al objeto y luego cuando creas un formulario (si los creas dinámicamente) o lo mostrás, le das el color que contiene el objeto. También lo podrías utilizar para otros parámetros. Saludos.