Programación General > Delphi

 Recuperación De Un Metafile Desde El Portapapeles

<< < (2/2)

bartolomeo:
En la ayuda de delphi tienes un ejemplo, busca "SaveToClipboardFormat, SetAsHandle example".

Para cortar y pegar, busca en la ayuda sobre "Clipboard", la unidad en delphi es Clipbrd, añadiendolo a los uses de tu form, ya puedes consultar si hay una imagen en el portapapeles; sería algo así como : if Clipboard.Hasformat(


--- Código: Text ---Código Delphi:if (Clipboard.HasFormat(CF_BITMAP)) or(Clipboard.HasFormat(CF_METAFILEPICT)) or(Clipboard.HasFormat(CF_PICTURE)) then//CF_BITMAP  A Windows bitmap graphic.//CF_METAFILEPICT  A Windows metafile graphic.//CF_PICTURE  An object of type TPicture.begin...end;  
 :hola:

bartolomeo:
Lo anterior lo encontre en la web y fue publicado por otro forista.

con esto puedes adaptarlo a tu problema y solucionarlo. Chausss

bartolomeo:
Mira mas:



--- Código: Text ---uses  ClipBrd; // No olvides agregar esta línea en los uses procedure TForm1.Button1Click(Sender: TObject);begin if Clipboard.HasFormat(  CF_METAFILEPICT ) then   Image1.Picture.Metafile.Assign(ClipBoard) else   ShowMessage('El contenido del portapapeles no es un MetaFile');end; 

fxge:
Gracias Bartolomeo, este código si permitió cargar el metafile desde el portapapeles y visualizarlo en unTImage


If clipboard.HasFormat(CF_METAFILEPICT) then begin

      Metafile:=TMetaFile.create;
      MetaFile.Assign(clipboard);

      image1.Picture.Metafile := Metafile;

      MetaFile.Free;

 end;

bartolomeo:
Pues perfecto, me alegra mucho, aunque fijate bien en la estructura de los codigos que te pase, son perfectamente funcionales yo mismo ya los probe, solo era custeion de adaptarlos a una necesidad especifica

Navegación

[0] Índice de Mensajes

[*] Página Anterior