wilcg |
16-01-2015 01:36:27 |
Habilitar y desabilitar controles
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;
|