一个技巧处理的问题:

JZG 2001-07-19 11:29:59
当我在一个窗体中有很我PANEL控件,但当我点击任一PANEL控件时执行一条查找语句如:ADOTABLE1.LOCATE('编号','PANEL.CAPTION',[LOPARTIALKEY]);
就是说比如我点:PANEL1则PANEL.CAPTION=PANEL1.CAPTION),点 PANEL2则PANEL.CAPTION=PANEL2.CAPTION)总之PANEL.CAPTION要是动态的应如何写代码呢?
谢谢!
...全文
52 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
DreamTiger 2001-07-19
  • 打赏
  • 举报
回复
procedure TForm1.Panel1OnClick(Sender:TObject);
begin
ADOTable1.Locate('编号',(Sender as TPanel).CAPTION,[LOPARTIALKEY]);
end;

所有的Panel的OnClick都指向Panel1OnClick
dana 2001-07-19
  • 打赏
  • 举报
回复
在mousedown下写
lastshrill 2001-07-19
  • 打赏
  • 举报
回复
把'PANEL.CAPTION'设为一个字符串变量s,点击PANEL2时,把PANEL2的Caption赋给s再执行
ADOTABLE1.LOCATE('编号',s,[LOPARTIALKEY]);
不就行了
Michaelyfj 2001-07-19
  • 打赏
  • 举报
回复
DreamTiger()说的有理

5,388

社区成员

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

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