如何製作不同形狀的Form或是Frames |
|
尚未結案
|
|
ryowu
一般會員   發表：56 回覆：25 積分：16 註冊：2002-04-23 發送簡訊給我 |
|
|
william
版主   發表：66 回覆：2535 積分：3048 註冊：2002-07-11 發送簡訊給我 |
|
|
ryowu
一般會員 發表：56 回覆：25 積分：16 註冊：2002-04-23 發送簡訊給我 |
|
|
palw
初階會員 發表：45 回覆：89 積分：26 註冊：2003-02-24 發送簡訊給我 |
|
|
axsoft
版主  發表：681 回覆：1056 積分：969 註冊：2002-03-13 發送簡訊給我 |
引言: 對不起!還是不太瞭解，是否另有較詳細的文章或說明參考這個試試! http://www.ccidnet.com/tech/guide/2000/10/30/58_1237.html DELPHI中利用API函數實現多態FORM （作者：陳學軍 2000年10月30日 11:00） 實現異型FORM並不是一件難事，本文將向您介紹如何利用API函數實現圓角矩形和橢圓形FORM，並在此基礎之上探討實現TWINcontrol類的後裔的異型的實現。 欲改變FORM的形狀，也就是實現對區域（region）的控制。在Win32 API程序參考手冊有關區域（region）的定義是這樣描述的：它可以是一個矩形，多邊形，橢圓形（或者是兩者的復合，或者是更多的形狀），這些都可以被填充，畫圖，翻轉，結構化並可以得到焦點執行。 由定義得出結論：區域（region）是可以被改變和操縱的，依據我們的需求可定義區域並製作出我們所要求的形狀。 應當指出的是區域（region）也能對任何TWINcontrol類的後裔定義和控制（不僅僅是FORMS），就是說，可以將區域（region）的定義運用到向Tpanel或TEdit這樣的對象。在改變TWINcontrol類的後裔控件的形狀時，需要提供一句柄並創建一些改變形狀的函數。 具體實現方式一般分為兩步： 1．定義所需形狀的區域邊界形狀（比如：橢圓形）。 2．將已定義的區域邊界形狀運用到窗口。 這裡，我們將通過調用Windows API函數完成以上兩個步驟，下面就具體函數的應用予以說明： 實現第一步：定義區域邊界。 在這裡將調用三個WinAPI，這三個函數是： CreateEllipticRgn（）功能是生成橢圓形區域； CreateRoundRectRgn（）功能是生成圓角矩形區域； CreatePolygonRgn（）功能是生成多邊形區域，Windows要確保使其頂點自動相連形成一封閉的區域。 這三個函數通過返回的指針變量標識所生成的區域將被第二步所應用。這些函數在Delphi中的函數聲明及參數含義說明如下： （1）橢圓形區域生成函數： 函數原形：HRGN CreateEllipticRgn(int nLeftRect,int nTopRect,int nRightRect,int nBottomRect); 參數含義： nLeftRect，nTopRect：區域的左上角坐標； nRightRect, nBottomRect：區域的右下角坐標； （2）圓角矩形區域生成函數： 函數原形：HRGN CreateRoundRectRgn(int nLeftRect,int nTopRect,int nRightRect,int nBottomRect,int nWidthEllipse,int nHeightEllipse); 參數含義： nLeftRect, nTopRect：區域的左上角坐標； nRightRect, nBottomRect：區域的右下角坐標； nWidthEllipse, nHeightEllipse：圓角的寬度和高度； （3）多邊形區域生成函數： 函數原形：HRGN CreatePolygonRgn(CONST POINT *lppt,int cPoints, int fnPolyFillMode); 參數含義： Lppt：指向一個POINT類型的數組，該數組定義多邊形頂點； CPoints：定義數組中頂點數； FnPolyFillMode：定義填充模式，可選值為ALTERNATE或WINDING。 實現第二步：將返回的HRGN類型的區域值被設置窗口區域函數調用。 設置窗口區域函數： 函數原形：int SetWindowRgn(HWND hWnd, HRGN hRgn, BOOL bRedraw); 參數說明： hWnd：指向所操作的窗口的句柄； hRgn：所給區域句柄； bRedraw：是否顯示重畫窗口的標誌。 在每一個函數的最後都需要調用SetWindowRgn函數，然後由Windows操作系統實現區域的各種形狀的設置並顯示。 以下將測試的FORM的整個源代碼列出，在FORM上添加了四個按鈕分別控制實現：橢圓形，圓角矩形，等邊多邊形和星形；一個Tpanel控件為了演示TWINcontrol類的後裔的區域定義和控制；一個SpinEdit控件定義多邊形和星形的頂點連接數目。 源程序:
unit form_statue; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Spin; type TForm1 = class(TForm) Button1: TButton; SpinEdit1: TSpinEdit; Panel1: TPanel; Button2: TButton; Button3: TButton; Button4: TButton; procedure DrawRndRectRegion(wnd : HWND; rect : TRect); procedure DrawEllipticRegion(wnd : HWND; rect : TRect); procedure DrawPolygonRegion(wnd : HWND; rect : TRect; NumPoints : Integer; DoStarShape : Boolean); procedure Button1Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } rgn : HRGN; rect : TRect; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.DrawRndRectRegion(wnd : HWND; rect : TRect); begin rgn := CreateRoundRectRgn(rect.left, rect.top, rect.right, rect.bottom, 30, 30); SetWindowRgn(wnd, rgn, TRUE); end; procedure TForm1.DrawEllipticRegion(wnd : HWND; rect : TRect); begin rgn := CreateEllipticRgn(rect.left, rect.top, rect.right, rect.bottom); SetWindowRgn(wnd, rgn, TRUE); end; procedure TForm1.DrawPolygonRegion(wnd : HWND; rect : TRect; NumPoints : Integer; DoStarShape : Boolean); const RadConvert = PI/180; Degrees = 360; MaxLines = 100; var x, y, xCenter, yCenter, radius, pts, I : Integer; angle, rotation: Extended; arPts : Array[0..MaxLines] of TPoint; begin xCenter := (rect.Right - rect.Left) div 2; yCenter := (rect.Bottom - rect.Top) div 2; if DoStarShape then begin rotation := Degrees/(2*NumPoints); pts := 2 * NumPoints; end else begin rotation := Degrees/NumPoints; //得到每個頂點的度數 pts := NumPoints ; end; radius := yCenter; for I := 0 to pts - 1 do begin if DoStarShape then if (I mod 2) = 0 then radius := Round(radius/2) else radius := yCenter; angle := ((I * rotation) 90) * RadConvert; x := xCenter Round(cos(angle) * radius); y := yCenter - Round(sin(angle) * radius); arPts[I].X := x; arPts[I].Y := y; end; rgn := CreatePolygonRgn(arPts, pts, WINDING); SetWindowRgn(wnd, rgn, TRUE); end; procedure TForm1.Button1Click(Sender: TObject); begin DrawRndRectRegion(Form1.Handle, Form1.ClientRect); end; procedure TForm1.Button4Click(Sender: TObject); begin DrawPolygonRegion(Panel1.Handle, Panel1.BoundsRect, SpinEdit1.Value, True); end; procedure TForm1.Button3Click(Sender: TObject); begin DrawEllipticRegion(Form1.Handle, Form1.ClientRect); end; procedure TForm1.Button2Click(Sender: TObject); begin DrawPolygonRegion(Panel1.Handle, Panel1.BoundsRect, SpinEdit1.Value, False); end; end.
源程序在PWIN98 DELPHI5環境下調試成功，可以直接引用。 網路志工聯盟----Visita網站http://www.vista.org.tw
---[ 發問前請先找找舊文章 ]---
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
var
rgn:HRGN;
begin
Form1.Color:=clRed;
BeginPath(Canvas.Handle);
SetBKMode(Canvas.Handle,TRANSPARENT);
Canvas.Font.Name:='明體';
Canvas.Font.Size:=200;
Canvas.TextOut(150,130,'CX66.COM');
EndPath(Canvas.Handle);
rgn:=PathToRegion(Canvas.Handle);
SetWindowRgn(Handle,rgn,true);
end;
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
var
rgn:HRGN;
begin
Form1.Color:=clRed;
BeginPath(Canvas.Handle);
SetBKMode(Canvas.Handle,TRANSPARENT);
//Canvas.Font.Name:='明體';
Canvas.Font.Size:=200;
Canvas.TextOut(150,130,'★ ');//☆; ▲; ◆; 輸入文字也可以
EndPath(Canvas.Handle);
rgn:=PathToRegion(Canvas.Handle);
SetWindowRgn(Handle,rgn,true);
end;
|
發表時間：2003-03-23 02:12:23
IP:61.216.xxx.xxx 未訂閱
系統時間：2024-05-16 23:07:03
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |