クリップボードからFormに貼り付け (ID：27981)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

>>Mr.XRAYさん
アドバイスありがとうございます！
Mr.XRAYさんの例で試したのですが、やはり上手くいきませんでした・・・

自分なりに、これでいいかなぁ〜・・・
ってな所まで何とか表示できるようになりました。

追加したのは、縦・横の論理インチを求めて
MMWidthプロパティ * 論理インチ(X) ÷  2540
MMHeightプロパティ * 論理インチ(Y) ÷  2540  
から
WidthプロパティとHeightプロパティを求める方法をとりました

これで良いのかどうかはわからないですが、とりあえず望んでいたような形にはなりましたので解決としときます。

procedure TForm1.Button1Click(Sender: TObject);
var
  xlinch : integer;
  ylinch : integer;
begin

if Clipboard.HasFormat(CF_ENHMETAFILE) = False then
  begin
    showmessage('貼り付けファイルが存在しません');
    Exit;
  end;

//**追加**
  xlinch := GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
  ylinch := GetDeviceCaps(Canvas.Handle, LOGPIXELSY);
//**追加**

Clipboard.Open;

Meta_F.LoadFromClipboardFormat(CF_ENHMETAFILE,
             Clipboard.GetAsHandle(CF_ENHMETAFILE), 0);
  //メタファイルの大きさをフォームに

//**追加**
  meta_f.Width  := int64(meta_f.MMWidth * xlinch) div 2540;
  meta_f.Height := int64(meta_f.MMHeight * ylinch) div 2540;
//**追加**

Form1.Height := Meta_F.Height;
  Form1.Width := Meta_F.Width;

Clipboard.Close;

Refresh;
end;

←解決時は質問者本人がここをチェックしてください。