zmskinbutton.pas

皮肤按钮 skinbutton transpanel ... 欢迎改进

unit ZMSkinButton;

interface

uses
  windows,SysUtils, Classes, Controls,graphics,messages;

type
  TZMSkinButton = class(TCustomControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure WndProc(var Msg: TMessage); override;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Published declarations }
  end;

implementation

                        
end.