高手不要错过了,很难的问题!

leilu 2003-09-04 11:43:18
我现在做了一个管理系统,关于菜单调用的问题:通过下拉菜单可以选择进入具体的模块,也要通过系统中放置的一些图片或文字可以选择这个模块。
现在要求不只是简单的通过单击选择即可,而是要求系统中的图片不能书写ONCLIK事件,但是单击图片也可以使用的。主要因为图片太多了。
...全文
25 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhudongpo 2003-09-04
  • 打赏
  • 举报
回复
解决方案以发到你的信箱
leilu 2003-09-04
  • 打赏
  • 举报
回复
我采用的是 FOR L:=0 TO ComponentCount-1 DO
BEGIN
IF Components[L] IS TMyImage THEN
begin
//TMyImage(Components[l]).Enabled:=true;
for i:=0 to Form1.MainMenu1.Items.Count-1 do
begin
for j:=0 to Form1.MainMenu1.Items[i].Count-1 do
begin
IF (UpperCase(FORM1.MainMenu1.Items.Items[I].Items[J].NAME)=
UpperCase(TMyImage(Components[L]).Hint))
AND (FORM1.MainMenu1.Items.Items[I].Items[J].Enabled) THEN
begin
TMyImage(Components[L]).Enabled:=True;
end;
end;
end;
end;
END;
但是现在不能实现了,请大家看一下吧!
hiflower 2003-09-04
  • 打赏
  • 举报
回复
只需要写一个onclick 事件,其它图片的onclick 都指向那个 onclick 事件即可
在那个 onclick 事件中,根据 Sender 的不同,进入不同的模块。

更简单的方法是,把图片的 onclick 事件指向你的菜单事件。
yoisyois 2003-09-04
  • 打赏
  • 举报
回复
在图片上放一个透明的label,通过label的onClick来触发
tellyes 2003-09-04
  • 打赏
  • 举报
回复
用一个TIMER控件实时检测IMAGE是否获得焦点基本上可以实现。

5,388

社区成员

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

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