????? 先看效果圖吧。

????? 最近做Web，發(fā)現(xiàn)網(wǎng)頁(yè)三劍客總是會(huì)留下一些“最近打開(kāi)項(xiàng)目”這樣的痕跡在軟件的界面上，心里總是覺(jué)得很不舒服，于是萌發(fā)了寫(xiě)一個(gè)清除器的念頭。說(shuō)動(dòng)手就動(dòng)手吧！

???? DW、FW、Fl 的這些痕跡都是存在于注冊(cè)表中的，簡(jiǎn)單原理就是刪除注冊(cè)表里的值就ok了，這些應(yīng)該沒(méi)有什么好說(shuō)的，所以我就不說(shuō)了。今天我們主要來(lái)講一下無(wú)標(biāo)題欄的窗體拖動(dòng)問(wèn)題和使用圖片來(lái)簡(jiǎn)單的美化界面的問(wèn)題。

????? 可能有很多人都認(rèn)為無(wú)標(biāo)題欄窗體的移動(dòng)是非常簡(jiǎn)單的，網(wǎng)上很多的朋友也給出了一些方法，大多說(shuō)人給出的方法是在窗體的privite部分創(chuàng)建一個(gè)私有過(guò)程 procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;就像這樣的過(guò)程，這個(gè)原理就是發(fā)送消息給系統(tǒng)，欺騙鼠標(biāo)點(diǎn)擊的地方（也就是窗體的客戶(hù)區(qū)）是窗體的標(biāo)題欄，然而經(jīng)過(guò)我的測(cè)試如果窗體上有其他的控件，比如一個(gè)TButton，那么TButton的事件是不會(huì)被觸發(fā)的，不論采用哪種方式都是難以觸發(fā)的，最少我的測(cè)試如此。所以此思路不可以。還有的人給出了使用MouseMove等一系列事件來(lái)進(jìn)行窗體的Top和Left進(jìn)行運(yùn)算的。

???? 上面第一種該方法不適合，人比較懶不想打太多的代碼，所以第二種方法也就不適合了。

???? 好了，不說(shuō)廢話(huà)了，我們一步一步來(lái)吧：

???? 1。首先建一個(gè)窗體，將BorderStyle屬性設(shè)置為bsSingle

?????2。放一個(gè)TImage，載入一張圖片，如下圖

3。用PS打開(kāi)TImage中載入的圖片，來(lái)獲取顏色

3。然后雙擊Form1下的Color屬性值，在彈出的顏色對(duì)話(huà)框中點(diǎn)擊“規(guī)定自定義顏色”，然后在紅、綠、藍(lán)后面的方框里填寫(xiě)上PS的拾色器里面的R、G、B后面對(duì)應(yīng)的數(shù)值，如下圖：

4。點(diǎn)擊“添加到自定義顏色”，再在“自定義顏色”的方框上點(diǎn)擊自己定義好的顏色，這時(shí)自定義的顏色會(huì)出現(xiàn)了一個(gè)一個(gè)黑色的邊框，然后確定。這樣，窗體的簡(jiǎn)單美化就完成了。

5。選擇TImage組件，選擇Events選項(xiàng)卡，選擇OnMouseDown事件，為其添加代碼如下：

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;

???? 這里我解釋一下：

?????ReleaseCapture 釋放鼠標(biāo)的捕獲狀態(tài)

?????Perform(WM_NCLBUTTONDOWN, HTCAPTION, 0); 發(fā)送鼠標(biāo)左鍵獲取到的狀態(tài)為窗體的標(biāo)題欄的系統(tǒng)消息，其達(dá)到欺騙操作系統(tǒng)所點(diǎn)擊的地方是窗體的標(biāo)題欄。

????? 這樣一個(gè)既可以拖動(dòng)又可以響應(yīng)其他組件的無(wú)標(biāo)題欄窗體就完成了。

????? 如果你還有耐心的話(huà)，也可以繼續(xù)為窗體添加一些特效，比如窗體時(shí)圓角的、像MSN那樣慢慢滾動(dòng)上來(lái)的消息框一樣讓你的窗體滾動(dòng)上來(lái)，這里我就不截圖了，直接給出代碼：

procedure TForm1.FormCreate(Sender: TObject);
var
Hnd: THandle;
begin
Hnd := CreateRoundRectRGN(0, 0, Width, Height, 15, 15);
SetWindowRGN(Handle, Hnd, True);
AnimateWindow(Handle, 1000, AW_SLIDE + AW_VER_NEGATIVE);
end;

【說(shuō)明】1。先定義一個(gè)句柄變量Hnd；2。使用Win API函數(shù)CreateRoundRectRGN創(chuàng)建圓角矩形區(qū)域；3。使用API函數(shù)SetWindowRGN設(shè)置窗體為圓角的；4。AnimateWindow這個(gè)函數(shù)用來(lái)設(shè)置窗體的出場(chǎng)方式（這里的表述可能不太精確，還請(qǐng)見(jiàn)諒）這個(gè)函數(shù)有很多參數(shù)的，具體自己查吧。

?????最后我們?cè)賮?lái)編寫(xiě)程序的關(guān)閉時(shí)的漸隱效果，還是使用AnimateWindow函數(shù)來(lái)實(shí)現(xiàn)的，不過(guò)這個(gè)函數(shù)只是讓窗體隱藏了，并沒(méi)有真正的關(guān)閉，所以你還得使用一句關(guān)閉代碼來(lái)關(guān)閉窗體，好了不費(fèi)話(huà)了，直接給代碼了：

AnimateWindow(Handle, 2000, AW_SLIDE + AW_BLEND + AW_HIDE);
Application.Terminate;

???? 到此這篇文章就結(jié)束了，對(duì)于了解Win API 函數(shù)的高手來(lái)說(shuō)很簡(jiǎn)單了，請(qǐng)不要見(jiàn)笑，謝謝！

?

轉(zhuǎn)載于:https://www.cnblogs.com/spider518/archive/2011/11/22/2258576.html

總結(jié)

以上是生活随笔為你收集整理的无标题窗体的移动及其简单美化的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。