; 16 Panel1: TPanel; 17 Panel2: TPanel; 18 Panel3: TPanel; 19 Panel4: TPanel; 20 Panel5: TPanel; 21 Panel6: TPanel; 22 Panel7: TPanel; 23 Panel8: TPanel; 24 : TPanel; 29 Panel14: TPanel; 30 Panel15: TPanel; 31 Panel16: TPanel; 32 Panel17: TPanel; 33 Panel18: TPanel; 34 Panel19: TPanel; 35 Panel20: TPanel; 36 Panel21: TPanel; 37 Panel22: TPanel; 38 Panel23: TPanel; 39 Panel24: TPanel; 40 Panel25: TPanel
OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel = 166 Align = alClient ItemHeight = 13 TabOrder = 0 end end end object TPanel Top = 185 Width = 631 Height = 157 Align = alClient TabOrder = 1 object Panel2: TPanel ;//要修改or添加给控件的事件名 text : string; //属性值,这里修改的是string类型的数值 end; TForm1 = class(TForm) Panel1: TPanel GroupBox2: TGroupBox; GroupBox3: TGroupBox; ListBox2: TListBox; ListBox3: TListBox; Panel2: TPanel
在弹出的Add窗口中选择New Component页 选择继承于TPanel,将Class Name命名为:UserControl,Palette Page改为User,随后确定。 但是它没有什么特殊的功能,它只是简单地继承了TPanel控件,并且TMyComponent的所有属性和事件都是TPanel的,我并没有给它定义新的属性,方法和事件。 也就是说,现在TMyCommponent和TPanel基本上完全一样(从功能上讲)。 控件写到这,你是不是已经觉得用BCB写控件很简单?不错,简单点几下鼠标就可以写一个控件,的确太简单了。
TButton; Edit2: TEdit; Timer1: TTimer; Button4: TButton; Button5: TButton; Panel1: TPanel ; Button3: TButton; CheckBox1: TCheckBox; Panel2: TPanel; procedure Button1Click(Sender
TMemoryStream Classes TMouseButton Controls TNofityEvent Classes TObjectList Contnrs TOSVersionInfo Windows TPanel
TButton,TEdit,TListBox,TMemo,TMainMenu,TScrollBar,TPopupMenu,TCheckBox,TRadioButton,TRadioGroup,TGroupBox,TPanel (1) TPanel组件 New Term 面板(panel)代表窗体上的一个矩形区域,通常它有它自己的组件,可以把它作为一个单元来处理。
TCheckBox rb TRadioButton lb TListBox cb TComboBox scb TScrollBar gb TGroupBox rg TRadioGroup pnl TPanel