hola
El tema es que la herencia en un TDateTimePicker es asi:
Código:
TDateTimePicker = class(TCommonCalendar) --> TCommonCalendar = class(TWinControl)
q
y salvo el TWinControl no tiene nada mas en común con respecto a los TEdit / TDBEdit
Código:
TEdit = class(TCustomEdit) --> TCustomEdit = class(TWinControl)
TDBEdit = class(TCustomMaskEdit) --> TCustomMaskEdit = class(TCustomEdit) --> TCustomEdit = class(TWinControl)
Una idea como te ha sugerido caminante es preguntar por TWinControl, lo que pasa que si tienes otros componentes que hereden de TWinControl en el form y seguramente si (botones, grids, etc) puedes terminar desabilitando mas de los que realmente te interesan.
Otra opción es buscar solamente los que quieres desabilitar:
Código Delphi
[-]procedure BloquearEdits(Form: TForm);
var
i: Integer;
begin
for i := 0 to (Form.ComponentCount - 1) do begin
if (Form.Components[i] is TCustomEdit) then
TCustomEdit(Form.Components[i]).Enabled := False
else if (Form.Components[i] is TDateTimePicker) then
TDateTimePicker(Form.Components[i]).Enabled := False;
end;
end;