动态创建事件问题

2004-05-08 09:59:55 152 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

长上下文技术的底层逻辑：Attention、压缩、缓存与跨页推理如果把模型的参数视为“固化智能”，动态智能（Dynamic Intelligence）——模型不必依赖训练时的记忆，而是可以随时调用外部信息。这一点正在改变大模型的范式：Prompt 不再是输入，而是“操作系统事件”文档不再是知识，而是“模型的临时记忆”模型不再是一段神经网络，而是一个“具备阅读循环的推理引擎”当我们把上下文从 128K 拉到百万级，我们做的不是扩容，而是让模型第一次拥有阅读、回溯、定位、跨页分析的能力。这是一种新的智能。阅读详情

如何给动态创建的控件填加事件

...全文

U盘安装单系统ubuntu10.04之全过程&拔掉U盘后系统无法启动借助U盘把电脑装成ubuntu单系统之过程记录，以及遇到拔掉U盘后系统无法启动问题，电脑就显示： Non-System disk or disk error， replace and strike any key when ready 阅读详情

sunyu1

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

sunyu1 2004-05-12

打赏
举报

谢谢大家，我感动的痛哭流涕，立即结贴

夜o猫 2004-05-12

打赏
举报

咦，虾皮红怎么跑到我前面去了!郁闷!...

夜o猫 2004-05-12

打赏
举报

1、先为窗口类对象建立一个过程或者函数：
procedure TForm1.MyShow(Sender:TObject);
begin
showmessage(‘你按下 NO.'+IntToStr(TButton(Sender).Tag+1)+'按扭')
end;

2、别忘记在窗口类的public或者pirvate部分加入以下声明：
procedure MyShow(Sender:TObject);

3、然后这样：
VAR
btn:array of TButton;

4、再在创建BUTTON时这样写：
...
setlength(btn,100)
for i:=low(btn) to high(btn) do
begin
btn[i]:=TButton.Create(Self) ;
btn[i].tag:=i;//或者 Button.hint:=i;注意，这是关键
btn[i].OnClick := MyShow;
end;
...

OK，至此一切搞定!
记住，动态数组的下标从0开始!

happyhong 2004-05-12

打赏
举报

我来帮你解决,给点实际的:

首先创建全局量
var
CBtem:array of Tcheckbox;

然后再在需要的地方
var
i:integer;
begin
Setlength(CBtem,100);

CBtem[i]:=Tcheckbox.Create(self);
CBtem[i].Parent:=ScrollBox1;
CBtem[i].Left:=20;
CBtem[i].Top:=i*30;
CBtem[i].Width:=200;
CBtem[i].Name:='CBtem'+IntToStr(i);
CBtem[i].Tag:=i;
CBtem[i].Caption:=driverStr;
CBtem[i].OnClick:=myCheckclick;
CBtem[i].Show;
end;

再自定义CBTEM数组的CLICK事件
procedure TForm1.MyCheckClick(sender:tobject);
var
k:integer;
begin

for k:=1 to i-1 do
begin

if (sender as tcheckbox).Tag=k then
begin
做你想做的;
end;

end;

end;

sunyu1 2004-05-12

打赏
举报

没人能解决吗？郁闷……

如果动态创建100个BUTTON每个button实现showmessage(‘你按下 NO.'+X+'按扭')难道要创建100个过程？？？？？？？？？？

happyhong 2004-05-12

打赏
举报

我和你的分数还是一样呀,远程导弹

江宁侯哥 2004-05-11

打赏
举报

procedure myfunction(sender:object);
begin
showmessage(‘你按下'+(sender as tbutton).caption+'按扭');
end;

button1 :=tbutton1.Create(self);
button1.Caption :='...';
button1.oncilck:=myfunction;

sunyu1 2004-05-11

打赏
举报

没人能解决吗？郁闷……

如果动态创建100个BUTTON每个button实现showmessage(‘你按下 NO.'+X+'按扭')难道要创建100个过程？？？？？？？？？？

lijinghe1 2004-05-11

打赏
举报

同一过程可以付给所有按扭的ONCLICK；
如果在过程中需要知道是哪个按扭点击了可以用sender来判断。

stiffe 2004-05-11

打赏
举报

创建的时候
Button.Targer = i;
则showmessage时显示Button.Targer

lijinghe1 2004-05-11

打赏
举报

procedure TForm1.myfunction(Sender: TObject);
begin
showmessage('怎么还不明白！');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 0 to 100 do
with TButton.Create(Self) do begin
Parent := Self;
OnClick := myfunction;
end;
end;

lwj_dxy 2004-05-11

打赏
举报

sunyu1 2004-05-11

打赏
举报

没人能解决吗？郁闷……

如果动态创建100个BUTTON每个button实现showmessage(‘你按下 NO.'+X+'按扭')难道要创建100个过程？？？？？？？？？？

lijinghe1 2004-05-11

打赏
举报

建一个过程，每个button.OnClick := Button1Click;

sunyu1 2004-05-11

打赏
举报

如果动态创建100个BUTTON每个button实现showmessage(‘你按下 NO.'+X+'按扭')难道要创建100个过程？？？？？？？？？？

sunyu1 2004-05-08

打赏
举报

fim可以说的详细点吗？

fim 2004-05-08

打赏
举报

预先写下事件处理过程，然后动态绑定

sunyu1 2004-05-08

打赏
举报

是在程序运行是创建的控件，不能在写程序时就知道这个控件叫什么名字啊！
就没法写***.on***这样的代码啊。

ckendy 2004-05-08

打赏
举报

第一个我试了行的。第二个能具体点吗？

dickeybird888 2004-05-08

打赏
举报

var
s:tbutton;
begin
s:=tbutton.create(self);
s.onclick:=mmclick;//设置事件响应函数
end;

//另写一mmClick
procedure mmClick(Sender as TObject);
begin
//Process..
end;

加载更多回复（3）

动态创建事件问题

相关推荐