Duvida em passagem de Parametros

Delphi

29/10/2006

Utilizou este codigo abaixo para controlar a propriedade enabled dos TEdits, como posso fazer para controlar outros componentes tipo DBEdit, TButton, passando esses componentes para o metodo, assim nao preciso ficar duplicando codigos.


procedure EnableDisableEdits(aPanel: TPanel; aEnable: Boolean); 
var 
  i: Integer; 
begin 
  for i := 0 to aPanel.ControlCount - 1 do 
    if aPanel.Controls[i] is TEdit then 
      (aPanel.Controls[i] as TEdit).Enabled := aEnable; 
end;



Abs a todos.


Felipeiw

Felipeiw

Curtidas 0

Respostas

Martins

Martins

29/10/2006

Não sei se entendi o q vc deseja, mas em todo caso seria algo +/- assim:

procedure EnableDisableEdits(aPanel: TPanel; aEnable: Boolean); 
var 
  i: Integer; 
begin 
  for i := 0 to aPanel.ControlCount - 1 do 
   begin
    if aPanel.Controls[i] is TEdit then 
      (aPanel.Controls[i] as TEdit).Enabled := aEnable; 
    if aPanel.Controls[i] is TDBEdit then 
      (aPanel.Controls[i] as TDBEdit).Enabled := aEnable; 
    if aPanel.Controls[i] is TButton then 
      (aPanel.Controls[i] as TButton).Enabled := aEnable; 
   end;
end;


Lembrando q se vc deseja controlar botões como (novo, editar, excluir, salvar, etc...) vc pode fazer isso de outa maneira.

Boa sorte!


GOSTEI 0
Mahdak

Mahdak

29/10/2006

um outra sugestão seria:

procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form1.Components[i] is TCustomEdit then
(Form1.Components[i] as TCustomEdit).enabled := false;
end


para chamar:

LimpaEdit(form1);


com isso todos os componentes do tipo Edit (dbedit, edit, maskedit, ...) tem a propriedade enabled como false.

voce pode implementar o código para outros componentes tambem

abraços!


GOSTEI 0
Martins

Martins

29/10/2006

Verdade [b:9833909e20]mahdak[/b:9833909e20], trabalha-se nesse caso com a classe ancestral.

:D


GOSTEI 0
Felipeiw

Felipeiw

29/10/2006

Me desculpem acho que nao consegui me expressar direito, quero utilizar o mesmo metodo para varios controles, num momento quero alterar a propriedade de um DBEdit, entao passo esse componente para o metodo, noutro momento quero alterar de um Button, entao passo button para o metodo, e assim por diante.

Abs


GOSTEI 0
POSTAR