怎么使用clipboard，在image1里面显示图象！(10分)

S

sohuandsina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-01

• #1

//imgedit，imgscan为kordak的扫描显示控件；
procedure TForm1.Button1Click(Sender: TObject);
begin
imgedit1.zoom:=100;
scan.OpenScanner;
scan.StartScan;
scan.CloseScanner;
///此处也是正确的。
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
imgedit1.DrawSelectionRect(0,0,0,0);//进行图象局部选择
imgedit1.Clipboardcopy(imgedit1.left,imgedit1.top,imgedit1.width,imgedit1.height);
end;
//此处已经把imgedit1的显示区域拷贝到粘贴版
//因为我打开画笔能粘贴到图象
procedure TForm1.Button3Click(Sender: TObject);
begin

end;
///请问有没有人做过类似的程序。把已经拷贝到粘贴板的图象显示在image里面。
谢谢

 

D

donkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-01

• #2

极简单，拷贝到剪贴板的代码如下：
Clipboard.assign(image1.picture);
粘贴到剪贴板的代码如下：
image1.picture.assign(Clipboard);
注意，这里没有进行格式检查，如果想完善一点，自己加上格式检查代码就可以了

 

S

sohuandsina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-01

• #3

Clipboard
我也知道极简单，可是我用你的方法老是提示：undelared identifier:'clipboard'.
我想肯定方法不对。
有其他的吗？

 

D

DarwinZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-01

• #4

加 Uses Clipbrd;
用 Delphi的 Help查一下.

 

S

sohuandsina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-01

• #5

uses Clipboard; 也不行啊。
说找不到Clipboard.dcu;应该不是这么写把。
我也不知道是怎么回事。如果不是已经拷贝到粘贴班了。那为什么我用画笔就能粘贴到呢?

 

W

weekboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-01

• #6

在implementation下加Uses Clipbrd;//别错
if Clipboard.HasFormat(CF_BITMAP) then//剪贴板有
begin
Image1.Picture.Bitmap.Assign(Clipboard);
end;

 

北

北京男人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-01

• #7

用RxLib，有现成的。

 

D

donkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #8

uses
Clipbrd;//这里容易写错
下面的代码是我从我的一个项目中拷贝出来的,D5D6均编译过,软件客户用了一年了

procedure TPatientRecordForm.SpeedButton5Click(Sender: TObject);
begin
clipboard.Assign(WhichPicture.Picture);
end;

procedure TPatientRecordForm.SpeedButton4Click(Sender: TObject);
begin
try
WhichPicture.Picture.Assign(Clipboard);
except
end;
Panel2.Visible := false;
end;

 

S

sohuandsina

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-05

• #9

多人接受答案了。