Propiedades Varios Campos Text
 

:confused: tengo una forma con varios campos text, no se si se pueda hacer lo siguiente.


mediante un boton cambieo todos los campos de enabled:=False a enabled:=True.

ejemplo

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Enabled:=True;
Edit2.Enabled:=True;
Edit3.Enabled:=True;
end;

como podria acerle para reducir codigo y no poner cada campo en true.

no se si se pueda alguna instruccion de poga todos los campos text existentes en true de una sola vez.

otra cosa cundo creo yo un procedure tengo que poner el nombre de la forma y yo recuerdo que en cliper no lo asia en lugar de eso ponia algo como "this" y ya sabia que era ejecutable para el objeto que contenia la instruccion, pero aqui tengo que poner el nombre de la forma eje:

procedure Forma;
begin
Form1.Enabled:=False;
end;

y quisiera algo como esto

procedure Forma;
begin
Enabled:=False;
end;

ó

procedure Forma;
begin
Enabled:=False;
end;

ó

procedure Forma;
begin
This.Enabled:=False;
end;

para poder copiar codigo en otras formas y me respete la intruccion y no cambiar en todas el nombre de la forma

disculpen tan´tas preguntas, esque soy empirico en delphi y no tengo mucha ayuda, solo ustedes.

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...

Si perfectamente y muchas gracias ;)