createadd.pas

类似Delphi Ide的对象查看器 可以在RUNTIME时使用

unit CreateAdd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MyLstBox, MyButton, ComCtrls, MyAutoBtn;

type
  Tfrm_CreateAdd = class(TForm)
    btnOk: TMyAutoBitBtn;
    btnCancel: TMyAutoBitBtn;
    lstAddControls: TMyListBox;
    btnSelectAll: TMyAutoBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btnSelectAllClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure lsvAddJobsEditing(Sender: TObject; Item: TListItem;
      var AllowEdit: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

{var
  frm_CreateAdd: Tfrm_CreateAdd;}

implementation

{$R *.dfm}

procedure Tfrm_CreateAdd.lsvAddJobsEditing(Sender: TObject; Item: TListItem;
  var AllowEdit: Boolean);
begin
  AllowEdit:=False;
end;

procedure Tfrm_CreateAdd.FormCreate(Sender: TObject);
begin
  if GetACP=936 then
    Self.Caption:='增加控件'
  else if GetACP=950 then
    Self.Caption:='糤