unitfrmtoolbar.pas

DELPHI7编程百例 DELPHI7编程百例 DELPHI7编程百例

unit unitFrmToolbar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ImgList, ComCtrls, ToolWin, StdCtrls;

type
  TForm1 = class(TForm)
    tlbToolBar1: TToolBar;
    tbtnToolButton1: TToolButton;
    tbtnToolButton2: TToolButton;
    tbtnToolButton3: TToolButton;
    tbtnToolButton4: TToolButton;
    ilHot: TImageList;
    pmPopupMenu1: TPopupMenu;
    mmiN1: TMenuItem;
    mmiN2: TMenuItem;
    iIDisa: TImageList;
    ilNormal: TImageList;
    chkCheckBox1: TCheckBox;
    procedure chkCheckBox1Click(Sender: TObject);
    {-----------------------------------------------------------------------------
      Procedure: tbtnToolButton4Click
      Author:    Administrator
      Date:      20-六月-2002
      Arguments: Sender: TObject
      Result:    None
    -----------------------------------------------------------------------------}
    procedure tbtnToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.chkCheckBox1Click(Sender: TObject);
begin
  tlbToolBar1.Flat := chkCheckBox1.Checked;
end;

procedure TForm1.tbtnToolButton4Click(Sender: TObject);
begin
  if tbtnToolButton1.Enabled then
    ShowMessage('本按钮处在选中状态，按钮一不可使用');
  tbtnToolButton1.Enabled := not tbtnToolButton4.Down;
end;

end.