点击快了会闪烁,有解决方案吗?

chinayu2007 chinayu2007 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

.h文件
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
private: // User declarations
TWndMethod OldProc;
void __fastcall NewProc(TMessage &Msg);
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
.cpp文件
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
//SetWindowLong(Button1->Handle, GWL_STYLE, GetWindowLong(Button1->Handle,GWL_STYLE) | BS_OWNERDRAW );

OldProc = Button1->WindowProc;
Button1->WindowProc = NewProc;
DoubleBuffered = true;

//创建圆角矩形按钮,去掉这两句就是默认的矩形区域
HRGN hRgnR = CreateRoundRectRgn(0,0,Button1->Width,Button1->Height,45,45);
SetWindowRgn(Button1->Handle,hRgnR,TRUE);
}
//---------------------------------------------------------------------------
//用到三张图片,分别表示几种状态:正常(移出),移入(抬起),按下
void __fastcall TForm1::NewProc(TMessage &Msg)
{
TRect Rect;
Graphics::TBitmap* Bmp;
TControlCanvas* Canvas;

OldProc(Msg);

if(Msg.Msg == CM_MOUSEENTER)//鼠标移入
{
Bmp = new Graphics::TBitmap;
Bmp->LoadFromFile("over2.bmp");
Bmp->Transparent = true;
Bmp->TransparentColor = clWhite;

Canvas = new TControlCanvas;
Canvas->Control = Button1;
Canvas->Brush->Style= bsClear;

Canvas->CopyRect(TRect(0,0,228,58), Bmp->Canvas,TRect(0,0,228,58));
Canvas->Font->Color=clBlack;

Canvas->TextOutA(23,10,"正常");
delete Bmp; delete Canvas;
}
if(Msg.Msg == CM_MOUSELEAVE)//鼠标移出
{
Bmp = new Graphics::TBitmap;
Bmp->LoadFromFile("normal2.bmp");
Bmp->Transparent = true;
Bmp->TransparentColor = clWhite;//背景透明色

Canvas = new TControlCanvas;
Canvas->Control = Button1;
Canvas->Brush->Style= bsClear; //文字透明

Canvas->Draw(0, 0, Bmp);
Canvas->Font->Color=clBlack;
Canvas->Brush->Style= bsClear;
Canvas->TextOutA(23,10,"正常");
delete Bmp; delete Canvas;
}
if(Msg.Msg == WM_LBUTTONDOWN) //鼠标按下
{
Bmp = new Graphics::TBitmap;
Bmp->LoadFromFile("down2.bmp");
Bmp->Transparent = true;
Bmp->TransparentColor = clWhite;

Canvas = new TControlCanvas;
Canvas->Control = Button1;
Canvas->Control->Parent->DoubleBuffered =true;

Canvas->CopyRect(TRect(0,0,228,58), Bmp->Canvas,TRect(0,0,228,58));
Canvas->Font->Color=clBlack;

Canvas->Brush->Style= bsClear;
Canvas->TextOutA(23,10,"按下");
delete Bmp; delete Canvas;
return;
}
if(Msg.Msg == WM_LBUTTONUP) //鼠标抬起
{
Bmp = new Graphics::TBitmap;
Bmp->LoadFromFile("over2.bmp");

Canvas = new TControlCanvas;
Canvas->Control = Button1;

Canvas->CopyRect(TRect(0,0,228,58), Bmp->Canvas,TRect(0,0,228,58));
Canvas->Font->Color=clBlack;
Canvas->Brush->Style= bsClear;
Canvas->TextOutA(23,10,"抬起");
delete Bmp; delete Canvas;
return;
}

if (Msg.Msg == WM_PAINT || Msg.Msg==BM_SETSTATE)//常规状态
{
Bmp = new Graphics::TBitmap;
Bmp->Transparent = true;
Bmp->TransparentColor = clWhite;

Canvas = new TControlCanvas;
Canvas->Control = Button1;
Canvas->Control->Parent->DoubleBuffered =true;

if(Msg.WParam == MK_LBUTTON)
{
Bmp->LoadFromFile("down2.bmp");
}
else
Bmp->LoadFromFile("normal2.bmp");

Canvas->CopyRect(TRect(0,0,228,58), Bmp->Canvas,TRect(0,0,228,58));

Canvas->Brush->Style= bsClear;
if(Msg.WParam == MK_LBUTTON)
{
Canvas->Font->Color=clBlack;
Canvas->TextOutA(23,10,"按下");
}
else
{
Canvas->Font->Color=clBlack;
Canvas->TextOutA(23,10,"正常");
}
delete Bmp; delete Canvas;
}
}

...全文

相关推荐

评论 7
收藏 已收藏
分享
返回顶部
chinayu2007
C++ Builder 13,871 成员 102,696 内容