我动态创建了一个对象,怎么为他动态创建一个时间
例如:
button1:=tbuuton1.create(self);
怎么给button1创建onclick事件?如果不需要,怎么直接使用这个事件?代码怎么写?
例如:
button1:=tbuuton1.create(self);
怎么给button1创建onclick事件?如果不需要,怎么直接使用这个事件?代码怎么写?
解决方案 »
- delphi数据库开发有6,7年了,去面试还有人问主从表怎么链接。
- 求一段SQL语句
- 定义一个存储过程参数的结构或类,如何规定参数类型
- 请问如何现实这个目标?
- 代码没问题,可只能修改ADOTABLE的第一行数据,修改不了其他的??代码在里面,谢谢帮忙!!
- UDP协议怎么向局哉网中所有的人发个消
- 求表中几行的列相加,结果赋值于第1行的sql最简单写法(菜鸟级)!
- 请问如何用语句来使窗口最大化或者最小化?比如我要按一个BUTTON然后使窗口最大化,而不是按窗口右上角。
- DCOM客户端无法调用服务器端
- function Execute(const SQL: String; Params: TParams = nil; Cache: Boolean
- intraweb下刷新记录的办法(在线等)
- 在Delphi如何实现让一个程序运行受时间控制?用什么方法来实现?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
MyButton1 : TButton;
procedure AButtonClick(Sender: TObject);
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
MyButton1 := TButton.Create(Self);
with MyButton1 do
begin
Name := 'MyButton1';
Left := 10;
Top := 10;
Width := 120;
Height := 32;
Caption := '测试';
Parent := Self;
OnClick := AButtonClick;
end;
end;procedure TForm1.AButtonClick(Sender: TObject);
begin
ShowMessage (TButton(Sender).Name + ' be clicked.');
end;end.