http://www.csdn.net/expert/topic/226/226635.shtm
解决方案 »
- u盘拔出(弹出、禁用)程序代码
- 一个treeview1问题?
- 关于sql 子句set的使用问题???????
- 如何截获系统桌面刷新消息?
- 問個簡單問題為什么 日期-日期=日期
- 小妹有问题要问。困了我好几天,是有关excel中读取批注的问题.为什么批注为空,我的程序就会报错,什么原因呀,问题解决了马上结帖!!!
- 开仓放粮了—有三条裤衩可以换洗了:)
- 有关UDP的问题!!
- 高手快来,先给出100分,不够再加!有关邮件的问题.....................
- 高手们!哪个知道DBBackup2.0中例子的"系统表"选项的作用或含义是什么?
- 我是个菜鸟,苦于手边没有很好的入门资料,请各位大虾指点迷津,那里可以下载delphi书刊!!!
- 如何取得Outlook地址簿中所有的地址?
MyButton.OnClick:=MyClick(假设拟创建的按钮名为MyButton
它的属性、方法、事件都类似。
vbutton.vonclick := procedurename;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Button2: TButton;
procedure BtnClick(Sender: TObject);
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
Button2 := TButton.Create(Self);
with Button2 do begin
Parent := Self;
Caption := 'Button2';
OnClick := BtnClick;
end;
end;procedure TForm1.BtnClick(Sender: TObject);
begin
ShowMessage('This is Button2 Event.');
end;
end.