걸음마 wrote:

> adobe 나 그림판에서 혹은 화면을 캡쳐한 정보는 클립보드로 들어 간다고 그러던데요

> 그래서, 그 클립보드로부터 이미지 정보를 읽어들여서 image component 위에

> 올려 놓고 싶은데 어떻게 해야하나요?

> 갈켜주세요.

>



안녕하십니까?

델세상(http://www.freechal.com/delphiworld)의 조규춘입니다.



클립보드를 이용하는 방법에 대해서 ...........



procedure copybutton........

begin

Clipboard.Assign(Image.Picture);

end;





procedure CutButton

var

ARect : TRect;

begin

Clipboard.Assign(Image.Picture);

with Image.Canvas do

begin

CopyMode := cmWhiteness;

ARect := Rect(0, 0, Image.Width, Image.Height);

CopyRect(ARect, Image.Canvas, ARect);

CopyMode := cmSrcCopy;

end;

end;







procedure PasteButton

var

Bitmap: TBitmap;

begin

if Clipboard.HasFormat(CF_BITMAP) then

begin

Bitmap := TBitmap.Create;

try

Bitmap.Assign(Clipboard);

Image.Canvas.Draw(0, 0, Bitmap);

finally

Bitmap.Free;

end;

end;

end;



행복하셔용~