动态创建控件的问题?? 我在代码中创建了一个控件,然后怎么样可以响应这个控件的事件??新手提问,请大家多多指教,谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure YourClick(Sender: TObject); public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var lTmpBtn: TButton;begin lTmpBtn := TButton.Create(Self); lTmpBtn.Parent := Self; lTmpBtn.Caption := 'Test'; lTmpBtn.OnClick := YourClick;end;procedure TForm1.YourClick(Sender: TObject);begin ShowMessage('Test OK!');end;end. ◆ 超级难题 Delphi 7 文本框及代码编辑器中无法输入特殊字符◆ sqlserver更新的简单问题 用DELPHI写了个QQ群发 直接利用UDP2005B2协议 非钩子 请教高手!关于组件问题,谢谢!! 50分急问:CTRL+Z的Unicode值是什么?怎样转换成unicode? 哪位老兄能提供delphi4或delphi3的下载地址,不胜感激! 求教:关于socket!up者有分! 知道存储过程进来交流一下 异步socket编程(不用控件),给出最高分79 如何连续打印文本? 关于安装程序的制作?delphi+BDE+dbase+wise 请教两个关于fastreport 的问题
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure YourClick(Sender: TObject);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
lTmpBtn: TButton;
begin
lTmpBtn := TButton.Create(Self);
lTmpBtn.Parent := Self;
lTmpBtn.Caption := 'Test';
lTmpBtn.OnClick := YourClick;
end;procedure TForm1.YourClick(Sender: TObject);
begin
ShowMessage('Test OK!');
end;end.