用Delphi7 0實現漂亮的漢字視窗

在視覺化開發的時代，窗體是絕大部分應用程式的核心，但是開發者也許已對windows一成不變的方形窗體感到厭煩。其實巧妙地使用api函式即可實現漢字形狀的窗體。本文的例項執行後將顯示乙個由「電腦報」三個漢字作為外形的窗體。當然你還可以利用本期講的方法實現更有個性的漢字視窗。

設計思路

1使用beginpath和endpath函式為窗體定義路徑。

2用pathtoregion將路徑轉換為region資料。

3呼叫setwindowrgn按路徑繪製窗體。

4由於不規則窗體無系統選單，因此程式中必須有關閉窗體的**。

實現步驟

啟動delphi7，新建專案。前述的api函式在delphi中均可直接呼叫，因此使用者不需要宣告，可直接輸入下面的控制項事件**。

//窗體建立事件

procedure tform1.formcreatesender tobject

varrgnhrgn

begin

//設定文字顏色為紅色

form1.color=clred

//開始設定路徑，參考api函式宣告①

beginpathcanvas.handle

//設定背景為透明，參考api函式宣告②

setbkmodecanvas.handletranspa

rent

//設定字型

canvas.font.name ='宋體'

//設定字型大小

canvas.font.size=100

//將漢字「電腦報」設定為窗體形狀路徑

canvas.textout1515'電腦報'

//結束設定路徑，參考api函式宣告③，完成設計思路（1）

endpathcanvas.handle

//將路徑轉換至區域，參考api函式宣告④，完成設計思路（2）

rgn=pathtoregioncanvas.handle

//改變窗體形狀，參考api函式宣告⑤，完成設計思路（3）

setwindowrgnhandlergntrue

end

//滑鼠按下的事件完成，進行設計思路（4）

procedure tform1.formmousedownsender tobject button tmousebutton shift 　　tshiftstate x y integer

begin

//如使用者單擊右鍵，則結束程式執行

if button=mbright then

close

end