unit1.pas

来自「改进的mxOutlookBarpro控件 改进要点： 1.增加按钮双击事」· PAS 代码 · 共 62 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, mxOutlookBarPro, ImgList, Menus, StdCtrls,ExtCtrls;

type
  TTmxOutLookBarProDemo = class(TForm)
    UserNormalImageList: TImageList;
    mxOutlookBar: TmxOutlookBarPro;
    Button1: TButton;
    Button2: TButton;
    procedure mxOutlookBarHeaders0Buttons0DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    procedure mxBtnDblClick(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TmxOutLookBarProDemo: TTmxOutLookBarProDemo;

implementation

{$R *.dfm}

procedure TTmxOutLookBarProDemo.mxBtnDblClick(Sender:TObject);
begin
  showmessage('你点到了吧，看到效果了吧，哈哈哈哈哈哈');
end;

//方法一
procedure TTmxOutLookBarProDemo.mxOutlookBarHeaders0Buttons0DblClick(
  Sender: TObject);
begin
  showmessage('mxOutlookBarPro1Headers0Buttons0DblClick');
end;

//方法二
procedure TTmxOutLookBarProDemo.FormCreate(Sender: TObject);
begin
  mxOutlookBar.Headers[0].Buttons[1].OnDblClick:=mxBtnDblClick;
end;

procedure TTmxOutLookBarProDemo.Button1Click(Sender: TObject);
begin
  mxOutlookBar.Headers[0].Buttons[1].BeginJump;
end;

procedure TTmxOutLookBarProDemo.Button2Click(Sender: TObject);
begin
  mxOutlookBar.Headers[0].Buttons[1].StopJump;
end;

end.