掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームのビットマップイメージを取得するには？ (ID：8917)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Button1をクリックしてForm1のビットマップイメージを取得し、 それをImage1に表示したいのですが、下記のように書くと Image1に黒く表示されただけでどうもForm1のイメージはとれて いません。どの辺が間違っているのでしょうか？ procedure TForm1.Button1Click(Sender: TObject); var hdcForm,hdcCopy: HDC; begin Bitmap := TBitMap.Create; hdcForm := GetDC(Form1.Handle); hdcCopy := CreateCompatibleDC(hdcForm); Bitmap.Handle := CreateCompatibleBitmap(hdcCopy,Form1.Width ,Form1.Height); Image1.Picture.Bitmap := Bitmap; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.