La función no es ningún misterio, y es análoga a DeshabilitaTodo (salvo en el botón de cancelar):
Cita:
procedure TForm1.HabilitaTodo(Sender: TObject);
begin
EditFileName.Enabled := true;
EditDest.Enabled := true;
Button1.Enabled := true;
BtnDecode.Enabled := true;
Titulo.Enabled := true;
Artista.Enabled := true;
Album.Enabled := true;
Fecha.Enabled := true;
Pista.Enabled := true;
Genero.Enabled := true;
CheckBoxVentana.Enabled := true;
CheckVentanas.Enabled := CheckBoxVentana.Checked;
Memo1.Enabled := true;
end;
|
Asímismo le añadí la cabecera del método arriba en la declaración de cabebceras:
Cita:
|
procedure TForm1.HabilitaTodo(Sender: TObject);
|