请教高手,如果调用动态创建的TEDIT控件的KEYDOWN事件

soundbug 2003-08-18 04:53:06
我创建EDIT是一个TEDIT数组
...全文
70 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
soundbug 2003-08-18
  • 打赏
  • 举报
回复
谢谢楼上几位仁兄,结帐了
overtime 2003-08-18
  • 打赏
  • 举报
回复
你先声明一个过程然后用指针关联这个过程就可以了
过程的参数应该是和onkeydown一样的
hansome 2003-08-18
  • 打赏
  • 举报
回复
先定义过程
procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
然后事件赋值
for i:=0 to 127 do
Edit[i].OnKeyDown := EditKeyDown;
最后是实现
procedure TForm1.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
97866 2003-08-18
  • 打赏
  • 举报
回复
调用已有的Edit1 OnKeyDown事件。
Edit1KeyDown(Edit1,Vk_Return,[ssShift]);

动态创建TEDit 的KeyDown事件。
Edit1.OnKeyDown:=自定义的OnKeyDown事件。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧