左右に二つの画像があったとしてその画像を入れ替える方法がわからないのでわかるかたがいましたら回答お願いします
それは 2個の 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さん
たびたび教えていただきありがとうございます
やっとかんせいすることができました
ツイート | ![]() |