Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Los mejores trucos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-07-2016
Avatar de rretamar
[rretamar] rretamar is offline
Miembro Premium
 
Registrado: ago 2006
Ubicación: San Francisco, Córdoba, Argentina
Posts: 1.168
Poder: 21
rretamar Va camino a la famarretamar Va camino a la fama
Cambiar todas las propiedades de todos los forms

Hola.
Hace poco tuve la necesidad de cambiar una propiedad de todos los componentes de una aplicación en todos los formularios pero por código. El código fuente es de Free Pascal / Lazarus pero si mal no recuerdo se hacía de forma idéntica en Delphi. Se ejecuta al iniciar la aplicación...¿ cuántas veces al desarrolllar nos hemos olvidado un control con pestañas en una posición que no es la primer pestaña ? Bueno, para eso escribí este código.

Código Delphi [-]
Var
  formulario: Tform;
  f,c: integer; // Contadores de forms y sus componentes
Begin
  For F := 0 To Application.ComponentCount -1 Do
    If Application.Components[F] Is TForm Then
    Begin
      Formulario := TForm(Application.Components[F]);
      For C := 0 To Formulario.ComponentCount -1 Do
      Begin
        If Formulario.Components[C] Is TRxDBLookupCombo Then
        Begin
          TRxDBLookupCombo(Formulario.Components[C]).AutoSize := False;  // Cambiar dos propiedades en todos los componentes de la clase TRxDBLookupCombo
          TRxDBLookupCombo(Formulario.Components[C]).Height := 21;
        End;
        If Formulario.Components[C] Is TPageControl Then
          TPageControl(Formulario.Components[C]).PageIndex := 0;            // Por defecto visualizar siempre la primer pestaña
      End; 
End;
__________________
Lazarus Codetyphon : Desarrollo de aplicaciones Object Pascal, libre y multiplataforma.

Última edición por rretamar fecha: 02-07-2016 a las 01:50:08.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Las matemáticas no son para todos (ni todas) roman Humor 18 10-10-2011 16:41:00
Hola a todos y todas erickahr Varios 4 19-06-2010 06:01:19
Cambiar la una propiedades de todos los componentes de una form Mauro® Varios 4 09-01-2007 21:36:21
Información de todas las propiedades de los componentes Zeos ctronx Conexión con bases de datos 1 27-07-2004 23:41:55
Listar todas las propiedades de cualquier componente aglopez OOP 3 29-10-2003 10:36:59


La franja horaria es GMT +2. Ahora son las 01:26:38.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi