开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ActionsF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：3k
源码类别：

Delphi控件源码

开发平台：

Delphi

ActionsF.pas：源码内容
  1. unit ActionsF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdActns, ActnList, ExtCtrls, StdCtrls, Menus, ImgList, Buttons,
  8.   ComCtrls, ToolWin;
  10. type
  11.   TForm1 = class(TForm)
  12.     Memo1: TMemo;
  13.     ActionList1: TActionList;
  14.     ActionCopy: TEditCopy;
  15.     ActionCut: TEditCut;
  16.     ActionPaste: TEditPaste;
  17.     ActionNew: TAction;
  18.     ActionExit: TAction;
  19.     NoAction: TAction;
  20.     ActionCount: TAction;
  21.     ActionBold: TAction;
  22.     MainMenu1: TMainMenu;
  23.     Edit1: TMenuItem;
  24.     Paste2: TMenuItem;
  25.     Copy2: TMenuItem;
  26.     Cut2: TMenuItem;
  27.     File1: TMenuItem;
  28.     New1: TMenuItem;
  29.     Close1: TMenuItem;
  30.     Test1: TMenuItem;
  31.     N1: TMenuItem;
  32.     Bold1: TMenuItem;
  33.     NoAction1: TMenuItem;
  34.     CharCount1: TMenuItem;
  35.     ImageList1: TImageList;
  36.     ActionEnable: TAction;
  37.     EnableNoAction1: TMenuItem;
  38.     ActionSender: TAction;
  39.     TestSender: TMenuItem;
  40.     ToolBar1: TToolBar;
  41.     ToolButton1: TToolButton;
  42.     ToolButton3: TToolButton;
  43.     ToolButton4: TToolButton;
  44.     ToolButton5: TToolButton;
  45.     ToolButton6: TToolButton;
  46.     ToolButton7: TToolButton;
  47.     ToolButton8: TToolButton;
  48.     ToolButton9: TToolButton;
  49.     ToolButton10: TToolButton;
  50.     ToolButton2: TToolButton;
  51.     procedure ActionNewExecute(Sender: TObject);
  52.     procedure ActionExitExecute(Sender: TObject);
  53.     procedure ActionBoldExecute(Sender: TObject);
  54.     procedure ActionCountUpdate(Sender: TObject);
  55.     procedure ActionCountExecute(Sender: TObject);
  56.     procedure ActionEnableExecute(Sender: TObject);
  57.     procedure ActionSenderExecute(Sender: TObject);
  58.   private
  59.     { Private declarations }
  60.   public
  61.     { Public declarations }
  62.   end;
  64. var
  65.   Form1: TForm1;
  67. implementation
  69. {$R *.DFM}
  71. procedure TForm1.ActionNewExecute(Sender: TObject);
  72. begin
  73.   Memo1.Lines.Clear;
  74. end;
  76. procedure TForm1.ActionExitExecute(Sender: TObject);
  77. begin
  78.   Close;
  79. end;
  81. procedure TForm1.ActionBoldExecute(Sender: TObject);
  82. begin
  83.   with Memo1.Font do
  84.     if fsBold in Style then
  85.       Style := Style - [fsBold]
  86.     else
  87.       Style := Style + [fsBold];
  88.   // toggle status
  89.   ActionBold.Checked := not ActionBold.Checked;
  90. end;
  92. procedure TForm1.ActionCountUpdate(Sender: TObject);
  93. begin
  94.   ActionCount.Enabled := Memo1.Empty Text <> '';
  95. end;
  97. procedure TForm1.ActionCountExecute(Sender: TObject);
  98. begin
  99.   ShowMessage ('Characters: ' + IntToStr (
  100.     Length (Memo1.Text)));
  101. end;
  103. procedure TForm1.ActionEnableExecute(Sender: TObject);
  104. begin
  105.   NoAction.DisableIfNoHandler := False;
  106.   NoAction.Enabled := True;
  107.   ActionEnable.Enabled := False;
  108. end;
  110. procedure TForm1.ActionSenderExecute(Sender: TObject);
  111. begin
  112.   Memo1.Lines.Add (
  113.     'Sender class: ' + Sender.ClassName);
  114.   Memo1.Lines.Add (
  115.     'Sender name: ' + (Sender as TComponent).Name);
  116.   Memo1.Lines.Add (
  117.     'Category: ' + (Sender as TAction).Category);
  118.   Memo1.Lines.Add (
  119.     'Action list name: ' + (Sender as TAction).ActionList.Name );
  120. end;
  122. end.