metafile

[[Héctor Randolph]]

Aqui te pongo dos formas de hacerlo, la primera es para pegar el metafile desde el portapapeles de Windows y la segunda desde un archivo.

Código Delphi [-]
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;

Esta otra forma es para abrir el metafile desde un archivo.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Picture.MetaFile.LoadFromFile('c:\drawing.wmf');
end;

Espero que te sea útil.