Propiedades Varios Campos Text

[maeyanes] · #2 26-05-2005

Para tu primer problema:

Código Delphi [-]procedure TMyForm.SetAllEditEnabled(AValue: Boolean);
var
  I: Integer;

begin
for I := 0 to ComponentCount - 1 do
  if Components[i] is TEdit then
    TEdit(Components[i]).Enabled := AValue
end;

Para lo segundo puedes hacer algo como:

Código Delphi [-]procedure HazAlgoConUnaForma(Form: TForm);
begin
  Form.Caption := 'Cualquier cosas que se te ocurra';
  Form.Height := 300;
  // ...
end;

// Ejemplo de llamada
procedure TMyForm.ShowForm(Sender: TObject);
begin
  HazAlgoConUnaForma(Self)
end;

El procedimiento HazAlgoConUnaForma puede estar en cualquier unidad. Ahora, si el procedimiento pertenece a la forma en cuestión, no hay necesidad de usar la variable de la forma o puedes usar Self.

Espero me haya dado a entender...

Saludos...