Ver Mensaje Individual
  #2  
Antiguo 23-02-2017
juniorSoft juniorSoft is offline
Miembro
 
Registrado: abr 2005
Posts: 178
Reputación: 19
juniorSoft Va por buen camino
Ya, me respondo y a cualquiera que le pueda ser util

Código Delphi [-]
procedure TFrmCalculadora.AcPegarExecute(Sender: TObject);
var
  Clipboard: IFMXClipboardService;
  Value: TValue;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,
  IInterface(Clipboard)) then
  begin
     Value := Clipboard.GetClipboard;
     if StrToFloatDef(Value.AsString, -0) <> -0 then
         Display.Text:=Value.AsString
     else
        Display.Text:='0';
   end;
   end;
end;

Última edición por juniorSoft fecha: 23-02-2017 a las 20:02:22.
Responder Con Cita