unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ShortCutCustomizeDlg, StdCtrls, ActnList, Spin, ExtCtrls,
  Menus;

type
  TForm1 = class(TForm)
    ActionList1: TActionList;
    Button1: TButton;
    CanCustomizeAction1: TCanCustomizeAction;
    Action1: TAction;
    Action2: TAction;
    CanCustomizeAction2: TCanCustomizeAction;
    ShortCutCustomizeDlg1: TShortCutCustomizeDlg;
    Action3: TAction;
    CanCustomizeAction3: TCanCustomizeAction;
    procedure Button1Click(Sender: TObject);
    procedure CanCustomizeAction1Execute(Sender: TObject);
    procedure CanCustomizeAction2Execute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure CanCustomizeAction3Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
  private
    { Private �錾 }
  public
    { Public �錾 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ShortCutCustomizeDlg1.Execute then
    ShortCutCustomizeDlg1.Reflect;

  Font.Assign(Font);  
end;

procedure TForm1.CanCustomizeAction1Execute(Sender: TObject);
begin
  ShowMessage(TComponent(Sender).Name +#13+
              ShortCutToText(TCustomAction(Sender).ShortCut));
end;

procedure TForm1.CanCustomizeAction2Execute(Sender: TObject);
begin
  ShowMessage(TComponent(Sender).Name +#13+
              ShortCutToText(TCustomAction(Sender).ShortCut));
end;

procedure TForm1.Action1Execute(Sender: TObject);
begin
  ShowMessage(TComponent(Sender).Name +#13+
              ShortCutToText(TCustomAction(Sender).ShortCut));
end;

procedure TForm1.Action2Execute(Sender: TObject);
begin
  ShowMessage(TComponent(Sender).Name +#13+
              ShortCutToText(TCustomAction(Sender).ShortCut));
end;

procedure TForm1.CanCustomizeAction3Execute(Sender: TObject);
begin
  ShowMessage(TComponent(Sender).Name +#13+
              ShortCutToText(TCustomAction(Sender).ShortCut));
end;

procedure TForm1.Action3Execute(Sender: TObject);
begin
  ShowMessage(TComponent(Sender).Name +#13+
              ShortCutToText(TCustomAction(Sender).ShortCut));
end;

end.