Delphi 之 工具欄組件(TToolBar)

　　工具欄組件(TToolBar)為用戶提供了快捷菜單的訪問方式。

　　Buttions

 列出工具欄中的工具按鈕，其中保存了TToolButton實例的列表

　　Canvas

在OnCustomDraw或OnCustomDrawItem事件中使用該屬性可以在工具欄上畫圖。

　　Constraints

規定TToolBar的大小限制

　　Customizable

設置該屬性為True，允許用戶在程序運行時添加、刪除和移動工具欄按鈕。用戶可以按Shift鍵拖動按鈕到一個新的位置，或者拖動它離開

　　CusstiomizeKeyName

使用該屬性指定當前用戶首次顯示工具欄定制的對話框時，保存其按鈕配置的位置

　　CusstiomizeValueName

使用該屬性指定當前用戶首次顯示工具欄定制的對話框時，保存其按鈕配置名稱的位置

　　Disabledimages

該屬性包含一個圖像列表，每個工具按鈕的ImageIndex屬性確定了在該按鈕上要顯示的圖標。

　　Image

為TToolBar提供一個圖像列表

　　Menu

使用該屬性可使工具欄上的按鈕與菜單中的項相對應

示例  利用Canvas屬性在TToolBar組件上繪圖

　

procedure TForm1.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect;
  var DefaultDraw: Boolean);
var
  bitmap:TBitmap;
begin
  bitmap:= TBitmap.Create;
  bitmap.LoadFromFile('C:\Documents and Settings\All Users\Documents\My Pictures\示例圖片\MM1.bmp');
  ToolBar1.Canvas.StretchDraw(ARect,bitmap);
  bitmap.Free;
end;

　示例2 ：制作透明按鈕效果

procedure TForm1.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect;
  var DefaultDraw: Boolean);
var
  bitmap:TBitmap;
begin
  bitmap:= TBitmap.Create;
  bitmap.LoadFromFile('C:\Documents and Settings\All Users\Documents\My Pictures\示例圖片\MM1.bmp');
  ToolBar1.Canvas.StretchDraw(ARect,bitmap);
  bitmap.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  ToolBar1.ShowCaptions:= True;
  ToolBar1.flat:= true;
end;
end.

示例3 按鈕OnClick事件實例

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  case (Sender as TToolButton).index of
  0: begin
       ShowMessage('打開程序');
     end;
  1: begin
       ShowMessage('保存程序');
     end;
  end;
end;
end.