email to [email protected] ,please. Thank you!

解决方案 »

  1.   

    如果找不到第三方控件,可以试着用Panel当作Button,Panel可以设置Color。
      

  2.   

    如果找不到第三方控件,可以试着用Panel当作Button,Panel可以设置Color。
      

  3.   

    但它没有按钮被按下去的效果,不过改一下Panel 的BevelOuter属性就可以了!
    procedure TForm1.Panel1MouseDown(Sender:TObject;Button: TMouseButton;Shift:TShiftState;X,Y:Integer);
    begin
      Panel1.BevelOuter:=bvLowered;
    end;
    procedure TForm1.Panel1MouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
    begin
      Panel1.BevelOuter:=bvNone;
    end;