hsr////////////////////////////////////////////////
이미지 컴포넌트에 넣어보았습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
H_Clip_Board : THandle;
begin
H_Clip_Board := ClipBoard.GetAsHandle(cf_Bitmap);
if H_Clip_Board <> 0 then
Image1.Picture.LoadFromClipboardFormat(cf_BitMap,H_Clip_Board,0);
end;
이미지 컴포넌트에 넣어보았습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
H_Clip_Board : THandle;
begin
H_Clip_Board := ClipBoard.GetAsHandle(cf_Bitmap);
if H_Clip_Board <> 0 then
Image1.Picture.LoadFromClipboardFormat(cf_BitMap,H_Clip_Board,0);
end;