Hola de nuevo.
Cita:
Empezado por oscarac
interesante tu ejemplo pero me bloquea absolutamente todo y quiero que los botones de "Eliminar" y "Cancelar" queden activos
|
Entiendo...
Para el control actual podrías usar:
Código Delphi
[-]
procedure ControlsOn(AForm: TForm; const Active: Boolean);
var
i: Integer;
begin
for i := AForm.ControlCount-1 downto 0 do
if AForm.Controls[i] <> AForm.ActiveControl then
AForm.Controls[i].Enabled := False;
end;
Pero, al tener que mantener activo mas de un botón ('Cancelar' y 'Eliminar'), seguramente te sirva de este modo:
Código Delphi
[-]
type
TControlExt = class(TControl);
procedure ControlsOn(AForm: TForm; const Active: Boolean);
var
i: Integer;
C: TControlExt;
begin
for i := AForm.ControlCount-1 downto 0 do
begin
C := TControlExt(AForm.Controls[i]);
C.Enabled := TControl(C) is TButton and((C.Caption = 'Cancelar') or (C.Caption = 'Eliminar'));
end;
end;
Saludos