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

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

1 uses 2 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 3 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBa ...

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

1]连接好数据库，并显示；(设计时的连接，和运行时的连接，是两个独立的连接，要区分开) procedure TForm1.FormCreate(Sender: TObject); begin FDQuery1.Connection := FDConnection1; FDConnection1.Lo ...

EPX是利用基于Pascal的FastScript语言作为基础语言，在其中增加了许多函 数与特性的一个扩展，将EPX组件本身融入到语言中去，使其能够更加灵活方便 地运用EPX的所有功能，实现与EPX核心的友好交互。 ...

第一步： 设置cxgrid的属性， OptionsView.Indicator = True 第二步： 写OnCustomDrawIndicatorCell方法 procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell(Sender: T ...

界面代码： object Form1: TForm1 Left = 252 Top = 190 Width = 1149 Height = 549 Caption = 'Form1' Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color ...

首先提供两个XML文件 XML代码如下： 1、Example.xml <?xml version="1.0" encoding="ISO-8859-1"?> <chart> <series title="Series1" type="Point" color="#FF0000"> <points c ...

1】Navicat for SQLite ,直接导入，会出现好多问题，即使导入成功，最后一个字经常会是乱码，这方法放弃 2】编程转换，JSON文本文件中有好多偏僻字，Delphi 里的UTF8toAnsi函数往往不成功，这方法放弃/因为Delphi自带的转换函数遇到其无法识别的字符串就返回空 fun ...

界面代码： object Form1: TForm1 Left = 568 Top = 393 Width = 725 Height = 408 Caption = '对象观察器' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color ...

界面代码： object Form1: TForm1 Left = 202 Top = 182 Width = 1305 Height = 675 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Colo ...

先上图 功能代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TeEngine, Series, TeeNavigato ...

1]改变文本Caption 2]改变颜色字体Font 3]点击访问网址,OnClick事件 3.1访问网址另一种简单办法 1]改变文本Caption unilabel1.Caption:='unilabel1文本'; 2]改变颜色字体Font.不是直接改Color,而是 uniLabel1.Font ...

最近不知怎么的，想研究一下图表。先上效果图： 功能代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TeeEdit, E ...

sender.setText('Over'); MainForm.UniLabel1.setPosition(x, y); MainForm.UniLabel1.setText('Click!'); ...

一个多月了,新病毒还没过去,今天开始上班了 过年哪都没去,在家宅着打游戏看小说,偶尔写写代码 自己做了一个人物的飞行道具的FBX,以前也做了一个但是没用骨骼蒙皮 以前那个导到UE4里面模型都飞了不知道为什么 静态网格模型和动画骨骼模型混合的正确使用方法以后做场景的时候还要再仔细研究 自己的引擎没有弄 ...

1]SendFile 2]SendStream 3]自定义类型文件下载 1]SendFile UniSession.SendFile('新建文本文档.txt' //服务器端 文件名 ,'anew.txt' //客户端 新下载 的文件名 ); 2]SendStream procedure TMainF ...

1]基本设置FDQuery1.Connection2]执行查询SQL语句3]执行 非查询SQL语句4]返回所有数据 和所有 列名 1]基本设置FDQuery1.Connection 一定要 放一个 FDPhysSQLiteDriverLink1到ServerModule上 // uses FireD ...

0]MainModule的BrowserOptions.boDisableMouseRightClick设置为Trure; 1]控件的OnCellContextClick的事件 procedure TMainForm.UniDBGrid1CellContextClick(Column: TUniDB ...