开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > 按钮控件 > 查看源码
Unit1.cpp
资源名称：XPbutton.rar　[点击查看]
上传用户：jjjzlw
上传日期：2022-05-15
资源大小：695k
文件大小：13k
源码类别：

按钮控件

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  3. #include <vcl.h>
  4. #pragma hdrstop
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. int w;
  12. void *OldProc;  // 保存旧的消息处理函数地址入口
  13. int flag1=0;
  14. int flag2=0;
  15. int SetF =0;
  16. //---------------------------------------------------------------------------
  17. __fastcall TForm1::TForm1(TComponent* Owner)
  18.         : TForm(Owner)
  19. {
  20.         this->DoubleBuffered=true;
  21. }
  22. //---------------------------------------------------------------------------
  23. void __fastcall TForm1::FormCreate(TObject *Sender)
  24. {
  25.         HRGN rgn;
  26.         rgn=CreateRoundRectRgn(0,0,75,25,4,4);
  27.         SetWindowRgn(Button5->Handle,rgn,TRUE);
  29.         TCanvas *can = new TCanvas();
  30.         HDC ae = GetDC(Button5->Handle);
  31.         can->Handle = ae;
  32.         can->Brush->Style = bsClear;
  33.         can->Brush->Color = clBackground;
  34.         can->Pen->Color = clBackground;
  35.         can->Pen->Width = 1;
  36.         can->RoundRect(0,0,75,25,5,5);
  37.         can->Font->Color = clBlack;
  38.         can->Brush->Style = bsClear;
  39.         ReleaseDC(Button5->Handle,ae);
  40.         delete can;
  42.         Button5->WindowProc = NewProc3;
  43. }
  44. void __fastcall TForm1::NewProc3(TMessage &msg)
  45. {
  46.     TCanvas *can = new TCanvas();
  47.     TRect r;
  48.     HDC ae = GetDC(Button5->Handle);
  49.     switch (msg.Msg)
  50.     {
  51.         case WM_PAINT:
  52.                 Button5->Dispatch(&msg);
  53.                 can->Handle = ae;
  54.                 /////////////////加底色,刷屏幕
  55.                 can->Brush->Style = bsClear;
  56.                 can->Brush->Color = clBackground;
  57.                 can->Pen->Color = clBackground;
  58.                 can->Pen->Width = 1;
  59.                 can->RoundRect(0,0,Button5->Width,Button5->Height,5,5);
  60.                 /////////////////重画新的边框,并重填按钮色彩
  61.                 can->Brush->Style = bsClear;
  62.                 can->Brush->Color = TColor(0xEEF5FF);
  63.                 can->Pen->Color = TColor(0xEBCE87);
  64.                 can->RoundRect(1,1,73,23,5,5);
  65.                 can->Font->Color = clBlack;
  66.                 can->Brush->Style = bsClear;
  67.                 can->TextOut(18, 5, "下一条");
  69.                 ReleaseDC(Button5->Handle,ae);
  70.                 delete can;
  71.                 break;
  72.          case WM_SETFOCUS:
  73.                 Button5->Dispatch(&msg);
  74.                 can->Handle = ae;
  75.                 /////////////////加底色,刷屏幕
  76.                 can->Brush->Style = bsClear;
  77.                 can->Brush->Color = clBackground;
  78.                 can->Pen->Color = clBackground;
  79.                 can->Pen->Width = 1;
  80.                 can->RoundRect(0,0,Button5->Width,Button5->Height,5,5);
  81.                 /////////////////重画新的边框,并重填按钮色彩
  82.                 can->Brush->Style = bsClear;
  83.                 can->Brush->Color = TColor(0xEEF5FF);
  84.                 can->Pen->Color = TColor(0x25C1FF);  //黄色
  85.                 can->RoundRect(1,1,Button5->Width-2,Button5->Height-2,5,5);
  86.                 can->Font->Color = clBlack;
  87.                 can->Brush->Style = bsClear;
  88.                 can->TextOut(18, 5, "下一条");
  90.                 ReleaseDC(Button5->Handle,ae);
  91.                 delete can;
  92.                 SetF=1;
  93.                 break;
  94.          case WM_KILLFOCUS:
  95.                 SetF=0;
  96.                 Button5->Dispatch(&msg);
  97.                 can->Handle = ae;
  98.                 /////////////////加底色,刷屏幕
  99.                 can->Brush->Style = bsClear;
  100.                 can->Brush->Color = clBackground;
  101.                 can->Pen->Color = clBackground;
  102.                 can->Pen->Width = 1;
  103.                 can->RoundRect(0,0,Button5->Width,Button5->Height,5,5);
  104.                 /////////////////重画新的边框,并重填按钮色彩
  105.                 can->Brush->Style = bsClear;
  106.                 can->Brush->Color = TColor(0xEEF5FF);
  107.                 can->Pen->Color = TColor(0xEBCE87);
  108.                 can->RoundRect(1,1,Button5->Width-2,Button5->Height-2,5,5);
  109.                 can->Font->Color = clBlack;
  110.                 can->Brush->Style = bsClear;
  111.                 can->TextOut(18, 5, "下一条");
  113.                 ReleaseDC(Button5->Handle,ae);
  114.                 delete can;
  115.                 break;
  116.         case WM_LBUTTONDOWN:
  117.                 if(SetF==0){
  119.                 Button5->Dispatch(&msg);
  120.                 can->Handle = ae;
  121.                 /////////////////加底色,刷屏幕
  122.                 can->Brush->Style = bsClear;
  123.                 can->Brush->Color = clBackground;
  124.                 can->Pen->Color = clBackground;
  125.                 can->Pen->Width = 1;
  126.                 can->RoundRect(0,0,Button5->Width,Button5->Height,5,5);
  127.                 /////////////////重画新的边框,并重填按钮色彩
  128.                 can->Brush->Style = bsClear;
  129.                 can->Brush->Color = TColor(0xEEF5FF);
  130.                 can->Pen->Color = TColor(0x25C1FF);  //黄色
  131.                 can->RoundRect(1,1,Button5->Width-2,Button5->Height-2,5,5);
  132.                 can->Font->Color = clBlack;
  133.                 can->Brush->Style = bsClear;
  134.                 can->TextOut(18, 5, "下一条");
  136.                 ReleaseDC(Button5->Handle,ae);
  137.                 delete can;
  138.                 SetF=1;
  139.                 }
  140.                 break;
  141.         default:
  142.                 Button5->Dispatch(&msg);
  143.                 break;
  144.     }
  145. }
  146. //---------------------------------------------------------------------------
  150. void __fastcall TForm1::Button5MouseMove(TObject *Sender,
  151.       TShiftState Shift, int X, int Y)
  152. {
  153.         if(Button5->Tag==0)
  154.         {
  155.                 TCanvas *can = new TCanvas();
  156.                 HDC ae = GetDC(Button5->Handle);
  157.                 can->Handle = ae;
  158.                 /////////////////加底色,刷屏幕
  159.                 can->Brush->Style = bsClear;
  160.                 can->Brush->Color = clBackground;
  161.                 can->Pen->Color = clBackground;
  162.                 can->Pen->Width = 1;
  163.                 can->RoundRect(0,0,Button5->Width,Button5->Height,5,5);
  164.                 /////////////////重画新的边框,并重填按钮色彩
  165.                 can->Brush->Style = bsClear;
  166.                 can->Brush->Color = TColor(0xEEF5FF);
  167.                 can->Pen->Color = TColor(0x25C1FF);
  168.                 can->RoundRect(1,1,Button5->Width-2,Button5->Height-2,5,5);
  169.                 can->Font->Color = clBlack;
  170.                 can->Brush->Style = bsClear;
  171.                 can->TextOut(18, 5, "下一条");
  172.                 ReleaseDC(Button5->Handle,ae);
  173.                 delete  can;
  174.                 Button5->Tag=1;
  175.         }
  176. }
  177. //---------------------------------------------------------------------------
  180. void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
  181.       int X, int Y)
  182. {
  183.         if(Button5->Tag==1)
  184.         {
  185.                 TCanvas *can = new TCanvas();
  186.                 HDC ae = GetDC(Button5->Handle);
  187.                 can->Handle = ae;
  188.                 /////////////////加底色,刷屏幕
  189.                 can->Brush->Style = bsClear;
  190.                 can->Brush->Color = clBackground;
  191.                 can->Pen->Color = clBackground;
  192.                 can->Pen->Width = 1;
  193.                 can->RoundRect(0,0,Button5->Width,Button5->Height,5,5);
  194.                 /////////////////重画新的边框,并重填按钮色彩
  195.                 can->Brush->Style = bsClear;
  196.                 can->Brush->Color = TColor(0xEEF5FF);
  197.                 can->Pen->Color = TColor(0xEBCE87);
  198.                 can->RoundRect(1,1,Button5->Width-2,Button5->Height-2,5,5);
  199.                 can->Font->Color = clBlack;
  200.                 can->Brush->Style = bsClear;
  201.                 can->TextOut(18, 5, "下一条");
  202.                 ReleaseDC(Button5->Handle,ae);
  203.                 delete  can;
  204.                 Button5->Tag=0;
  205.         }        
  206. }
  207. //---------------------------------------------------------------------------
  208. void __fastcall TForm1::Button5MouseDown(TObject *Sender,
  209.       TMouseButton Button, TShiftState Shift, int X, int Y)
  210. {
  211.         TCanvas *can = new TCanvas();
  212.         HDC ae = GetDC(Button5->Handle);
  213.         can->Handle = ae;
  214.         /////////////////加底色,刷屏幕
  215.         can->Brush->Style = bsClear;
  216.         can->Brush->Color = clBackground;
  217.         can->Pen->Color = clBackground;
  218.         can->Pen->Width = 1;
  219.         can->RoundRect(0,0,Button5->Width,Button5->Height,5,5);
  220.         /////////////////重画新的边框,并重填按钮色彩
  221.         can->Brush->Style = bsClear;
  222.         can->Brush->Color = TColor(0xCDB5A2);
  223.         can->Pen->Color = TColor(0x25C1FF);
  224.         can->RoundRect(1,1,Button5->Width-2,Button5->Height-2,5,5);
  225.         can->Font->Color = clBlack;
  226.         can->Brush->Style = bsClear;
  227.         can->TextOut(18, 5, "下一条");
  228.         ReleaseDC(Button5->Handle,ae);
  229.         delete  can;
  230. }
  231. //---------------------------------------------------------------------------
  233. void __fastcall TForm1::Button5Click(TObject *Sender)
  234. {
  235.         TCanvas *can = new TCanvas();
  236.         HDC ae = GetDC(Button5->Handle);
  237.         can->Handle = ae;
  238.         /////////////////加底色,刷屏幕
  239.         can->Brush->Style = bsClear;
  240.         can->Brush->Color = clBackground;
  241.         can->Pen->Color = clBackground;
  242.         can->Pen->Width = 1;
  243.         can->RoundRect(0,0,Button5->Width,Button5->Height,5,5);
  244.         /////////////////重画新的边框,并重填按钮色彩
  245.         can->Brush->Style = bsClear;
  246.         can->Brush->Color = TColor(0xCDB5A2); //
  247.         can->Pen->Color = TColor(0x25C1FF);  //黄色
  248.         can->RoundRect(1,1,Button5->Width-2,Button5->Height-2,5,5);
  249.         can->Font->Color = clBlack;
  250.         can->Brush->Style = bsClear;
  251.         can->TextOut(18, 5, "下一条");
  252.         ReleaseDC(Button5->Handle,ae);
  253.         delete  can;
  254. }
  255. //---------------------------------------------------------------------------
  257. void __fastcall TForm1::Button5MouseUp(TObject *Sender,
  258.       TMouseButton Button, TShiftState Shift, int X, int Y)
  259. {
  260.        TCanvas *can = new TCanvas();
  261.         HDC ae = GetDC(Button5->Handle);
  262.         can->Handle = ae;
  263.         /////////////////加底色,刷屏幕
  264.         can->Brush->Style = bsClear;
  265.         can->Brush->Color = clBackground;
  266.         can->Pen->Color = clBackground;
  267.         can->Pen->Width = 1;
  268.         can->RoundRect(0,0,Button5->Width,Button5->Height,5,5);
  269.         /////////////////重画新的边框,并重填按钮色彩
  270.         can->Brush->Style = bsClear;
  271.         can->Brush->Color = TColor(0xCDB5A2); //
  272.         can->Pen->Color = TColor(0x25C1FF);  //黄色
  273.         can->RoundRect(1,1,Button5->Width-2,Button5->Height-2,5,5);
  274.         can->Font->Color = clBlack;
  275.         can->Brush->Style = bsClear;
  276.         can->TextOut(18, 5, "下一条");
  277.         ReleaseDC(Button5->Handle,ae);
  278.         delete  can;
  279. }
  280. //---------------------------------------------------------------------------
  281. void __fastcall TForm1::Button5KeyPress(TObject *Sender, char &Key)
  282. {
  283.          if(SetF==1)
  284.         {
  285.                 if(Key==13)
  286.                 {
  287.                         TCanvas *can = new TCanvas();
  288.                         HDC ae = GetDC(Button5->Handle);
  289.                         can->Handle = ae;
  290.                         /////////////////加底色,刷屏幕
  291.                         can->Brush->Style = bsClear;
  292.                         can->Brush->Color = clBackground;
  293.                         can->Pen->Color = clBackground;
  294.                         can->Pen->Width = 1;
  295.                         can->RoundRect(0,0,Button5->Width,Button5->Height,5,5);
  296.                         /////////////////重画新的边框,并重填按钮色彩
  297.                         can->Brush->Style = bsClear;
  298.                         can->Brush->Color = TColor(0xCDB5A2); //
  299.                         can->Pen->Color = TColor(0x25C1FF);  //黄色
  300.                         can->RoundRect(1,1,Button5->Width-2,Button5->Height-2,5,5);
  301.                         can->Font->Color = clBlack;
  302.                         can->Brush->Style = bsClear;
  303.                         can->TextOut(18, 5, "下一条");
  304.                         ReleaseDC(Button5->Handle,ae);
  305.                         delete  can;
  306.                 }
  307.         }
  308. }
  309. //---------------------------------------------------------------------------
  311. void __fastcall TForm1::FormKeyUp(TObject *Sender, WORD &Key,
  312.       TShiftState Shift)
  313. {
  314.         if(Key==VK_RETURN)
  315.                 Button5Click(Sender);
  317. }
  318. //---------------------------------------------------------------------------
  320. void __fastcall TForm1::Button5EndDock(TObject *Sender, TObject *Target,
  321.       int X, int Y)
  322. {
  323.                 int t;
  324.                 t++;
  325. }
  326. //---------------------------------------------------------------------------
  328. void __fastcall TForm1::Button5EndDrag(TObject *Sender, TObject *Target,
  329.       int X, int Y)
  330. {
  331.                 int t;
  332.                 t++;    
  333. }
  334. //---------------------------------------------------------------------------
  336. void __fastcall TForm1::Button5DragOver(TObject *Sender, TObject *Source,
  337.       int X, int Y, TDragState State, bool &Accept)
  338. {
  339.              int t;
  340.                 t++;            
  341. }
  342. //---------------------------------------------------------------------------
  344. void __fastcall TForm1::Button5DragDrop(TObject *Sender, TObject *Source,
  345.       int X, int Y)
  346. {
  347.              int t;
  348.                 t++;            
  349. }
  350. //---------------------------------------------------------------------------