Vsun Sky ── 阿永的博客

 

在TBitBtn钮上单击鼠标,然后放开鼠标,按钮能保持按下状态,再次单击,能恢复成弹起状态?

论坛上看到能人提这个问题,就试着做了做,重载了TBitBtn

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    procedure MyOnMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    { Private declarations }
  public
    { Public declarations }
  end;
type
  MyTBitBtn = class(TBitBtn)
  private
    DownStat: Boolean;
    procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;
  end;
var
  Form1: TForm1;
  NewTBitBtn: MyTBitBtn;

implementation

{$R *.dfm}

procedure TForm1.MyOnMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then MyTBitBtn(Sender).DownStat := not MyTBitBtn(Sender).DownStat;
  SendMessage(MyTBitBtn(Sender).Handle, CM_INVALIDATE, 0, 0); //让按钮重画
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  NewTBitBtn := MyTBitBtn.Create(self);
  NewTBitBtn.Parent := self;
  NewTBitBtn.Top := 100;
  NewTBitBtn.Left := 100;
  NewTBitBtn.DownStat := false;
  NewTBitBtn.OnMouseUp := MyOnMouseUp;
end;


{ MyTBitBtn }

procedure MyTBitBtn.CNDrawItem(var Message: TWMDrawItem);
begin
  if DownStat then Message.DrawItemStruct.itemState := 17;
  inherited;
end;

end.

 

 


 

阅读更多
个人分类: Delphi
想对作者说点什么? 我来说一句

vc中修改按钮图像的小程序

2009年04月04日 138KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭