程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 用Delphi制作Windows 98風格的工具欄

用Delphi制作Windows 98風格的工具欄

編輯：Delphi

　　Windows98的工具欄上的按鈕不僅會隨鼠標的移動而凸起變化，而且按鈕上圖標的顏色也會隨著變化。在Delphi中所提供的工具欄控件中，僅僅提供了按鈕凸起變化功能，並沒有提供圖標顏色變換功能。筆者利用Delphi的靈活性，輕松地實現了按鈕圖標顏色的變化。

　　首先，先新建一窗體Form1，在窗體中放一Toolbar控件Toolbar1，兩個Imagelist控件Imagelist1、Imagelist2，並在Toolbar1控件上用鼠標點擊右鍵添加按鈕，其Hotimages與Images的屬性設為Imagelist1，Flat屬性設為Ture。

　　其次，添加圖像列表到Imagelist1與Imagelist2中，因為要用到按鈕上圖標的顏色變換，所以在Imagelist1與Imagelist2中放置次序一樣、但顏色不同的幾個相同的圖像。我們以Delphi提供的按鈕圖像為例（在c:\ Program Files\Common Files\ Borland Shared\images\buttons\目錄下），在Imagelist1與Imagelist2中分別添加相同次序的圖像掩碼與圖像。

　　最後，在Form1或Toolbar1的Mousemove事件添加如下代碼，當鼠標在工具欄上移動時，所到之處不僅按鈕會凸起變化，而且圖標會隨鼠標的移動而變化顏色，頗像Windows98工具欄風格：

　　procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

　　begin

　　toolbar1.HotImages:=imagelist2;

　　end;

上一頁:用Delphi檢測特殊鍵狀態
下一頁:用Delphi編制金額大寫轉換程序

Delphi

第二章使用接口(Using Interfaces)-書籍翻譯

PDF預覽下載地址 http://files.

再學GDI+[44]: 文本輸出 - 字體

Delphi 7中用Indy組件開發Socket應用程序

筆者在前一段的工作中，需要開發一套簡單的網絡數

用Delphi實現虛擬盤映射

本實例演示如何映射和斷開網絡虛擬盤。向窗體上添

再學 GDI+[3]: DrawRectangle - 繪制矩形

　本例效果圖:unit Unit1;interfaceus

簡易高效的Delphi原子隊列

本文提供Delphi一個基於原子操作的無鎖隊列，簡易高效。適