我需要从文件中读取相应的配置信息,在客户端程序中自动创建我想要的界面,当然了,界面上放置了许多控件,读取文件自动生成没有问题,可是我怎么把生成控件的动作(事件)绑定到相应的函数呢,也就是说我的事件不在客户端写,客户端程序不改动。能不能把相应的函数放到类似ini文件中,需要的时候读取出来直接赋给自动创建控件的事件呢? 我做的项目是通讯电源监控的,系统需要纳入多种不同设备,为了避免接入新设备就更改客户端程序,所以想让用户定制界面写入配置文件,让客户端调用生成相应的图形界面。这样就不必要老是修改程序了。先谢了!
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,stdCtrls;type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
procedure myClick(sender:Tobject);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormShow(Sender: TObject);
var
btn1:TButton;
begin
btn1:=TButton.create(self);//动态生成button控件
btn1.Parent:=self;
btn1.OnClick:=myClick;//动态生成button的事件代码。
end;procedure TForm1.myClick(sender:Tobject);
begin
ShowMessage('124');
end;end.