Como ultima Interrogante de este caso, sería muy costoso en términos de recursos utilizar el evento onUpdate de la acción para verificar si hay datos en el Portapapeles; en VCL esa acción para el TActionList viene Stadard. Como lo hice funciona bien pero uno siempre trata de hacer las cosas lo mejor que se puede.
Siempre que puedo evito tener que usar este evento para mantener activo/inactivos controles pero en casos como este la opción pegar solo estaría activa si hay algo en el portapapeles y en este caso un número
Definí el OnUpdate de la Acción de la siguiente manera
Cita:
procedure TFrmCalculadora.AcPegarUpdate(Sender: TObject);
var
Clipboard: IFMXClipboardService;
Valueouble;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,
IInterface(Clipboard)) then
TAction(Sender).Enabled:= TryStrToFloat(Clipboard.GetClipboard.ToString, Value);
end;
|
Gracias nuevamente
AgustinOrtu