Вставка картинки
Вставка картинки
Вставка картинки procedure TForm1.Button1Click(Sender: TObject);// Это из "готовой" картинки на форме begin InsertBitmapToRE(RichEdit1.Handle,Image1.Picture.Bitmap.Handle); end; procedure TForm1.Button2Click(Sender: TObject);// это загружая из файла var bmp:TBitmap; begin if (not OpenPictureDialog1.Execute) then exit; bmp:=TBitmap.Create; try bmp.LoadFromFile(OpenPictureDialog1.Filename); InsertBitmapToRE(RichEdit1.Handle,bmp.Handle); finally bmp.Free end end;
