Hola amigos del foro, necesito su ayuda.
Deseo implementar un proceso para habilitar y desabilitar (TEdit, TCombobox, TButton) solo los deseados con una sola linea de codigo.
- estoy trabajando en esto, pero falta mucho alguien que me ayude.
Código Delphi
[-]procedure HabilitControl(const controles :TStrings);
var
i :integer;
begin
for i:= controles.Count-1 downto 0 do
if controles[i] = (TWinControl[i] is TEdit) then
TEdit[i].Enabled := True
else
if controles[i] = (TWinControl[i] is TComboBox) then
TComboBox[i].Enabled := True
else
if controles[i] = (TWinControl[i] is TButton) then
TButton[i].Enabled := True
end;
y llamaria la accion asi
Código Delphi
[-]procedure TFode.Button1Click(Sender: TObject);
begin
HabilitControl(Edit1, Edit2, ComboBox5, BitBtn3);
end;