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;