{动态添加导航} var Panl:Tpanel; MainPage,Subpage:TPageControl; TabSheet1: TTabSheet; ToolBar2: TToolBar; Splitter:TSplitter; begin {创建导航树开始} Panl:=Tpanel.Create(self); with Panl do begin Parent := mainForm; Left:= ; Top:= ; Width:= ; Height:= ; Align:= alL
for (int i = 0; i < 4; i++) { Button btn = new Button(); //btn.Name = dt.Rows[i]["ANDON_CONTENT_CODE"].ToString(); btn.Text = dt.Rows[i]["ANDON_CONTENT_NAME"].ToString(); btn.Location = new Point(5 + i * 143, 25); btn.Size = new Siz
常用DELPHI控件属性事件设置说明 常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQuery Class TADODataSet Class TDBGrid Class TADOStoredProc Class TButton Class TBitBtn Class TComboBox Class TStaticText