简单的送分题!!(100分)

L

liersbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-20

• #1

如果在一个form上有十几个按钮，但它们的onclick事件都是将caption拷贝到clipboard
怎么批量编程？

 

L

lingxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-20

• #2

uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
var clipboard: TClipBoard;
begin
clipboard:=TClipBoard.Create;
with (sender as Tbutton)do
clipboard.astext:= (sender as Tbutton).caption;
end;

 

J

Jamw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-20

• #3

uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
var clipboard: TClipBoard;
begin
clipboard:=TClipBoard.Create;
with (sender as Tbutton)do
clipboard.astext:= caption;
end;
将所有按钮的ONCLICK事件指向该过程。

 

Y

yck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-20

• #4

同意Jamw，他的最后一句最重要：将所有按钮的ONCLICK事件指向该过程。

 

L

liersbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-20

• #5

多人接受答案了。