<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    隨筆 - 6  文章 - 129  trackbacks - 0
    <2025年7月>
    293012345
    6789101112
    13141516171819
    20212223242526
    272829303112
    3456789

    常用鏈接

    留言簿(14)

    隨筆檔案(6)

    文章分類(467)

    文章檔案(423)

    相冊

    收藏夾(18)

    JAVA

    搜索

    •  

    積分與排名

    • 積分 - 828831
    • 排名 - 49

    最新評論

    閱讀排行榜

    評論排行榜

    unit Unit1;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ImgList, Menus, ExtCtrls, BmpRgn,  StdCtrls, IniFiles,
      Buttons;

    type
      TForm1 = class(TForm)
        img1: TImage;
        bvl1: TBevel;
        lbl1: TLabel;
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
        procedure WMEraseBkGnd( Var Msg: TWMEraseBkGnd ); message WM_ERASEBKGND;
        procedure WMNCHitTest( Var msg: TWMNCHitTest ); message WM_NCHITTEST;
      public
        { Public declarations }
        procedure SetTheRegion;
        procedure AppException(Sender: TObject; E: Exception);
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}
    // This routine takes care of drawing the bitmap on the form.
    procedure TForm1.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
    var
      Brush: TBrush;
    begin
      Brush := TBrush.Create;
      Brush.Color := Color;
      FillRect( Msg.DC, ClientRect, Brush.Handle);
      Brush.Free;
      with img1.Picture.Bitmap do
        BitBlt( Msg.DC, 0, 0, Width, Height, Canvas.Handle, 0, 0, SRCCOPY);
      Msg.Result := 1;
    end;

    // This routine takes care of letting the user move the form
    // around on the desktop.
    procedure TForm1.WMNCHitTest( var msg: TWMNCHitTest );
    var
      i: integer;
      p: TPoint;
      AControl: TControl;
      MouseOnControl: boolean;
    begin
      inherited;
      if msg.result = HTCLIENT then begin
        p.x := msg.XPos;
        p.y := msg.YPos;
        p := ScreenToClient( p);
        MouseOnControl := false;
        for i := 0 to ControlCount-1 do begin
          if not MouseOnControl
          then begin
            AControl := Controls[i];
            if ((AControl is TWinControl) or (AControl is TGraphicControl))
              and (AControl.Visible) then
            begin
                 MouseOnControl := PtInRect( AControl.BoundsRect, p);
            end;
          end
          else
            break;
        end;
        if (not MouseOnControl) then
          msg.Result := HTCAPTION;
      end;
    end;

    procedure TForm1.SetTheRegion;
    var
      HR: HRGN;
    begin
      HR := BmpToRegion( Self, img1.Picture.Bitmap);
      SetWindowRgn( handle, HR, true);
      Invalidate;
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
        Application.OnException := AppException;
        SetTheRegion;
    end;

    procedure TForm1.AppException(Sender: TObject; E: Exception);
    begin
      Application.ProcessMessages;
      Application.ShowException(E);
      Application.Terminate;
    end;

    end.
    注意:
    (1) img1: TImage;的Visible屬性必須設置為false

    (2) BmpRgn 為外部dcu文件,需要導入




    posted on 2010-02-22 11:48 Ke 閱讀(392) 評論(0)  編輯  收藏 所屬分類: delphi
    主站蜘蛛池模板: 亚洲欧洲日产国码无码久久99| 亚洲视频小说图片| 国产在线观看xxxx免费| 亚洲欧洲日产国码久在线观看| 在人线av无码免费高潮喷水| 春暖花开亚洲性无区一区二区| 亚洲欧洲∨国产一区二区三区| 91免费国产在线观看| 高清免费久久午夜精品| 久久国产亚洲观看| 日韩一区二区在线免费观看| 99久久免费国产精精品| 日韩亚洲国产高清免费视频| 中文字幕在线亚洲精品 | a级片免费在线观看| 77777午夜亚洲| 人人狠狠综合久久亚洲88| 巨胸喷奶水视频www网免费| 91免费国产视频| 亚洲成av人无码亚洲成av人| 亚洲av不卡一区二区三区| 国产免费变态视频网址网站| 91精品视频在线免费观看| 一区二区三区精品高清视频免费在线播放 | jizz中国免费| 亚洲国产成人资源在线软件| 久久久久亚洲AV无码专区桃色| 日韩免费无码视频一区二区三区 | a级毛片毛片免费观看久潮| 亚洲中文字幕乱码熟女在线| 亚洲乱码国产乱码精品精| 暖暖免费高清日本中文| 91香蕉国产线在线观看免费| www在线观看播放免费视频日本| 中文无码亚洲精品字幕| 亚洲午夜精品久久久久久人妖| 亚洲国产精品日韩| 日韩免费视频播播| 手机在线免费视频| www视频在线观看免费| 大地资源在线资源免费观看|