![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi
delphi收藏的一些函数与解决方法
闪闪棉花糖
闪闪棉花糖
展开
-
Insert 改变array的长度
Insert 改变array的长度原创 2023-02-12 20:02:10 · 146 阅读 · 0 评论 -
Dephi2007以任意字符串分隔字符
Dephi2007以任意字符串分隔字符原创 2022-11-29 16:31:07 · 509 阅读 · 0 评论 -
全局变量与局部变量有差异
全局变量与局部变量有差异原创 2022-11-27 11:44:41 · 267 阅读 · 0 评论 -
cxGrid的学习日记
cxGrid的学习日记原创 2022-06-12 19:15:45 · 295 阅读 · 0 评论 -
回叫信道Datasnap
使用DSClientCallbackChannelManager1组件DataSnap XE3新增回叫信道功能。技术关键点: (1)TDBXCallback机制; (2)TDServer.BroadcastMessage方法; (3)TDSClientCallbackChanneManager1.RegisterCallback方法; 一、回叫的方式 1、服务器端回叫所有(同一信道)客户端 2、客户端回叫(同一信道)的其它客户端 ...原创 2022-03-19 14:11:34 · 314 阅读 · 0 评论 -
ClientDataSet调用Oracle过程
--过程,但不适合使用临时表作结果返回,因表记录不会删除且存在同一个用户在不同客户端登录如果不删除结果,会造成结果不对CREATE OR REPLACE Procedure P_TempTable(EMPNo in varchar2,EName in varchar2, cur_arg out sys_refcursor) Authid Current_Useris--declare is后面直接 定义变量不用 declare 调用时才用这个 v_StrSql varchar2(2000);.原创 2022-03-16 09:44:00 · 235 阅读 · 0 评论 -
delphi 重启exe或者重新登录
看了网上好多的方案,有的是kill exe,有的使用另外一个exe去打开自己的应用,经过自己的测试,其实不用这么麻烦,只要两行代码就可以搞定,希望可能帮到大家use WinAPI.shellAPI;ShellExecute(Application.Handle,'open',PChar(Application.ExeName), nil, nil, SW_SHOWNORMAL); Application.Terminate;...原创 2022-03-04 22:02:12 · 386 阅读 · 0 评论 -
Delphi StringGrid常用属性和常用操作
StringGrid组件用于建立显示字符串的网格,与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性,以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用,这些对象为用户封装了字符串表示的信息或行为。一、Delphi StringGrid控件的属性及使用说明1、固定行及固定列: (没有固定行列的时候,不能在运行时调节各个单元格的宽度和高度) StringGrid.FixedC..原创 2021-12-26 13:19:19 · 1023 阅读 · 0 评论 -
Delphi Interface生成GUID
在鼠标光标处在Delphi的IDE中,按Ctrl+Shift+G键可以为一个接口生成一个新的GUID。原创 2021-12-03 09:17:46 · 436 阅读 · 0 评论 -
加载dll窗体所遇到问题记录
要在Exe main form中建立好数据库连接procedure TMain.FormCreate(Sender: TObject);var vPage:TRzTabSheet;begin //解决AlphaControls 皮肤 windowState :=wsMaximized 最大化时出现 标题栏出现 黑色块问题 脏读问题 //这个有可能是 AlphaControls 控件对窗体最大化没有渲染好的问题; ClientHeight :=Screen.Height; Cl...原创 2021-10-24 17:40:51 · 208 阅读 · 0 评论 -
求数据集某列的和
TDBSumList求和控件设计好数据集与字段dbsmlst1.SumCollection.Items[0].SumValue原创 2021-08-24 16:33:32 · 118 阅读 · 0 评论 -
DELPHI 去字符串中所有空格
function trimblank(s: string): string;var i, j: integer;begin repeat i := pos(' ', s); j := length(s); if i > 0 then s := copy(s, 1, i - 1) + copy(s, i + 1, j - i); until i = 0; Result := s;end;转自:https://www.cnblogs.com...原创 2021-08-19 16:31:19 · 1451 阅读 · 0 评论 -
combobox 禁止输入
ComboBox 有4种输入风格(Style),csDropDownList是只能从列表中选择,不能输入;csDropDown是既可选择,也可手动输入。原创 2021-08-16 14:30:54 · 3722 阅读 · 0 评论 -
筛选框RzDBCheckBox1 邦定数据源字段值为整数设置方法
在界面上设置RzDBCheckBox1.ValueChecked :=1;RzDBCheckBox1.ValueUnChecked :=0;原创 2021-07-28 17:20:28 · 136 阅读 · 0 评论 -
FireDAC如何连接ORACLE数据库
FDPhysOracleDriverLink1加入这个驱动器 UniDac对Oracle的Direct连接,不需要安装Oracle客户端dll,deploy时真的是方便又快捷。 FireDac连接Oracle,在没有Oracle Client的情况下,是可以连接上的。前提是需要文件oci.dll、oraocci11.dll、oraociei11.dll、orasql11.dll,这4个dll文件,可以放在Exe同一个目录下,或者path里面能找到得到的地方。有了这4个文件,就可以连接o...原创 2021-07-13 13:46:28 · 611 阅读 · 0 评论 -
DBGrideh 中查看详情数据或者显示一个面板
DBGrideh1.RowDetailPanel.Active :=True;设计界面出现一个面板在这个面板中添加一个PageControl控件里面可以再添加一个Grid表格可以事件OnRowDetailPanelShow中添加如果代码控制procedure TForm1.DBGridEh1RowDetailPanelShow(Sender: TCustomDBGridEh; var CanShow: Boolean);begin if PageControl1.Activ...原创 2021-07-13 12:14:27 · 372 阅读 · 0 评论 -
StyleControl Button模板样式
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, cxButtons, scControls, scGPControls, Vcl.Buttons, System.ImageList, Vc.原创 2021-07-12 09:26:22 · 508 阅读 · 0 评论 -
Style Control TscGPPageControl 样式
--pas--unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, scGPControls, Vcl.ExtCtrls, Vcl.StdCtrls, scExtControls, scGPPagers, scContro.原创 2021-07-12 09:02:38 · 590 阅读 · 0 评论 -
Datasnap 获取客户端IP
uses Data.DBXTransport;//ServerContainerprocedure TServerContainer.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);var ci: TDBXClientInfo; ClientID: Integer;begin ci := DSConnectEventObject.ChannelInfo.ClientInfo; ClientID := DSC...原创 2021-07-11 18:21:06 · 260 阅读 · 0 评论 -
Dev 右键圆形菜单 dxRibbonRadialMenu控件使用
设计视图双击dxRibbonRadialMenu1增加项目增改显示文字增加图标列表代码很简单,从当前鼠标位置打开,屏蔽系统右键procedure TForm1.cxMemo1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);begin dxRibbonRadialMenu1.PopupFromCursorPos; Handled := True;end;点右键最原创 2021-07-11 18:11:00 · 445 阅读 · 0 评论 -
dxCameraControl控件(拍照)
Developer Express VCL Products 19.1.2主要属性设置Active:TrueDeviceIndex:设备号,默认为0其他方法procedure Capture; //捕获procedure Pause; //暂停procedure Play; //播放procedure Stop; //停止property State: TdxCameraControlState read FState; //设备状态//拍照并在cxImage中显示proc.原创 2021-07-11 17:46:02 · 397 阅读 · 0 评论 -
DBGrideh 行变色
在事件中判断去变色,10.0版本的偶数行变色,只需设置DBGridEh1.EvenRowColor :=clCream这个是变黄色procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);begin// if MemTableEh1.FieldByName('Populati...原创 2021-07-11 17:08:37 · 419 阅读 · 0 评论 -
DBGridEh 显示正在截入数据
DBGridEh1查询数据后显示正载入的数据的 等待界面 正在载入数据DBGridEh1.StartLoadingStatus; try MemTableEh1.Close; MemTableEh1.Open; finally DBGridEh1.FinishLoadingStatus; end;原创 2021-07-10 11:04:03 · 253 阅读 · 0 评论 -
TDBGridEh 隐藏title,隐藏行线,竖线,搜索行的
dfm布局文件中的去掉dgtitles 设置为false dgindicator 为False 即可隐藏标题栏datasource中的Dataset 可以使用 TMemTableEH 控件 作为数据源,里面定义好字段与数据这种的就是写死在程序中不需要连接数据库列内容 居中显示 DBGridEh1.Columns[0].Layout :=tlCenter; 列显示行线的设置不显示设置为FalseDBGridEh1.GridLineParams.DataHorzLines :=Fal..原创 2021-07-10 10:52:24 · 547 阅读 · 0 评论 -
StyleControls的一些使用方法设置布局
1、首先在项目的options 中 Application中 Appearance 中选择应用的皮肤Default style 下拉选择Windows10 吧 这里主要是用于scStyledForm1 中添加的安扭能显示生效dpr 文件program StyleForm;uses Vcl.Forms, Unit3 in 'Unit3.pas' {Form3}, Vcl.Themes, Vcl.Styles;{$R *.res}begin Application.In.原创 2021-07-04 14:18:15 · 1711 阅读 · 0 评论 -
delphi10.3 设置设置自带主题
在项目的工程文件中勾选主题,设置缺省主题为Windows,选择后保存uses Vcl.Themes;procedure TfrmMain.Button1Click(Sender: TObject);begin TStyleManager.SetStyle(ComboBox1.Text);//Windows10主题end;procedure TfrmMain.FormCreate(Sender: TObject);VarStyleName : string;begi...原创 2021-06-26 16:49:54 · 821 阅读 · 0 评论 -
TDBGridEh表格 lookupParams 使用
客户的:cdsCustomer :TclientDataSet 的CommandText 为下的,中包含了DepartmentID 部门ID,这里不用关联Department 表的DepartmentID字段CommandText :='select top 10 CustomerID,Code,Customer,DepartmentID from Customer ';客户显示的表格如下设置Grideh1.columns[2].FieldName :='DepartmentID'; //部门.原创 2021-06-20 22:23:05 · 457 阅读 · 0 评论 -
Delphi实现窗体内嵌其他应用程序窗体
在实现细节上需要注意几点:为了美化程序的嵌入效果,需要隐藏其标题栏在外部窗体大小变化时,需要内嵌的窗体也随之变化大小外部程序退出时,内嵌的程序也要退出下面是例子程序。新建窗体,上面放置一个Panel控件,名为pnlApp,然后按下面代码编写unit frmTestEmbedApp; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs.原创 2021-06-19 11:09:01 · 1670 阅读 · 0 评论 -
Delphi窗体显示Echarts图表
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, DBAccess, Vcl.Menus, System.Actions, Vcl.ActnList, Vcl.StdCtrls, Vcl.OleCtrl.原创 2021-06-15 15:37:11 · 475 阅读 · 0 评论 -
delphi FastReport fr3使用注意点
MemoView:设置属性Linespceing为0Stretch或者Stretch to Max Height不选 ,好像fastreport4.0的有bug ,有边框时 ,会出现重叠的现象;可能其他版本没有这个版本,这个要根据具体情况来的ReportMinch Rm打印控件是没有这些问题的...原创 2021-05-28 16:45:21 · 959 阅读 · 0 评论 -
TRzToolbar 的使用与自带的 TToolbar的使用比较
TRzToolbar 的使用与自带的 TToolbar的使用比较特点介绍:TRzToolbar 在delphi 自带的设置中右键添加toolbutton不回ImageList图标控件显示设置TRzToolbar 中的ButtonHeight 为50,ButtonWidth为70,GradientColorStyle 选择gxcCustomer或者其他的设置TRzToolbar 的RowHeight为60,ShowButtonCations 为True,VisuaStyle为vsGradient设.原创 2020-10-26 15:51:54 · 746 阅读 · 0 评论 -
TMS 控件 制作类似标签页的竖排按扭
procedure TFrmMain.ClearControls(AParent: TWinControl);var i: Integer;begin for i := AParent.ControlCount - 1 downto 0 do begin if not AParent.Controls[i].InheritsFrom(TWinControl) then Continue; try if TWinControl(AParent.Controls[i...原创 2020-10-23 18:23:57 · 213 阅读 · 0 评论 -
TRzPageControl多页实现单页显示效果
1、子项的所有的TRzTabSheet设置属性TabVisible为False ,再在tabsheet中添加其他的控件如button按扭,panel等控件2、在Form中放在一个按扭实现TRzPageControl的切换功能RzPageControl1.ActivePage :=tabCommonControls当前活动的tabSheet,即可显示包含在它控件内的子控件,button,panel等...原创 2020-10-23 14:52:56 · 448 阅读 · 0 评论 -
Delphi Socket使用
控件ServerSocket设置地址与端口,是以tcp的形式访问原创 2020-10-22 19:35:53 · 320 阅读 · 0 评论 -
dxNavBar使用问题
devExprss 中的dxNavBar 使用(设置后选中其中的一个)看看有没有这个属性AllowAllUP,如果有设为true没找到AllowAllUP属性,dxNavBar1.AllowSelectLinks :=True,我设ViewStyle=VistaExplorerBarView dxNavBar1.Items.Clear; dxNavBar1.Groups.Clear; //++++++++++++++++++++++++++++++++++++++++++++++..原创 2020-10-16 15:32:04 · 698 阅读 · 0 评论 -
delphi json取key
GlotticClosure :=TStringList.Create; GlotticClosure.Clear; GlotticClosure.Add('完全=0'); GlotticClosure.Add('前部裂隙=0'); GlotticClosure.Add('不规则=0'); GlotticClosure.Add('梭形=0'); GlotticClosure.Add('后部裂隙=0'); GlotticClosure.Add('沙漏状=0'); Glot..原创 2020-09-10 15:15:42 · 607 阅读 · 1 评论 -
OldCEF4Delphi 触发线程消息
//具体的例子从源码的 demo javascript 中看使用用例// JS绑定delphi的方法//procedure(const browser: ICefBrowser; const frame: ICefFrame; const context: ICefv8Context)procedure TfrmOutSideMain.GlobalCEFApp_OnContextCreated(const browser: ICefBrowser; const frame: ICefFrame;.原创 2020-09-09 14:46:28 · 813 阅读 · 0 评论 -
delphi 左则选项卡菜单栏
1、使用TAdvPanel里面加一个image +Label上下对齐,通过点击事件,改变其他panel的背景颜色,与字体颜色,与改变,点击来图片的改变,一个菜单准备两个图片,一个是选中的,一个是未选中的...原创 2020-08-18 14:00:11 · 919 阅读 · 0 评论 -
delphi 删除文件夹
直接在uses shellapi之后,调用SHMyDelDirectory去删除你的目录bai.function SHMyDelDirectory(const Source: string): boolean;varfo: TSHFILEOPSTRUCT;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_Delete; pFrom := PChar(Source +.原创 2020-08-13 09:24:52 · 431 阅读 · 0 评论