desabilitar componentes atrav�s de uma variavel

Question

blz amigos,estou com um problema que n�o consigo resolver, queria saber se � possivel desabilitar um componente qualquer atrav�s do valor de uma variavel.Ex:. tenho v�rios componentes - button1, butto...

Rjun · Answer

O problema � saber quando o valor foi alterado. Voc� pode criar um m�todo para definir o valor da sua vari�vel e nesse m�todo alterar o valor do seu componente:

procedure SetValueXYZ(string valor)
begin
  xyz = valor;
  button1.Enabled = (xyz = �AlgumaCoisa�);
end;

Pestana · Answer

Rjun entendi que vc passou, mas talv�s eu n�o fui bem claro na minha pergunta,

eu n�o sei qual vai ser o componente, o nome do componente vai ser definido atraves do valor desta variavel xyz.

ex.: a variavel xyz recebe como valor uma string, p.ex: �edit1� (isso quem define � o usuario). apartir dai eu sei que o componente que o usuario quer desabilitar e o �EDIT1�, ent�o eu presciso procurar no form o componente que tenha o nome que foi definido na variavel, para ent�o desabilitar.

agrade�o!

Bruno Belchior · Answer

Adapte � tua necessidade:[code:1:e4314f1153]function AlteraStatus(const ComponentName: string;  NextEnabled: Boolean): Boolean;var  Cont: Smallint;begin  Result := False;  for Cont := 0 to ControlCount-1 do  begin    Result := Controls&#91;Cont&93;.Name = ComponentName;    if Result then    begin      Controls&91;Cont&93;.Enabled := NextEnabled;      Exit;    end;  end;end;[/code:1:e4314f1153]Lembrando que estou supondo que este c�digo ser�  implementado como m�todo de um controle (um formul�rio por exemplo)....

Night_man · Answer

[code:1:88d716cfd0]  if (FindComponent(Caption) <> nil) then    (FindComponent(Caption) as TControl).Enabled := False;[/code:1:88d716cfd0]...

Night_man · Answer

[code:1:73205b2635]  if (FindComponent(XYZ) <> nil) then     (FindComponent(XYZ) as TControl).Enabled := False;[/code:1:73205b2635]...

Bruno Belchior · Answer

Hum... foi realmente uma solu��o melhor, mas s� para complementar e ser mais seguro:

var
  Componente: TComponent;
begin
  Componente := FindComponent(�Name�);
  if Assigned(Componente) and (Componente is TControl) then
    (Componente as TControl).Enabled := False;
end;

F�rum desabilitar componentes atrav�s de uma variavel #325695