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

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

Delphi控件源码

开发平台：

Delphi

ListActForm.pas：源码内容
  1. unit ListActForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ToolWin, ActnMan, ActnCtrls, StdCtrls, ActnList, ListActns,
  8.   ActnMenus, ExtActns, DateUtils;
  10. type
  11.   TForm1 = class(TForm)
  12.     ActionManager1: TActionManager;
  13.     StaticListAction1: TStaticListAction;
  14.     ListBox1: TListBox;
  15.     ActionToolBar1: TActionToolBar;
  16.     VirtualListAction1: TVirtualListAction;
  17.     ListControlCopySelection1: TListControlCopySelection;
  18.     ListControlDeleteSelection1: TListControlDeleteSelection;
  19.     ActionToolBar2: TActionToolBar;
  20.     ListControlMoveSelection2: TListControlMoveSelection;
  21.     ListBox2: TListBox;
  22.     procedure VirtualListAction1GetItemCount(Sender: TCustomListAction;
  23.       var Count: Integer);
  24.     procedure VirtualListAction1GetItem(Sender: TCustomListAction;
  25.       const Index: Integer; var Value: String; var ImageIndex: Integer;
  26.       var Data: Pointer);
  27.     procedure ListActionItemSelected(Sender: TCustomListAction;
  28.       Control: TControl);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  35. var
  36.   Form1: TForm1;
  38. implementation
  40. {$R *.dfm}
  42. procedure TForm1.VirtualListAction1GetItemCount(Sender: TCustomListAction;
  43.   var Count: Integer);
  44. begin
  45.   Count := 100;
  46. end;
  48. procedure TForm1.VirtualListAction1GetItem(Sender: TCustomListAction;
  49.   const Index: Integer; var Value: String; var ImageIndex: Integer;
  50.   var Data: Pointer);
  51. begin
  52.   Value := 'Item' + IntToStr (Index);
  53.   // add this code to check when the method is called
  54.   { + ' - ' + IntToStr (SecondOf (Now)) + ':' +
  55.     IntToStr (MilliSecondOf (Now));}
  56. end;
  58. procedure TForm1.ListActionItemSelected(Sender: TCustomListAction;
  59.   Control: TControl);
  60. begin
  61.   ListBox1.Items.Add ((Control as TCustomActionCombo).SelText);
  62. end;
  64. end.