窗体delphi
Delphi XE TTask的常用方法
Delphi XE TTask的常用方法 1、创建TTask对象使用TTask类需要先创建一个TTask对象，可以通过以下方式创建： task := TTask.Create(procedure begin // 这里编写任务代码 --滔Roy 2023.06.06 end); 2、启动、等待、取消 ......
delphi判断多个CheckBox是否勾选（几种做法）
看到群里网友在问这个问题？尝试写一下代码 1、用FindComponent函数 根据控件名称动态获取对应的控件状态 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; str: string; begin str := '' ......
Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放
Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放 1、OLEVariant 的空值判定 var v: OLEVariant; begin v := 'TaoRoy 2023'; if VarIsEmpty(v) or VarIsNull(v) then ShowM ......
delphi xe10 提示没有定义DecimalSeparator 的 解决方法
delphi xe10 提示没有定义DecimalSeparator 的 解决方法 只需要把DecimalSeparator前加上FormatSettings变成 FormatSettings.DecimalSeparator；如果提示没有定义ShortTimeFormat，DateSeparato ......
WinFrom无边框窗体响应边框事件（无边框Winform快捷响应拖动事件）
网上有在窗体上响应鼠标按下事件，并记录鼠标移动轨迹来移动窗体，比较繁琐。 在窗体响应鼠标按下事件，使用Windows窗体的消息来把鼠标按下消息转发至当前窗体，实现响应拖动窗口。 public class MoveWindow { //无边框程序移动窗体 [DllImport("user32.dll" ......
Delphi RandomRange() - 返回指定范围内的随机整数
Delphi RandomRange() - 返回指定范围内的随机整数 单元：math 原型： function RandomRange(const AFrom, ATo: Integer): Integer; begin if AFrom > ATo then Result := Random(A ......
WPF窗体右上角叉叉退出应用程序
WPF窗体右上角叉叉退出应用程序 WPF窗体右上角叉叉退出应用程序 记得xaml里的Window标签响应Closing事件 private void Window_Closing(object sender, System.ComponentModel.CancelEventArgs e) { if ......
如何使用delphi编译heidisql
本次使用delphi 11.3版本，delphi的社区版已经免费下载了，申请完之后官方会把下载地址和序列号发到邮箱中 1）下载安装过于简单就不写了 2）git拉取heidesql的源代码 3）delphi加载并安装SynEdit，点击Open Project后加载SynEdit.groupproj ......
基于electron25+vite4创建多窗口|vue3+electron25新开模态窗体
在写这篇文章的时候，查看了下electron最新稳定版本由几天前24.4.0升级到了25了，不得不说electron团队迭代速度之快！ 前几天有分享一篇electron24整合vite4全家桶技术构建桌面端vue3应用示例程序。 https://www.cnblogs.com/xiaoyan2017 ......
EBS: FORM窗体开发使用VIEW模式开发，plsql DEVELOPER 自动生成PLSQL脚本
FORM窗体开发使用VIEW模式开发，plsql DEVELOPER 自动生成PLSQL脚本, CREATE OR REPLACE PACKAGE APPS.HAND_PLSQL_AUTOCREATE AUTHID CURRENT_USER AS /* $Header: HDPLSATC.pls 1 ......
Delphi-判断一个对象是否释放，改造官方的Assigned
直接上例子了，基础知识自己去了解，首先定义一个类： TPerson = class public name: string; age: Integer; constructor Create(name: string; age: Integer); end; constructor TPerson. ......
WPF 设置圆角窗体，通过ListView模拟下拉组合款
界面： <Window x:Class="WpfApp2.MainWindow" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx ......
delphi FastReport 综合报表（批量预览、打印）
# FastReport 综合报表（批量预览、打印） ## 属性和方法 ### TfrxReport.ShowPreparedReport ``` procedure ShowPreparedReport; ``` 显示之前通过`PrepareReport` 调用构建的报表。 > 当报表组件构建报表 ......
C# Winform 窗体传值 子窗体传值给父窗体
常用的Winform窗体传值有两种方式。 1.更改Form.designer.cs文件，将控件的设为Public，供子窗体访问。 在designer.cs文件的最后，找到你的控件声明。 private System.Windows.Forms.TextBox textBox1; 更改Private为 ......
Delphi SynCrtSock TWinHTTP
TWinHTPP /// a class to handle HTTP/1.1 request using the WinHTTP API// - has a common behavior as THttpClientSocket() but seems to be faster// over a ......
Delphi 12 最新消息
1.新版本将集成Skia4Delphi。 这绝对是有史以来最重要的更新，官方通过深度集成Skia4Delphi，将实现更高质量的界面，更有效率的界面，从此，毛刺现象将成为历史！ 2.C++将集成Visual Assist。 这结于C++用户来说，绝对的福音！ 3.RTL，IDE，Compiler，P ......
WPF 使用Background="Transparent"+AllowsTransparency="True"实现穿透效果，窗体多次渲染会有性能问题，可以使用Win32设置窗体穿透，并从设计层面避免性能问题
如果在WPF中的窗体使用AllowsTransparency="True"实现穿透效果，那么该窗体如果移动、快速渲染、控件比较多的情况，会出现卡顿，CPU暴涨的问题。 基于以上情况，可以使用另一种方式实现，由@wuty @terryK 指导： using System.Windows; using ......
pb窗体中数据窗口大小调整或自适应最大化，函数resize()
说明：调整窗体大小自动触发函数resize() // 获取调整后整个窗体新的尺寸 tab_1.Height = newheight tab_1.Width = newWidth // 设置数据窗口dw_1的宽度及位置 - “左侧距离窗体” - “右侧距离窗体” tab_1.tabpage_1.dw_ ......
delphi 获取MD5
# 获取MD5 ## 代码 ```delphi uses System.Hash; procedure TForm1.Button1Click(Sender: TObject); var vStream: TMemoryStream; vBytes: TBytes; I: Integer; begi ......
pb中打开窗体时用户权限检查以及控制工具栏按钮的显示状态
说明：首先在菜单栏方法中修改对应的name和tag（否则程序无法判断统一判为没权限） im_main = this.MenuID // 整体控制工具栏按钮隐藏 im_main.of_Set({'m_open', 'm_printpreview', 'm_print', 'm_saveas'},'vi ......
Delphi实现禁止app截屏
修改AndroidManifest.template.xml，增加下面标粗的内容： <activity android:name="com.embarcadero.firemonkey.FMXNativeActivity" android:exported="true" android:exclud ......
delphi RTC 解析statucode 问题
开源的版本也一样会。 rtcinfo.pas ，以下的解析 StatusCode 有问题，如果服务器返回的是 “HTTP/1.1 200” 后面没有状态文本。会解析不到 状态码，这里应该按标准格式来，协议 空格 状态码 空格 状态文本 一个一个解析才对，但是RTC 认为状态码、文本是要一起有的。例子 ......
delphi TcxGridPopupMenu控件学习笔记
TcxGridPopupMenu控件用来给cxgrid设置右键菜单的.它长这样 属性面板长这样: 默认的系统菜单长这样: 这菜单上面有好几个选项我不想要,怎么办?隐藏它呗! private { Private declarations } procedure StdHeaderMenuPopup(S ......
Delphi - 简单实现 优先队列
由于Delphi官方没有实现优先队列容器，我自己也懒得用二叉堆去实现，这里用List简单实现一个优先队列； unit Unit3; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Sy ......
DateTimePicker如何与Delphi自带Style同步
原文出处：DateTimePicker如何与Delphi自带Style同步 - 封三郎 - 博客园 (cnblogs.com) Delphi 的 DateTimePicker 组件有一个CalColors属性，可以设置 DropDown 打开的日历节目的风格。但如果不使用 Delphi 自带的 St ......
Java的GUI窗体出现中文不能正确显示解决方法
问题描述： 用java做一个图形化界面的程序，在Eclipse上运行后中文显示方框，如下图所示： 解决方法： 在要运行的代码上右键 Run As --> Run Configurations... 在 Arguments --> VM arguments: 中增加下面这句： -Dfile.encod ......
delphi cxGrid做一个空白的出/入库单
效果图: 实现的原理: 1.在数据库建一个表,然后绑定到cxgrid上面.数据表各字段的数据类型,按你的业务需求来设置,同时要允许空值,因为我们必须让它们保持空值,这样在绑定到cxgrid时,才会是空白的,然后再弄个自增的主键ID.下面这张图是我研究时截的图,不想改了,凑合着用吧 2.绑定过程略. ......
delphi cxgrid截图
效果图: 点击GetImage,会在程序目录下生成一个表格截图的图片文件,打开后如下图: 以下是代码: procedure TForm4.SpeedButton1Click(Sender: TObject); var gridView: TcxGridDBTableView; focusedItem ......
delphi Format格式化函数
delphi Format格式化函数 Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用： 首先看它的声明： function Format(const Format: string; const Args: array of ......
Delphi-Delphi通过管道执行外部命令行程序（cmd）并获取返回结果
相关资料： https://www.shuzhiduo.com/A/gGdXxNGmd4/ Delphi通过管道执行外部命令行程序（cmd）并获取返回结果 实例代码： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System ......