L lxcy Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-29 #1 我是用vb语句 Clipboard.SetData Picture1.Image 将图像拷贝到剪切板中 然后在delphi中处理，处理完毕后再将图片拷贝到剪切板。
L lxcy Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-29 #2 我是用vb语句 Clipboard.SetData Picture1.Image 将图像拷贝到剪切板中 然后在delphi中处理，处理完毕后再将图片拷贝到剪切板。
风 风铃夜思雨 Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-29 #4 procedure TForm1.Button1Click(Sender: TObject); var Bitmap : TBitmap; begin Bitmap := TBitMap.create; try Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0); Canvas.draw(0,0,Bitmap); finally Bitmap.free; end; end;
procedure TForm1.Button1Click(Sender: TObject); var Bitmap : TBitmap; begin Bitmap := TBitMap.create; try Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0); Canvas.draw(0,0,Bitmap); finally Bitmap.free; end; end;
Z zjan521 Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-29 #5 bitmap.Assign(ClipBoard);
T tswhq Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-30 #6 uses Clipbrd ... bitmap.Assign(ClipBoard);
D delphi_1981 Unregistered / Unconfirmed GUEST, unregistred user! 2005-07-30 #7 uses ClipBoard,..... procedure TForm1.Button1Click(Sender: TObject); var map : TBitmap; begin if ClipBoard.HasFormat(CF_BITMAP) then //首先需要判断剪贴板是否有图象 begin map := TBitMap.create; try map.Assgin(ClipBoard); except map.Free; end; end; Image1.Picture.Assgin(mao); map.Free; end.
uses ClipBoard,..... procedure TForm1.Button1Click(Sender: TObject); var map : TBitmap; begin if ClipBoard.HasFormat(CF_BITMAP) then //首先需要判断剪贴板是否有图象 begin map := TBitMap.create; try map.Assgin(ClipBoard); except map.Free; end; end; Image1.Picture.Assgin(mao); map.Free; end.
