'
TabOrder = 0
object ListBox1: TListBox
Left = 2
Top = 15
Width = 181
Height = 166
Align = alClient
ItemHeight = 13
TabOrder = 0
OnClick = ListBox1Click
end
end
object GroupBox2: TGroupBox
Left = 368
Top = 1
Width = 262
Height = 183
Align = alRight
Caption = '属性信息'
TabOrder = 1
object ListBox3: TListBox
Left = 2
Top = 15
Width = 258
Height = 166
Align = alClient
ItemHeight = 13
TabOrder = 0
end
end
object GroupBox3: TGroupBox
Left = 186
Top = 1
Width = 182
Height = 183
Align = alClient
Caption = '基本信息'
TabOrder = 2
object ListBox2: TListBox
Left = 2
Top = 15
Width = 178
Height = 166
Align = alClient
ItemHeight = 13
TabOrder = 0
end
end
end
object TPanel
Left = 0
Top = 185
Width = 631
Height = 157
Align = alClient
TabOrder = 1
object Panel2: TPanel
Left = 1
Top = 1
Width = 230
Height = 155
Align = alLeft
TabOrder = 0
object Label2: TLabel
Left = 10
Top = 8
Width = 84
Height = 13
Caption = '要修改的控件名'
end
object Label3: TLabel
Left = 8
Top = 32
Width = 72
Height = 13
Caption = '修改的属性名'
end
object Label4: TLabel
Left = 8
Top = 64
Width = 72
Height = 13
Caption = '将属性修改为'
end
object edComName: TEdit
Left = 104
Top = 5
Width = 78
Height = 21
TabOrder = 0
Text = 'label1'
end
object edPproName: TEdit
Left = 104
Top = 32
Width = 81
Height = 21
TabOrder = 1
Text = 'caption'
end
object edValue: TEdit
Left = 104
Top = 56
Width = 81
Height = 21
TabOrder = 2
Text = '12345'
end
object btnInit: TButton
Left = 8
Top = 104
Width = 75
Height = 25
Caption = '初始化'
TabOrder = 3
OnClick = btnInitClick
end
object btnModify: TButton
Left = 104
Top = 104
Width = 75
Height = 25
Caption = '修改'
TabOrder = 4
OnClick = btnModifyClick
end
end
object Panel3: TPanel
Left = 231
Top = 1
Width = 399
Height = 155
Align = alClient
TabOrder = 1
object GroupBox4: TGroupBox
Left = 1
Top = 1
Width = 397
Height = 153
Align = alClient
Caption = '被修改的控件'
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 32
Width = 28
Height = 13
Caption = 'label1'
end
object BitBtn1: TBitBtn
Left = 8
Top = 64
Width = 75
Height = 25
Caption = 'BitBtn1'
TabOrder = 0
end
end
end
end
end
{
作者:wudi_1982
联系方式:wudi_1982@hotmail
转载请注明出处
}
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs,typinfo, StdCtrls, ExtCtrls, Buttons;
type
InsertCom = record
Name : string; //要修改属性的组件名
PproName : st