我现在做了一个管理系统,关于菜单调用的问题:通过下拉菜单可以选择进入具体的模块,也要通过系统中放置的一些图片或文字可以选择这个模块。
现在要求不只是简单的通过单击选择即可,而是要求系统中的图片不能书写ONCLIK事件,但是单击图片也可以使用的。主要因为图片太多了。

解决方案 »

  1.   

    用一个TIMER控件实时检测IMAGE是否获得焦点基本上可以实现。
      

  2.   

    在图片上放一个透明的label,通过label的onClick来触发
      

  3.   

    只需要写一个onclick 事件,其它图片的onclick 都指向那个 onclick 事件即可
    在那个 onclick 事件中,根据 Sender 的不同,进入不同的模块。更简单的方法是,把图片的 onclick 事件指向你的菜单事件。
      

  4.   

    我采用的是  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;
    但是现在不能实现了,请大家看一下吧!