delphi中动态添加了几个组件,每个组件如何应对事件
在一个窗体上放一个EDIT,然后动态产生五个BUTTON,每个CAPTION上都有一个数字,设想按不同的BUTTON,可在EDIT上产生其BUTTON.CAPTION.但我不知如何做五个BUTTON的事件,请大佬帮助!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
var
bt:tbutton;
i:integer;
begin
for i:=0 to 5 do
begin
bt:=tbutton.Create(self);
bt.parent:=form1;
bt.top:=10+25*i;
bt.left:=10;
bt.height:=25;
bt.width:=75;
bt.caption:=inttostr(i);
bt.show;
end;
end;
end.
Delphi(Pascal) code:
定义自己的Click事件
procedure MyClick(Sender:TObject);
将你动态生成的按钮的OnClick事件指向MyClick
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.OnClick := MyClick;//此处已bu
相关问答：
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
各位大虾，小弟用的是ADO连接ACCESS数据库，用DBGrid显示查询的数据，我做的是个数据采集系统，根据不同的地址把数据放在ACCESS数据库中不同的表里面，现在我想查询某一段时间内所有表内的数据，并且在DBGrid中显示� ......
小弟我用ADO连接SQL server 2000数据库，然后在DBGrid中显示，现在想把在DBGrid中查询到的数据iPlot作图，请问如何实现在DBGrid中的数据读取，读出的数据是STRING类型的，如何有效的转变成数据库中所存储的DOUBLE类� ......
要包含winsock2 而且详细些的。
那些使用控件的的书本就不要了，
希望买过这类书的朋友能推荐下自己觉得不错的。
来关注下。
Windows网络与通信程序设计(第2版)
蓝皮的是新版,虽然是中国人写的但是非� ......
按不同的人，不同的权限分别开。
方法太多了……在用户的信息中多个菜单列表。或者按权限标记在菜单的tag里面，然后用户权限与这个权限做对比。太多了……
一般控制action
用角色控制
我现在正好在做这方� ......
