e modificado este procedure, que es para bloquear todos los controles edits dentros de un panel, para poder tener la opcion de controlar su propiedad Enabled ya sea en False o True, segun se requiera , pero para poder controlar todos los controles combobox, listbox, button que hace falta?
Código Delphi
[-]
procedure Bloquear(Contenedor: TWinControl; Enabled:Boolean);
var i: integer;
begin
for i := 0 to Contenedor.ControlCount - 1 do
begin
if Contenedor.Controls[i] is TEdit then TEdit(Contenedor.Controls[i]).Enabled:=Enabled
else
if Contenedor.Controls[i] is TWinControl then Bloquear(TWinControl(Contenedor.Controls[i]);
end; end;
y la intencion es llamarlo asi
gracias por todo
aaaaaaaa ya recorde colo que corchetes y la palabra delphi al inicio y al final de cada codigo esperando que sea la forma correcta, si no fuera asi pido que me expliquen como hacerlo porfaaaaa