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

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

Delphi控件源码

开发平台：

Delphi

NameValForm.pas：源码内容
  1. unit NameValForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Grids, ValEdit;
  9. type
  10.   TForm1 = class(TForm)
  11.     ValueListEditor1: TValueListEditor;
  12.     Memo1: TMemo;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     btnUp: TButton;
  16.     btnDown: TButton;
  17.     procedure FormCreate(Sender: TObject);
  18.     procedure btnUpClick(Sender: TObject);
  19.     procedure btnDownClick(Sender: TObject);
  20.     procedure ValueListEditor1StringsChange(Sender: TObject);
  21.   private
  22.     SharedItemProp: TItemProp;
  23.   public
  24.     { Public declarations }
  25.   end;
  27. var
  28.   Form1: TForm1;
  30. implementation
  32. {$R *.dfm}
  34. procedure TForm1.FormCreate(Sender: TObject);
  35. var
  36.   I: Integer;
  37. begin
  38.   SharedItemProp := TItemProp.Create (ValueListEditor1);
  39.   SharedItemProp.EditMask := '999;0; ';
  41.   Memo1.Lines := ValueListEditor1.Strings;
  42.   for I := 0 to ValueListEditor1.Strings.Count - 1 do
  43.     ValueListEditor1.ItemProps [I] := SharedItemProp;
  44. end;
  46. procedure TForm1.btnUpClick(Sender: TObject);
  47. begin
  48.   ValueListEditor1.Strings := Memo1.Lines;
  49. end;
  51. procedure TForm1.btnDownClick(Sender: TObject);
  52. begin
  53.   Memo1.Lines := ValueListEditor1.Strings;
  54. end;
  56. procedure TForm1.ValueListEditor1StringsChange(Sender: TObject);
  57. var
  58.   I: Integer;
  59. begin
  60.   for I := 0 to ValueListEditor1.Strings.Count - 1 do
  61.     if not Assigned (ValueListEditor1.ItemProps [I]) then
  62.       ValueListEditor1.ItemProps [I] := SharedItemProp;
  63. end;
  65. end.