用API函數(shù)在DELPHI中實現(xiàn)“非典型”窗體

2019-11-18 18:34:42

字體：大中小

供稿：網(wǎng)友

用API函數(shù)在DELPHI中實現(xiàn)“非典型”窗體
    現(xiàn)在的一些共享軟件特別是一些多媒體播放器軟件為了吸引用戶，很注重程序界面的設計。實際上，我們使用API函數(shù)也可以實現(xiàn)那些好看又另類的效果。
    1.異形窗體
    窗體只能是方的嗎？不是，還可以有其他形狀。這要用到兩個Win32 API函數(shù)。首先用CreateRoundRectRgn()函數(shù)在窗體內(nèi)界定一個橢圓形區(qū)域。這里所指的區(qū)域（region）是一個特殊的API對象，我們可以在區(qū)域內(nèi)部進行填充和剪裁等操作，從而定義窗體的外部特征。然后調(diào)用SetWindowRgn()函數(shù)繪制，更進一步還可以再用CombineRgn()函數(shù)來合并多個區(qū)域，例如在Delphi的單元文件中加入以下代碼：
    PRocedure TForm1.FormCreate(Sender: TObject);
    var
      FRegion1:THandle;
      FRegion2:THandle;
    begin
      FRegion1:=CreateRoundRectRgn(20,20,200,200,300,300);//界定一個橢圓區(qū)域
      FRegion2:=CreateRectRgn(170,170,400,400);//界定一個矩形區(qū)域
      CombineRgn(FRegion1,FRegion1,FRegion2,RGN_OR);//將兩個區(qū)域連接起來
      SetwindowRgn(handle,FRegion1,True);//對連接后的區(qū)域進行繪制
    end;
    程序段中的CreateRoundRectRgn()函數(shù)用來創(chuàng)建一個圓角矩形區(qū)域，它的原型為：
    HRGN CreateRoundRectRgn(
    int nLeftRect, // 左上角的X坐標
    int nTopRect, // 左上角的Y坐標
    int nRightRect, // 右下角的X坐標
    int nBottomRect, // 右下角的Y坐標
    int nWidthEllipse, //圓角所在橢圓的寬
    int nHeightEllipse // 圓角所在橢圓的高
    );
    其他圖形如多邊形、橢圓形等都有對應的API函數(shù)，它們的原型如下：
    HRGN CreateEllipticRgn(int nLeftRect,int nTopRect,int nRightRect,int nBottomRect)
    HRGN CreateEllipticRgnIndirect( CONST RECT *lprc)
    HRGN CreatePolygonRgn(CONST POINT *lPPT,int cPoints, int fnPolyFillMode)
    HRGN CreatepolypolygonRgn(CONST POINT *lppt,CONST INT *lpPolyCounts,int nCount,int fnPolyFillMode)
    HRGN CreateRectRgn(int nLeftRect,int nTopRect,int nRightRect,int nBottomRect)
    HRGN CreateRectRgnIndirect(CONST RECT *lprc)
    以上函數(shù)的參數(shù)很好理解，用來說明圖形內(nèi)置矩形的坐標或指向該矩形。重點來看一下另外兩個函數(shù)：
    函數(shù)原型：SetWindowRgn(
              HWND hWnd，         //當前窗體的句柄
              HRGN hRgn,          //當前區(qū)域的句柄
              BOOL bRedraw，      //重繪標志
              )
    函數(shù)功能：該函數(shù)把已創(chuàng)建的區(qū)域的句柄作為參數(shù)傳遞給當前窗體的句柄，并在該區(qū)域范圍內(nèi)繪制窗體；
    函數(shù)原型：CombineRgn(
              HRGN hrgnDest, // 連接目的區(qū)域的句柄
              HRGN hrgnSrc1, // 第一個連接源區(qū)域的句柄
              HRGN hrgnSrc2, // 第二個連接源區(qū)域的句柄
              int fnCombineMode // 連接模式
              )
    函數(shù)功能：該函數(shù)將兩個區(qū)域合并為一個新的區(qū)域,其中連接模式可取以下值：
    參數(shù)值          作用
    RGN_AND         由區(qū)域1與區(qū)域2的共有部分即交集創(chuàng)建新的區(qū)域
    RGN_COPY        創(chuàng)建區(qū)域1的副本作為新的區(qū)域
    RGN_DIFF        連接屬于區(qū)域1但不屬于區(qū)域2的部分為新的區(qū)域
    RGN_OR          連接區(qū)域1和區(qū)域2的所有部分即并集
    RGN_XOR。     連接區(qū)域1和區(qū)域2的所有部分即并去掉共有部分
    2.空心窗體
    這種窗體的特點是好端端的一個窗體，中間被挖了一部分。例如在Delphi的單元文件中加入以下代碼：
    procedure TForm1.FormCreate(Sender: TObject);
    var
      FRegion3:THandle;
    begin
      Canvas.Font.Name:='華文行楷';//設置字體
      Canvas.Font.Size:=100;//設置字號
      BeginPath(Canvas.Handle); //得到vanvas上繪制的輪廓
      TextOut(form1.Canvas.Handle,0,20,'程序春秋',8);//將“程序春秋”四個字所占區(qū)域摳掉
      EndPath(Canvas.Handle);
      FRegion3:=PathToRegion(Canvas.Handle);//將以上區(qū)域賦給窗體
      SetwindowRgn(Handle,FRegion3,True);//開始繪制
    end;
    這里主要用到了三個API函數(shù)：
    函數(shù)原型：BOOL BeginPath(HDC hdc //設備環(huán)境的句柄)
    函數(shù)功能：開始接收當前設備環(huán)境的路徑軌跡；
    函數(shù)原型：BOOL EndPath(HDC hdc //設備環(huán)境的句柄)
    函數(shù)功能：停止接收并將已接收的路徑軌跡賦給當前設備環(huán)境的句柄
    函數(shù)原型 BOOL TextOut(
              HDC hdc, // handle of device context
              int nXStart, // 起始位置的X坐標
              int nYStart, // 起始位置的Y坐標
              LPCTSTR lpString, // 字符串地址
              int cbString //字符串所包含字符數(shù)（注意一個漢字占兩個字符）
              )
    函數(shù)功能：在指定位置繪制給定字符串。
    小結：學會熟練使用API進行編程，是一項很重要的技能，有時可以達到意想不到的效果。以上幾種技巧旨在拋磚引玉，希望大家充分運用各種技巧，發(fā)揮自己想像，設計出更炫的窗體,美化自己的程序

上一篇：Delphi組件與屬性編輯器

下一篇：Delphi程序設計之--慣用法

學習交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注