この発言に対し以下のコメントが寄せられています

#00065　青木　栄        さん　RE:ToolButton にﾋﾞｯﾄﾏｯﾌﾟを





{
  Delphi 3 でサポートされた ToolButtonコンポーネントで、デフォルトのビット
  マップを使いたい
}

Windows が用意しているツールボタン用のビットマップには大小それぞれ３２種類
ずつありますので、例えば以下の様な型宣言をしておくとよろしいかと

type
  TTbBitmap = (tbCUT, tbCOPY,              // 0: カット  1: コピー
               tbPASTE, tbUNDO,            // 2: ペースト  3: 元に戻す
               tbREDOW, tbDELETE,          // 4: やり直し  5: 削除
               tbFILENEW, tbFILEOPEN,      // 6: 新規作成  7: ファイルオープン
               tbFILESAVE, tbPRINTPRE,     // 8: ファイル保存  9: プレビュー
               tbPROPERTIES, tbHELP,       // 10:プロパティ  11:ヘルプ
               tbFIND, tbREPLACE,          // 12:検索  13:置き換え
               tbPRINT, tbLARGEICONS,      // 14:印刷  15:大きなアイコン
               tbSMALLICONS, tbLIST,       // 16:小さなアイコン  17:一覧
               tbDETAILS, tbSORTNAME,      // 18:詳細  19:名前順
               tbSORTSIZE, tbSORTDATE,     // 20:サイズ順  21:日付順
               tbSORTTYPE, tbPARENTFOLDER, // 22:並び替え  23:一つ上のフォルダー               tbNETCONNECT, tbNETDISCONNECT, // 24:接続ネット  25:ネット切り離
し
               tbNEWFOLDER, tbBACK,          // 26:新規フォルダー  27:後方へ
               tbFORWARD, tbFAVORITES,       // 28:前方へ  29:お気に入り
               tbADDTOFAVORITES, tbVIEWTREE, // 30:お気に入りへ追加  31:ツリー表示
               tbNULL);

uses CommCtrl;

procedure TForm1.FormCreate(Sender: TObject);
var
  tbab: TTbAddBitmap;
begin
  // ToolBar へのビットマップの登録
  tbab.hInst := HINST_COMMCTRL;
  tbab.nID   := IDB_STD_SMALL_COLOR;  // 小さいビットマップ

  // Performメソッドは使わないこと
  SendMessage(ToolBar1.Handle, TB_ADDBITMAP, 0, Longint(@tbab));
  tbab.hInst := HINST_COMMCTRL;
  tbab.nID   := IDB_VIEW_SMALL_COLOR; // 小さいビットマップ
  SendMessage(ToolBar1.Handle, TB_ADDBITMAP, 0, Longint(@tbab));
  tbab.hInst := HINST_COMMCTRL;
  tbab.nID   := IDB_HIST_SMALL_COLOR; // 小さいビットマップ
  SendMessage(ToolBar1.Handle, TB_ADDBITMAP, 0, Longint(@tbab));

  // ToolButton へのビットマップの登録
  ToolBtn2.ImageIndex := Ord(tbCUT);
  ToolBtn2.Hint := '切り取り';
  ToolBtn3.ImageIndex := Ord(tbCOPY);
  ToolBtn3.Hint := 'コピー';
  ToolBtn4.ImageIndex := Ord(tbPASTE);
  ToolBtn4.Hint := '貼り付け';
  ToolBtn5.ImageIndex := Ord(tbDELETE);
  ToolBtn5.Hint := '削除';

  ToolBtn7.ImageIndex := Ord(tbSORTNAME);
  ToolBtn7.Hint := '名前順';
  ToolBtn7.Grouped := True;
  ToolBtn7.Style := tbsCheck;
  ToolBtn8.ImageIndex := Ord(tbSORTDATE);
  ToolBtn8.Hint := '日付順';
  ToolBtn8.Grouped := True;
  ToolBtn8.Style := tbsCheck;
end;

                                                             あほうどり

Original document by あほうどり      氏 ID:(GGA00167)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。