unit1.pas

改进的mxOutlookBarpro控件 改进要点： 1.增加按钮双击事件 2.增加按钮图标跳动功能。 编译环境DELPHI5 图标跳动功能做的很弱

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.