Копирование Image

[mustang007]

Драсте! Как сделать чтоб поле image в скомпилированной программе можно было копировать?

[uberchel]

Копиравать куда ??, в др Image или сохранить?

[Пепел Феникса]

открываете Хелп и вводите в предметном указателе ClipBoard
там есть все.
посмотрел за вас
0)активирование буфера обмена:

uses Clipbrd;
-----------------
var
  ClipBoard:TClipBoard;

Юзес рекомендуется именно в конце ставить(Юзес общий в интерфейсной части)
1)копирование в буфер обмена:

procedure TForm1.Copy1Click(Sender: TObject);
begin
  Clipboard.Assign(Image.Picture)
end.

2)вырезание:

procedure TForm1.Cut1Click(Sender: TObject);
var
  ARect: TRect;
begin
  Copy1Click(Sender);	{ copy picture to clipboard }
 with Image.Canvas do
  begin
    CopyMode := cmWhiteness;	{ copy everything as white }
   ARect := Rect(0, 0, Image.Width, Image.Height);	{ get bitmap rectangle }
   CopyRect(ARect, Image.Canvas, ARect);	{ copy bitmap over itself }
   CopyMode := cmSrcCopy;	{ restore normal mode }
  end;
end;

3)вставка:

procedure TForm1.PasteButtonClick(Sender: TObject);
var
  Bitmap: TBitmap;
begin
 if Clipboard.HasFormat(CF_BITMAP) then	{ is there a bitmap on the Windows clipboard? )
 begin
   Image1.Picture.Bitmap.Assign(Clipboard);
 end;
end;

[mustang007]

Пепел Феникса спасибо!