窗体delphi

.Net默认的窗体样式只有四种：None、SingleBorderWindow、ThreeDBorderWindow、ToolWindow，都比较“丑”。而很多时候，我们希望自定义窗体，比如，无边框，有阴影，或者有模糊效果等。 在WPF中，要实现自定义窗体比较简单，主要有两种方法： 1）使用Wind ......

winfrom窗体自带的边框不好看，可以将FormBorderStyle设置为None去除边框，但这样窗体无法拖动 下面记录无边框窗体拖动的几种方法[参考其他博主的]： 1.Form触发MouseDown事件时，记录鼠标坐标： rawPoint = e.Location; MouseMove时根据鼠 ......

# FireDAC 批量执行命令（批量插入、更新、删除） ## 代码 ### 批量插入 ```delphi procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin //建立连接 FDConnection1.Conne ......

第一步: 在 App.xaml 里,把 StartupUri=""去掉,改成 Startup="Application_Startup" 第二步: 在 App.xaml.cs里,增加 Application_Startup 事件: private void Application_Startup(o ......

delphi泛型实现的接口 type TRest<T: record> = record resource: string; where: string; function select: T; procedure insert(const aRecord: T); procedure update ......

解决方法：可以在两个数据窗口间添加一个文本控件（st_1），设置其为黑色竖条，并为该添加四个事件，如下 // constructor This.BackColor = Parent.BackColor // mousedown This.SetPosition(ToTop!) //If Not ib ......

TApdComPort控件实现了串口的通信 控件有Logging属性决定了当前的日志状态 QDAC QLog可以生成日志 一： 日志发送到远程syslog服务器： var AWriter := TQLogSocketWriter.Create;AWriter.ServerHost := 127.0. ......

# FastReport 保存和加载已准备的报表 ## 属性和方法 ### TfrxReport.PreviewPages ```delphi property PreviewPages: TfrxCustomPreviewPages; ``` 指向已完成报表的当前页面的链接。它用于与完成的报表相关 ......

1. 设置TextBox空间允许多行： this.textBox1.Multiline = true; 2.换行字符是使用"\r\n"。 1 textBox1.Text += "第0行\r\n"; 2 textBox1.Text += "第1行\r\n"; 3 textBox1.Text += "第 ......

打开网页的，折腾了好久，试运行DEMO，就行，把DELPHI的代码抄过来，就是不行，然后把自己弄的 控件名称搞的与DEMO一样，属性全对一样了，还是不行，郁闷很久后，才发现工程文件里面还要加代码。 我的工程名为：OpenChrome 选中工程文件后按CTRL+V，然后做以下修改：下面红色的代码是CE ......

1、下载：https://github.com/salvadordf/CEF4Delphi/tree/master 2、安装 包：CEF4Delphi-master\packages 目录中，如果不行，全部包都编译一下。 3、下载运行环境：地址 到 https://github.com/salvad ......

场景 若依前后端分离版手把手教你本地搭建环境并运行项目： https://blog.csdn.net/BADAO_LIUMANG_QIZHI/article/details/108465662 在上面的基础上，实现弹窗窗体可移动以及随意缩放大小。 效果如下 注： 博客： https://blog.c ......

### 1 问题描述 * 最近做一个winform项目，启动程序弹出的加载进度窗体时，发生如标题所示的异常。 ### 2 尝试debug * 根据异常提示，在进度窗体弹出前添加代码 Visable=false; --未解决 * 逐步debug调试发现Form弹框运行了2次，由此查出bug所在。由于我 ......

protected override CreateParams CreateParams { get { const int WS_EX_APPWINDOW = 0x40000; const int WS_EX_TOOLWINDOW = 0x80; CreateParams cp = base.Cr ......

一，窗体加载事件的顺序一般来说分为三个事件：1，Load 2，shown 3，VisibleChanged这三个事件。这三个事件根据我执行的顺序来看，Load首先加载，shown其次，最后是visiblechanged这个事件。//程序启动时候的顺序//第一个执行private void Form1 ......

WPF-WindowInteropHelper WindowInteropHelper windowInteropHelper = new WindowInteropHelper(this); windowInteropHelper.Owner = new WindowInteropHelper(t ......

UniButton1.ClientEvents.ExtEvents.Values['click']:='function(sender){alert("Click")}';UniEdit1.ClientEvents.ExtEvents.Values['change']:='function(send ......

一.工具界面如下(没做UI) 二.设计视图如下: 三.控件说明: 1.使用到了第三方StyleControl控件中的SCGPLabel,SCGPEdit,SCGPCheckBox,SCGPCombobox,SCGPButton,这几个控件如果需要,可替换成秕自带控件.难度-1 2.TrayIcon ......

procedure TForm1.Button1Click(Sender: TObject);//获取文件创建时间 var FileName: string; ti: Integer; dt: TDateTime; begin FileName := 'D:\test\Test.txt'; ti : ......

# FastReport 预览设置 ## 属性和方法 ### TfrxPreviewOptions.AllowEdit ```delphi property AllowEdit: Boolean; ``` 启用或禁用已完成的报表编辑。默认值为 *True*。 ### TfrxPreviewOptio ......

delphi泛型实现的变体记录 type TRes = record //公共的JSON回复 status: Integer; message: string; exception: string; end; TData<T: record> = record data: array of T; e ......

我正在 WPF 中创建一个应用程序，我想要圆角。收到。现在窗体是无边框的，我正在尝试创建一个圆角矩形并将其放在顶部，使其看起来像 Windows 应用程序的顶部栏。 我做不到。 这是我的代码: <Border CornerRadius="50, 0, 50, 0" BorderBrush="Blac ......

https://www.cnblogs.com/bumpkin/p/17261247.html uses generics.collections; var List: TList<Integer>; FoundIndex: Integer; begin { Create a new List. } ......

思路[参考他人]： 1>保存窗体的初始宽度和高度； 2>保存窗体内所有控件的初始宽度，初始高度和坐标； 3>窗体的Resize事件触发时，计算新的Size和初始Size的比例prec； 4>遍历窗体内所有控件，将其的Size和坐标乘以prec; 代码： 窗体注册，保存窗体及其所有控件的初始尺寸，编写 ......

一 前言 对于正则表达式，相信很多人都知道，但是很多人的第一感觉就是难学，因为看第一眼时，觉得完全没有规律可寻，而且全是一堆各种各样的特殊符号，完全不知所云。 其实只是对正则不了解而以，了解了你就会发现，原来就这样啊正则所用的相关字符其实不多，也不难记，更不难懂，唯一难的就是组合起来之后，可读性比较 ......

winform窗体闪烁问题解决方式 1、使用窗体双缓冲 SetStyle(ControlStyles.UserPaint | ControlStyles.AllPaintingInWmPaint | ControlStyles.OptimizedDoubleBuffer, true);UpdateS ......

今天在处理客户问题时，发现了个有趣的问题，客户电脑的任务栏设置在左侧，然后打开公司软件最大化后，软件左侧就会被任务栏挡住，右侧又会出现空白没有铺满，看这情况明显是因为任务栏的位置导致的。 当时打开了其他如谷歌浏览器、钉钉等最大化都没问题，看来不是需要系统设置的问题。测试发现winform原生的窗体带 ......

# FastReport 预览显示多报表（非模态、MDI) ## 属性和方法 ### TfrxReport.PreviewOptions ```delphi property PreviewOptions: TfrxPreviewOptions; ``` 一组与报表预览相关的属性。 ### Tfrx ......

通过长时间研究终于找到关于在C# WINFORM下制作真正的透明窗体在系统桌面上画图的完美解决方案； 可以避免解决与其网上其它画图工具的很多不足，网上实现思路如下几种： 1、使用API透明窗体+底层鼠标钩子可以实现，但要重新实现鼠标的监听操作，实再太麻烦了； 2、使用第三方透明窗体控件（如Layer ......

TConverterEx<T: class> = class(TJsonConverter) public function CanConvert(ATypeInf: PTypeInfo): Boolean; override; function ReadJson(const AReader: TJ ......