Ver Mensaje Individual
  #1  
Antiguo 27-05-2011
pennylane pennylane is offline
Miembro
 
Registrado: feb 2007
Posts: 14
Reputación: 0
pennylane Va por buen camino
Pasar TForm a un procedure

Hola.

Estoy intentado hacer una función genérica para poder modificar las propiedades de los Labels de diferentes formularios

El problema lo tengo al pasar un TForm a un procedure y he leído varios hilos pero no me han funcionado las soluciones. He probado a pasarlo como Class y tampoco funciona... La verdad es que me pierdo en esto y he leído mucho pero me cuesta entender el problema.
El error que me da es "delphi this form of method call only allowed for class methods"


Llamada:
Código Delphi [-]
procedure TFORM1010.FormActivate(Sender: TObject);
begin
     TVariables.CargaCabecera(Form1010, 'Mantenimiento');
end;

Procedimiento:
Código Delphi [-]
procedure TVariables.CargaCabecera(Formulario: TForm; Titulo:String);
begin
     Formulario.Caption := Titulo;
     for i := 0 to (Formulario.ComponentCount - 1) do
     begin
          if (Formulario.Components[i] is TLabel) then
          begin
               TLabel(Formulario.Components[i]).Font.Size := 8;
               TLabel(Formulario.Components[i]).Font.Color := clNavy;
          end;
     end;
end;

Última edición por pennylane fecha: 27-05-2011 a las 11:52:18.
Responder Con Cita