pues sí, Marcos, es que yo sólo lo probaba con un simple clic, no con un doble clic.
El doble clic hace fallar tb a mi previsualizador
No se como lo hará el Preview del QR, pero en el mio hace lo siguiente
Código Delphi
[-]
procedure TPrevi.ImprimirExecute(Sender: TObject);
begin
Preview.QRPrinter.Print;
end;
Bueno, hacía, porqué lo que cambiado por esto
Código Delphi
[-]
procedure TPrevi.ImprimirExecute(Sender: TObject);
procedure HabilitaBotones(Estado: boolean);
var
i: integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TSpeedButton then
TSpeedButton(Components[i]).Enabled := Estado;
Application.ProcessMessages;
end;
begin
HabilitaBotones(false);
try
Preview.QRPrinter.Print;
finally
HabilitaBotones(true);
end;
end;
El problema: Que el método Print no hace que el programa "se pare" en esa linea y vuelve a desbloquear los controles
Miraré a ver como se puede controlar el tema