窗体delphi
delphi 初识内存流: 从设置用户头像到从数据库存取图片到的过程
所谓"流", 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: Size、Position.对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.在很多控件的使用中, 读取主要用 ......
delphi cannot make a visible window modal报错的解决过程
抛出问题: 排除过程: 1.在TFrmChangePW窗口的create事件里打断点,结果发现,根本没停顿,所以判断问题不在TFrmChangePW窗体里,而是showmodal这语句里出了问题,点中断,跳到抛出错误的地方: 2.if 里的四个条件,检查了第一个,第二个和第四个都是没问题的,第三个( ......
C# 窗体控件ContextMenuStrip下拉项之间的分割线
1.效果如图： 2.选中ContextMenuStrip控件，在Items属性中添加Separator 3. (其中第3，4步，通过上下箭头，摆置好你要分割的位置) 原文链接 ......
Delphi工具开发的windows应用程序，自动化测试工具
DUnit：DUnit是一种单元测试框架，可以帮助开发人员编写单元测试用例，测试Delphi应用程序的各个模块和组件。 TestComplete：一个功能强大的自动化测试工具。可以对Delphi应用程序进行测试，支持多种脚本语言和测试框架，如JScript、VBScript、Python、JUnit ......
Delphi取整函数
Uses Math floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。trunc 和 round 是 system unit 里的函数，缺省就可以用。floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123t ......
delphi FastReport 自定义预览窗口显示报表
FastReport 自定义预览窗口显示报表 属性和方法 TfrxReport.Preview property Preview: TfrxCustomPreview; 指向 TfrxPreview 组件的链接，在其中显示完成的报表。如果此属性为空，则在标准预览窗口中显示报表。 TfrxPrevie ......
Delphi 系统[26]关键字和保留字 of、as、is
1、定义： of ：用于和其他关键字构成指定的结构。of可以与 case, class, array, file, set, object 连用。 as ：用于将一个类对象当作另一种类型使用。 is ：用于判断对象是否属于某一类型。 2、示例： ? 1 2 3 4 5 6 7 8 9 10 11 1 ......
Delphi的TValue探索
一、TValue结构 TValue定义在System.Rtti.pas 通过调用Make(...),将任意类型数据转换为TValue通过调用ExtractRawData(...), ExtractRawDataNoCopy(...)将TValue转换为任意数据类型，两者区别是ExtractRawDa ......
delphi 互斥量,只允许运行一个实例
效果图: 代码超简单的: //在窗体类中定义一个私有字段 private Fmutex: THandle; procedure TFrmLogin.FormCreate(Sender: TObject); begin//创建一个命名的互斥量，确保同一时间只有一个实例在运行 //第三个参数是自定义的, ......
Delphi原子操作函数介绍
一、Delphi的原子操作函数 在System.SyncObjs单元中，有一个TInterlocked的密封类，其十多个类函数（class function）其实都是调用的System单元的原子操作函数，只是封装得更容易理解。 使用方法：如对一个数值加一，则直接b:= TInterlocked.In ......
第1-2讲，tkinter设置窗体属性及获取属性
了解窗体有什么属性 窗体有属性可以设置，我们可以用 keys() 方法来查看一下。 以下代码中 print(root.keys()) 功能就是在终端输出窗体window可以设置的属性。完整代码如下： import tkinter as tk #创建一个窗口 window=tk.Tk() #输出窗口的 ......
快速认识Delphi--九五小庞
1、什么是Delphi: Delphi 不是一门编程语言，它只是一个IDE，和VS，Eclipse，VSCode,Pycharm... 一样，只是一个编程工具，但他主要是针对Pascal语言编程，因此很多时候，很多人把Delphi说成是一门编程语言，他只是用于Pascal编程的一个工具 2、学习De ......
delphi 操作 TEdgeBrowser 获取与设置 Cookie
delphi 11.2 完整源码下载 详情请查看源码,现提供部分代码供大家查看 DELPHI智慧战神-技术群 603146133 原来的群已被查封，请大家加新群 unit uYouYouMgt; interface uses uSimpleBase, uEdgeCls, uIdhttpEx, Sys ......
delphi 仿一下手机端淡入淡出的信息提示框
先看效果: 设计界面也很简单: 下面这个是个From,不是Frame.把它的边框设置为none,然后position设置在父级中央或者桌面中央,看个人喜欢吧.加个label,弯角搞一搞,其他也搞得好看一点.这里推荐SC组件.然后加个计时器.这里说一下定时器的interval属性,时间越长,越显得卡顿 ......
delphi 类似excle分割的分页多页显示
需要使用第三方控件：例如：DEV的 TcxPageControl、 tms的TAdvPageControl 和 TAdvOfficePage. 1、TcxPageControl 用法 （1）通过单元文件打开窗体 procedure WndProc(var Msg: TMessage); overri ......
delphi Variant 与 流（TStream）相互转换
Variant 与 流（TStream）相互转换 代码 Variant转TStream procedure VariantToStream(Stream: TStream; const Value: Variant); var p: Pointer; begin if VarIsNull(Value ......
delphi IDE里面的导航条太丑了,咱自己写一个
效果图： 嗯我们今天主要看下面这一部分的实现： 四个按钮是TscGPCharGlyphButton控件。上面一行显示记录位置和快速跳转的那一坨，它其实是由四个TscGPEdit控件拼接构成的。 红色括号3那里,其实是把边设置成了红色,而4这个则是设置边框不显示.然后两个控件高度一致,但要比最外面的1 ......
C#中winform窗体 用代码设置字体的样式
protected override void OnPaint(PaintEventArgs e) { FontFamily myFontFamily = new FontFamily("微软雅黑"); //采用哪种字体 base.OnPaint(e); this.ForeColor = Color ......
Delphi 获得文件大小的方法
Delphi 获得文件大小的方法 大概有这些： FileSizeByName（需要引用IdGlobal单元 ，XE版本已取消） GetFileSize （use Windows ，仅支持windows） FileSize（不能获得正在使用的文件大小） FileSeek TFileStream.Siz ......
WinForm-区别手动关闭窗体与Close()关闭
/// <summary> /// 监听手动关闭事件 /// </summary> /// <param name="msg"></param> protected override void WndProc(ref Message msg) { const int WM_SYSCOMMAND = ......
C# Winform在子窗体中调用父窗体的方法
父窗体代码 #默认父窗体类 Form1 #弹出子窗体事件 private void MenuItem_Click(object sender, EventArgs e) { Form2 fb = new Form2(); fb.Owner = this; fb.Show(); } public vo ......
C#Winform窗体操作类&控件属性类
WinForm磁性窗体吸附边缘 1 #region 磁性窗体 2 3 public class MagneticManager 4 { 5 public class ChildFormInfo 6 { 7 public Form Child { get; set; } 8 public Magnet ......
c#WPF窗体操作类
WPF窗体屏幕边缘吸附 #region 侧吸 private new bool Hide = false; //用来表示当前隐藏状态，例如Hide=false就是不在隐藏状态 string type = ""; //用来表示窗口隐藏在哪个方向 private void SliderTimer_Tic ......
delphi FastReport 从流（数据库）中加载和保存报表
FastReport 从流（数据库）中加载和保存报表 属性和方法 TfrxReport.LoadFromStream procedure LoadFromStream(Stream: TStream); 从流中加载报表。 参数 Stream 来源流。 TfrxReport.SaveToStream ......
Delphi FDMemTable内存表用法及简单操作函数封装（转）
在某些场景下当轻量级的应用需要在内存中缓存数量比较多且字段比较多的高频使用数据时。以前我都是采用Ini或直接使用sqlite数据库。JSON也试过基本无法或很难实现需要的功能，因为当涉及某一同类型对象多字段多列时不通过遍历基本无法直接取到或修改数据。这样就导致了效率的低下。比如你在写一个多任务多线程 ......
delphi 播放GIF动画
use GIFImg procedure TForm1.Button1Click(Sender: TObject); var pic_path:string; begin pic_path := ExtractFilePath(ParamStr(0)) + 'img\gif\loading.gif' ......
delphi 函数提示与注释
效果是在IDE里输入函数名称后,在下方出现你对这个函数的注释内容: 源码: 参考地址:https://docwiki.embarcadero.com/RADStudio/Sydney/en/XML_Documentation_Comments 以上内来源: Delphi研习社②群 @球球 ......
Delphi-UTF8转GBK
/////////////////////////////////////////////function TXml.getValue(str: string): string;//传入的UTF8字符串var s: string;begin if FBase64 then begin s := TN ......
delphi 如何给自开发的组件设置图标?
经过其他老师指点，自己摸索，发现如何实现，现说明如下，供大家参考。一、建立图标文件 1、建立一个24X24的256色BMP格式文件。 2、文件命名为该组件的名称。二、建立资源文件:Project→Resource and Images,点击Add将BMP格式图标文件加入，Resource Ident ......
Delphi 重命名文件夹
//SourceDirectort, DestinationDirectort 绝对路径 function ReNameDirectort(SourceDirectort, DestinationDirectort: string): Boolean;var pDirOperate: TSHFile ......