procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var i: Integer; begin if gdSelected in State then Exit; // 定义表头的字体和背景颜色： for i := 0 to (Sender as TDBG...

2020-04-11 16:00:26

1]设置IconCls属性，这种方法不需添加ImageList,简单方便，推荐使用 2]如嫌方法1的图标样式太少，可载入本地图标， 双击 UniNativeImageList控件，推荐使用 设置uniButton的Images属性和ImageIndex属性即可。 3]双击UniNativeImageList，载入网络字体图标，需联网，不...

2020-04-09 16:00:35

1]父容器的AlignmentControl设为uniAlignmentClient 2]父容器的Layou设为hbox//水平盒式排列 3]子控件的排列比例 4]设置控件间格 修改父控件的大小，子控件 的大小也会随之按按比例改变...

2020-04-08 16:00:47

delphi 调用百度识别 虽然百度大家一直在骂，但是我发现其实百度有些东西还是可以用的。现在大家都搞人工智能了，我们Delphi也不可以落后。废话不多说，直接上代码 第一步，先获取AccessToken function GetAccessToken(const client_id, client_secret: string; HTTP:...

2020-04-07 01:24:48

终止 IdFtp下载 Posted on 2020-03-29 21:20 jjw阅读( ... )评论( ... )编辑收藏 1 uses 2 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 3 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponen...

2020-03-29 16:00:40

1]添加一个DBNavigator1,其DataSource设置为与DBGrid1一样 2] 双击 DBGrid1里一个单元格，修改数据后，点DBNavigator1的 绿勾 提交修改 3]DBGrid1的ReadOnly一定为False,否则双击修改不了...

2020-03-28 16:00:31

1]连接好数据库，并显示； procedure TForm1.FormCreate(Sender: TObject); begin FDQuery1.Connection : = FDConnection1;FDConnection1.LoginPrompt: =false; // 取消登录提示框 FDConnection1.Open( ' DriverID=SQLite;Database=test1.Sqlite3.db ' ); end ; 2]增加...

2020-03-26 16:01:47

EPX Studio产品功能介绍 EPX是利用基于Pascal的FastScript语言作为基础语言，在其中增加了许多函数与特性的一个扩展，将EPX组件本身融入到语言中去，使其能够更加灵活方便地运用EPX的所有功能，实现与EPX核心的友好交互。 EPX主要面向谁解决什么问题 EPX是什么? EPX基...

2020-03-21 16:00:43

如何让tcxGrid左边显示序号 第一步：设置cxgrid的属性， OptionsView.Indicator = True第二步：写OnCustomDrawIndicatorCell方法 procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGr...

2020-03-16 16:00:43

TChart-序列类工具功能演示 界面代码： object Form1: TForm1 Left = 252 Top = 190 Width = 1149 Height = 549 Caption = ' Form1 ' Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = - 13 Font.Name = ' 宋体 ' Font.Style...

2020-03-08 16:00:57