摘要： IF EXISTS(SELECT * FROM sys.Tables WHERE name='stu_info') DROP TABLE stu_infoGoCreate table stu_info(stu_id int identity(1,1),name nvarchar(20)not null,birthday date null, sex nvarchar(2)null,addres nvarchar(20)null, mark int null,major nvarchar(20)null, sdept nvarchar(20)null ); Insert Into 阅读全文

摘要： 首先用到TXMLDocument控件；Memo来显示XML文件，TreeView来呈现元素；源代码：Procedure TForm2.Button1Click(Sender: TObject);Begin XMLDocument1.LoadFromFile('E:\template1.xml'); Memo1.Font.Size :=15; Memo1.Align := TAlignLayout.alLeft; Memo1.Lines := XMLDocument1.XML; {查看}End;Procedure TForm2.Button2Click(Sender: TObje 阅读全文

摘要： 试了一下，关于好几个广告界面，左右滚动的效果：用TabControl 加上定时器实现即可。1、TTabControl外观TTabControl的外观由属性TabPosition控制，可选项包括：tpTop 选项tab在控件上方tpBottom 选项tab在控件下方tpNone 以原点形式显示... 阅读全文

摘要： 实例5本例功能:在FireMonkey中StringGrid对于字体的调整由于没有font属性和onDrawCell事件使得变得有些麻烦，后来费了一些功夫才找到方法。但由于XE3中某些属性还是没有，（比如说：StGrid.RealignContent;）于是下载了XE4才得以修改成功。 1、字体修改为居中，红色，20号 运行效果图: unit Unit22; interface uses System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes, System.Variants... 阅读全文

摘要： 实例4 本例功能:1、给每个单元格赋值2、调整当前单元格位置：上下左右； 运行效果图: type TForm12 = class(TForm) StringGrid1: TStringGrid; StringColumn1: TStringColumn; StringColumn2: TStringColumn; StringColumn3: TStringColumn; StringColumn4: TStringColumn; StringColumn5: TStringColumn; Panel1: TPanel; Button1: TButto... 阅读全文

摘要： 实例3： 本例功能: 1、修改 TStringGrid的默认宽与高; 2、添加行; 3、确认当前单元并赋值. 实例图形： unit Unit12; interface uses System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Grid, FMX.Layouts; type TForm12 = class(TForm) ... 阅读全文

摘要： 实例2： 本例功能: 1、获取 StringGrid 的行数、列数; 2、给单元赋值. 运行效果图: //示例代码://获取总列数，和总行数 procedure TForm12.Button1Click(Sender: TObject); var cCount,rCount: Integer; begin cCount :=StringGrid1.ColumnCount; {获取总列数} rCount := StringGrid1.RowCount; {获取总行数} Caption := Format('总列数: %d ,总行数: %d', [cC... 阅读全文

摘要： 实例1：初始化StirngGrid的首行和首列 // 主要代码部分： procedure TForm23.SetSGridTitle(Sender: TObject); var ColIndex, RowIndex: integer; begin //画第一行（标题栏） for colIndex := 1 to StringGrid1.ColumnCount do begin StringGrid1.Cells[colIndex, 0] := '列名' + Chr(ord('A') - 1 + colIndex); end; //画第一列（数字栏） String 阅读全文

摘要： 3、StringGrid之Event事件 property LiveBinding //把对象之间的属性绑定起来（XE2新增功能）property OnApplyStyleLookup: TNotifyEvent ...; //应用新样式property OnCanFocus: TCanFocusEvent ...; // SetFocus() 时property OnClick: TNotifyEvent ...; //单击时property OnDblClick: TNotifyEvent ...; //双击时property OnDragEnter: TDragEnterE... 阅读全文

摘要： StringGrid之属性大全: Align： //确定组件在父类组件区内的对齐方式（alScale：随窗口 放大缩小） AlterRowBackGround： //设置用于绘制奇偶数行背景的颜色是否一样 Anchors： //当对象的容器的尺寸改变时，该对象的的位置怎么定位，一般其四个属性都设置为true： akLeft为True是控件与它的父控件的左边缘的距离不变 ； akTop为True是控件与它的父控件的上边缘的距离不变 ； akRight为True是控件与它的父控件的右边缘的距离不变 ； akBottom为True是控件与它的父控件的下边缘的距离不变。 Auto... 阅读全文