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
相关问答：
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
有什么构想讨论一下。
这类东西主要是人气和界面花哨,技术上没什么难点.
这我知道，那技术上的呢？有没有构想一下该怎么设计？主要是delphi自身能不能够完成，若同时大量客户登陆，反应速度如何等等。
引用
......
小弟我用ADO连接SQL server 2000数据库，然后在DBGrid中显示，现在想把在DBGrid中查询到的数据iPlot作图，请问如何实现在DBGrid中的数据读取，读出的数据是STRING类型的，如何有效的转变成数据库中所存储的DOUBLE类� ......
