窗体delphi

作者QQ：（648437169） 【delphi电子处方流转(医院)】支持 就诊登记、电子处方上传预核验、处方处方医保电子签名、电子处方上传、电子处方撤销、电子处方信息查询、电子处方审核结果查询、电子处方取药结果查询、电子处方药品目录查询等功能。 ......

作者QQ：（648437169） 【delphi电子处方流转(药店)】支持 处方下载、处方核验、处方审核、药品销售出库明细上传、药品销售出库明细撤销等功能。 ......

路径操作函数 System.SysUtils.AnsiCompareFileName 根据当前语言环境比较文件名。 在 Windows 下不区分大小写，在 MAC OS 下区分大小写。 在不使用多字节字符集 (MBCS) 的 Windows 区域设置下，AnsiCompareFileName 与 A ......

转载请注明出处：https://www.cnblogs.com/coder163/p/9309717.html https://log4delphi.sourceforge.net/tutorial.html Log4D下载： 官网地址 导入Delphi：Tool-->Options-->Envir ......

[DllImport("user32.dll")] static extern bool GetWindowRect(IntPtr hWnd, out RECT lpRect); [DllImport("user32.dll")] static extern bool MoveWindow(IntP ......

一般我们在Delphi中进行图像处理时采用Pixels像素点赋值的方法，Delphi代码如下： varx,y:Integer;cColor:TColor;begin for y:=0 to Image1.Height-1 do for x:=0 to Image1.Width-1 do cColor ......

父窗体打开子窗体准备 BillShowParameter OtherInAdd = new BillShowParameter() { FormId = FormIdConst.STK_MISCELLANEOUS,//子窗体 ParentPageId = base.View.PageId,//父窗体 ......

公用 文件件 可能是隐藏的 若是的话 则显示 隐藏 ......

Xalion发现data.DBJson单元，不知什么时候加的，官方帮助中也没有写。 1 procedure TForm18.Button2Click(Sender: TObject); 2 var 3 cV: TDatasetToJSONBridge; 4 jo: Tjsonobject; 5 be ......

internal enum AccentState { ACCENT_DISABLED = 0, ACCENT_ENABLE_GRADIENT = 1, ACCENT_ENABLE_TRANSPARENTGRADIENT = 2, ACCENT_ENABLE_BLURBEHIND = 3, ACCE ......

1. 使用统一的调用约束(__stdcall) 2. array of 调用 delphi 接口: procedure ProcessArray(const Arr: array of Integer); stdcall; VC： typedef void(__stdcall *ProcessArr ......

Delphi 10.x 提示脚本错误的解决方法 解决办法如下： 10.1版本修改方法： 打开注册表，在cmd中输入regedit,以管理员的身份运行， 找到HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\18.0\Known IDE Packages项， 找到$ ......

今天升级到 Delphi 12 后，编译运行原来的项目，出现“[FireDAC][Phys][SQLite][sqlite3]-303.Capability is not supported”的错误。 经过查找文档，发现是FireDAC SQLite 版本更新导致的。 RAD Studio 12.0 ......

窗体上选择感兴趣ROI区域 在计算机视觉处理中, 通常是针对图像中的一个特定区域进行处理, 有时候这个特定区域需要人来选择, OpenCV 也提供了窗口选择ROI机制. 窗体支持两种选择ROI区域的方法, 一个是单选, 一个是多选, 操作方法如下: 单选: 通过鼠标在屏幕上选择区域, 然后通过"空格 ......

我们在使用各个平台的应用程序时, 可能会因为窗体自身带有一个外框 (包括图标, 窗体标题, 若干按键) 而影响界面的布局和实现. 因此, 当我们有了专门的设计图之后, 可以通过自定义窗体的方式来保证各个桌面平台的一致体验. 在这片博客中, 我们以 eframe 为例, 创建一个简单的自定义窗体. 以 ......

1.在C# 中我们可以通过DataSet 来接收多个数据集，但在Delphi 中没有这样的集合对象，因此处理起来稍微麻烦点，不过还是能处理的。这里举个例子： Oracle Code --包头 create or replace package mypackage is type cur_type i ......

int iFormWidth, iFormHeight;//初始窗体宽高 //窗体加载事件 private void Form1_Load(object sender, EventArgs e) { iFormWidth = this.Width;//初始宽 iFormHeight = this.H ......

​ 我们接下来的操作的对象是微信窗体，分成这几个步骤可以将微信窗体进行自动化操作前的初始化 （1）通过窗体名称找到微信句柄指针。 （2）通过窗体指针找到微信的进程ID。 （3）使用进程ID初始化自动化组件服务。 （4）设置微信窗体的状态为激活。 （1）找到PC端微信窗体并获取微信窗体的句柄数据 我们 ......

1、窗体的FormBorderStyle设置成None,不要控制边框2、窗体属性中TransparencyKey和BackColor颜色设置成相同的,这样,窗体就透明了3、以此为基础,制作透明不规则窗体,可以在窗体上设圆角背景图片 4、将图片调整为像素级的清晰颜色，不然就会有如下图的绿边 ，以下颜色 ......

有框 略（有两种，一种写法与无框原理相同；一种用MDIParent作为父窗体） 无框 form1.TopLevel = false; // 漏出菜单栏 form1.FormBorderStyle = FormBorderStyle.None; // 无框 form1.Parent = this.pa ......

用于控件大小随窗体大小等比例缩放的C#代码。该代码可以在窗体重载中使用，以确保窗体中的控件在窗体大小改变时能够按比例缩放。 SetTag方法：该方法用于设置控件的Tag属性，以存储控件的宽度、高度、左边距、顶边距和字体大小等信息。 SetControls方法：该方法用于遍历窗体中的控件，并根据窗体缩 ......

一、打开，保存等组件在什么地方 1.组件在Dialogs内 2.点击组件栏右下箭头后进行搜索 3.需要添加如下组件 4.打开文件代码： 1 {$R *.dfm} 2 var 3 Lujing:String; 4 procedure TForm1.OpenExecute(Sender: TObject ......

MDI窗体用于显示多个文档，每个文档显示在各自的窗口中 1、设置MDI父窗体:IsMdiCintainer属性设置为true 2、确定子窗体:用MdiParent属性来确定子窗体 如： frm2.MidParent =this; //设置MdiParent属性,将当前窗体作为frm2窗体的父窗体 3 ......

运行时动态设置控件（类）属性值 代码 运行时根据控件名称设置Alignment属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRt ......

1.实现字体一个一个出现的代码： 1 implementation 2 3 {$R *.dfm} 4 var 5 str1:string; 6 n,i:Integer; 7 8 procedure TForm1.FormCreate(Sender: TObject); 9 begin 10 str1 ......

MDI窗体的相关学习使用 1、设置MDI父窗体 在属性中找到IsMdiContainer选项，设置为True 2、添加MDI子窗体，在项目中依次选择添加->窗体，然后一直默认即可 添加后的项目目录（Form1为父窗口，Form2、Form3为子窗口） 3、在Form1.cs中，创建对应MDI子窗口的 ......

1、通过构造函数 特点：传值是单向的（不可以互相传值），实现简单 实现代码如下： 在窗体Form2中 int value1; string value2; public Form2 ( int value1 , string value2 ) { InitializeComponent ( ); t ......

一、本节重点： 过程传值、传址、常量参数； 二、三种传递方法 （一)、传值 1、软件效果 2、代码： 1 procedure Tform1.mypro(str:string); //传值过程定义 2 begin 3 str:='学习编程'; 4 showmessage(str); 5 end; 6 ......

运行时动态获取控件（类）属性值 代码 运行时根据控件名称获取Caption属性值 uses System.Rtti; procedure TForm1.Button1Click(Sender: TObject); var vComponent: TComponent; vRttiCtx: TRtti ......

uses system.RegularExpressions; function IsChineseName(const aName:string; const aMaxLength:Integer=10):Boolean; begin var Pattern := '^[\x{4E00}-\x{9 ......