So why aren't you a member? Join up!
This is a guest message and you can easily put whatever you want here to get potential members to join up. The text can be changed in seconds using the settings file. This message will only appear to guests but can be turned off completely if so desired.
Stawer

Você não está conectado. Conecte-se ou registre-se

[Dica][Delphi] Desabilitar/Habilitar componentes de um form pela sua classe

Ir em baixo  Mensagem [Página 1 de 1]

Ai esta o procedure que permite habilitar/desabilitar componentes de determinado form de acordo com as classes passadas como parâmetro. É possível determinar quais controles não serão afetados.

Código:
procedure EnableDisableControls(Form: TForm; ClassComponents: array of TControlClass; Exclude: array of TControl; State: Boolean);
var
  i,
  j,
  z: Integer;
begin
  for I := 0 to Form.ComponentCount -1 do
    for j := Low(ClassComponents) to High(ClassComponents) do
      if High(Exclude) > -1 then
      begin
      for z := Low(Exclude) to High(Exclude) do
        if (Form.Components[i] is ClassComponents[j]) and (Form.Components[i] <> Exclude[z]) then (Form.Components[i] as ClassComponents[j]).Enabled := State;
      end
      else
        if (Form.Components[i] is ClassComponents[j]) then (Form.Components[i] as ClassComponents[j]).Enabled := State;
end;

Exemplo de uso:

Código:
EnableDisableControls(Form1, [TEdit, TMemo, TCheckBox, TRadioButton], [CheckBox1], (not Edit2.Enabled));

Neste exemplo acima todos os edits, memos, checkboxes e radiobuttons serão desabilitados/habilitados, com exceção do checkbox1.

Créditos: Adenilton Batista Da Silva



[Dica][Delphi] Desabilitar/Habilitar componentes de um form pela sua classe 1b20951dd31bb3b356f16d146dd6aaa18455e9b0
Ver perfil do usuário

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum