Delphi里有哪个控件可以实现下面功能:有按钮的功能(click),然后可以在mousemove的时候产生突出或下陷的效果,然后平时是平面的,和label一样。

解决方案 »

  1.   

    abc控件在哪里呢?还有flatstyle
      

  2.   

    你可以在 mousemove ,onclick 事件里写。
      控件也是这样做的。只是切换图片而以。
      

  3.   

    根据我的理解你用panel控件,它本身也有click事件,并且你先把panel的BevelOuter属性设为bvnone
    procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
    Panel1.BevelInner:=bvLowered;
    end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
      Panel1.BevelInner:=bvRaised;
    end;
    procedure TForm1.Panel1Click(Sender: TObject);
    begin
    showmessage('测试');
    end;
      

  4.   

    但有个问题:Panel好象没有图像的属性。