二つの画像交差

---

左右に二つの画像があったとしてその画像を入れ替える方法がわからないのでわかるかたがいましたら回答お願いします

編集    削除

---

それは  ２個の TImage があってその二つの画像を入れ替えたいって事かな？

編集    削除

---

そのとおりです。わかりますか？

編集    削除

---

手順としては

//Image1 -> Bitmap にコピー
Bitmap.Assign(Image1.Picture.Bitmap);
//Image2 -> Image1 にコピー
Image1.Picture.Bitmap.Assign(Image1.Picture.Bitmap);
//Bitmap -> Image2 にコピー
Image2.Picture.Bitmap.Assign(Bitmap);

かな？

TImage の座標を入れ替えてもいいかもしれない

編集    削除

---

座標軸を入れ替える場合もおしえていただけないでしょうか？

編集    削除

---

KHE00221さん

手順としてはimage1,2をフォーム上に貼り付けて.pasに以上のソースを貼り付けたのですがいれかわらなかったのですがまちがっていますか？度々聞いてすいません。返信お願いします

編集    削除

---

横レスですが、

//Image1 -> Bitmap にコピー
Bitmap.Assign(Image1.Picture.Bitmap);
//Image2 -> Image1 にコピー
Image1.Picture.Bitmap.Assign(Image1.Picture.Bitmap);
//Bitmap -> Image2 にコピー
Image2.Picture.Bitmap.Assign(Bitmap);

にミスタイプがありますね。

//Image2 -> Image1 にコピー
Image1.Picture.Bitmap.Assign(Image1.Picture.Bitmap);
↓
//Image2 -> Image1 にコピー
Image1.Picture.Bitmap.Assign(Image2.Picture.Bitmap);

後のImageの名前がImage2です。

編集    削除

---

なるほど＾＾

自分の手順は間違ってはいないですか？

編集    削除

---

おもさん，KHE00221さん

//Image1 -> Bitmap にコピー
Bitmap.Assign(Image1.Picture.Bitmap);

この部分なのですがBitmapの変数ってTimageでいいんですか？
Timageでやったら通るのですが反応がありません

編集    削除

---

var
   Bitmap : TBitmap;
begin
   Bitmap := TBitmap.Create;

   //上記の入れ替え処理

   Bitmap.Free;
end;

編集    削除

---

KHE00221さん

たびたび教えていただきありがとうございます

やっとかんせいすることができました

編集    削除

---

名前

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

本文

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