delphi 开发小问题

[zhaozheng821018]

procedure Tcutbarcode.FormCreate(Sender: TObject);
var bt:Tbutton;
var lefts,i:Integer;
begin
  lefts := 100;
  for i:=0 to 4 do
  begin
    bt := Tbutton.Create(self);
    bt.Parent := self;
    bt.Left := lefts;
    lefts := lefts + bt.Width ;
    bt.Caption := inttostr(i);
    bt.OnClick := clickbt;
  end;
end;

procedure Tcutbarcode.clickbt(Sender:TObject);
begin
//这里如何知道是那个按钮所产生的事件
end;

[tgbd]

showmessage(Tbutton(Sender).caption);

[bdmh]

sender就是点击的按钮，按一楼的转一下就可以了

[ADSLAN]

Tbutton(Sender).caption 通用代码
也可以设置一下tag属性
做个标记

[dropme]

嗯，用caption可以，用tag也可以。

动态生成控件的时候bt.tag:= i；

procedure Tcutbarcode.clickbt(Sender:TObject);
begin
//这里如何知道是那个按钮所产生的事件
case TButton(Sender).tag of
0:{};
1:{};
......
end;

[山东蓝鸟贵薪]

没看明白呀>>>>>>>>>>>

[五哥]

Sender : 就是谁做的

[山东蓝鸟贵薪]

[Quote=引用 7 楼 cai5 的回复:]
Sender : 就是谁做的
[/Quote]
(Sender:TObject);
是定义了一个对象而已

[coding]

with sender as tbutton do
begin
showmessage(caption);
end;

[goodboyiceli]

[Quote=引用 7 楼 cai5 的回复:]

Sender : 就是谁做的
[/Quote]
Sender可以看做是操作对象的引用

[chu_czx444]

这样动态生成按钮，clickbt事件是实现相同操作吧

[cntigercat]

tbutton(sender)强制转换啊

[luo_nh]

正在学习

[yingsuixindong]

tbutton(sender)

[guangfei1984]

一楼正解

[wendyone]

一楼正解，用sender去区分

[sjjwan]

恩，用sender参数，这是在事件发生时vcl框架传递的