Код:
procedure TForm1.Button1Click(Sender: TObject);
var
bm:TMemoryStream;
begin
bm:=TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(bm);
Image2.Picture.Bitmap.LoadFromStream(bm);
bm.Free;
end;
Админ: Пользуемся тегами для оформления кода!
использую такой вот код, но image1 очищается т.е. картинка пропадает и image2 не получает изображение
голову изломал ни где не могу найти как понять в чем дело