Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
各位道友大家好, 祝大家新年快樂. 請問一下, 我如果要做到如標題的效果, 該如何寫呢?? 底下是我用來Try的程式, 但無法正確work. 請指教,
(原程式省略)
首先, 啟動 Statusbars.Panels 的屬性編輯器(從 Object Inspector 中, 點一下 Panels 屬性右邊的'...'小按鈕), 確定各 Panels 的 Sytle 是否為: OwnerDraw (若為 Text, 則 OnDrawPanel 事件不會有作用的).
其次
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); begin Panel.Style:=psOwnerDraw; // 這行可以去掉 // StatusBar.Canvas.Brush.Color:=clGreen; // StatusBar.Canvas.Font.Color:=clBlack; // 如果如您的標題 -- 黑底綠字, 那是不是應該改成 -- StatusBar.Canvas.Brush.Color:=clBlack; StatusBar.Canvas.Font.Color:=clGreen; StatusBar.Canvas.FillRect(Rect); // 顯示文字: StatusBar.Canvas.TextRect(Rect, Rect.Left, Rect.Top, Panel.Text); end;
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |