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
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
要包含winsock2 而且详细些的。
那些使用控件的的书本就不要了，
希望买过这类书的朋友能推荐下自己觉得不错的。
来关注下。
Windows网络与通信程序设计(第2版)
蓝皮的是新版,虽然是中国人写的但是非� ......
