窗体delphi

最近学习C#，在博客园找了WinForm的贪吃蛇来学习，结果一直发现窗体尺寸有问题。 比如本来用的是800X600的Size，使用Graphics画格子就发现窗口没有全部显示这些格子，让我很疑惑，找了很久不知道为什么？ 网上看了有什么画面缩放的，我是百分百没缩放，最后我设置窗体的边框为none后，就 ......

一、效果图 二、知识点 1.过程在 Delphi 中，运行结束后没有返回值的子程序称为过程，过程有三种类型： 标准过程 - 系统内部已经定义好的过程，在需要的时候直接调用即可。 事件过程 - 当对象接收到某个动作时常数一个事件，自动执行该对象事件的一段程序，这段程序就是一个事件过程。 自定义过程 - ......

作业源码： 一、程序框图： 二、代码 1、提取编辑框数据到数组 1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 i:Integer; 4 begin 5 temp:=''; 6 Str:=Trim(edit1.Text); 7 k: ......

新建winform窗体程序 添加button控件 在事件中选择 MouseEnter 代码如下 private void button_MouseEnter(object sender, EventArgs e) { //给按钮一个新的坐标 //这个按钮活动的最大宽度就是 窗体的宽度减去按钮的宽度 ......

在使用winform调用wpf窗体时，原来的winform窗体会缩小，同时分辨率会发生变化，用如下方法来解决这个问题。 方法一、 首先找到winform项目中的Properties ==>AssemblyInfo.cs，打开该文件，在末尾加入如下代码，之后重新运行即可。 [assembly: Sys ......

在delphi中如何动态建立类的实例 weixin_33962621于 2017-11-07 20:26:00 发布阅读量426 收藏点赞数 文章标签： c/c++ 版权 在面向对象语言中，用两种方法建立类的实例：静态建立和动态建立。静态建立就是在程序中显式地建立类的实例，如c1 = TClass1 ......

背景： 当同一解决方案的项目A引用项目B的时候出现引用异常 大概意思是项目A的框架类型是.net 7.0，项目B的框架类型是net7.0-windows 两者不兼容 查看了连着的项目类型发现项目B是指定为Windows操作系统（注：建立类库项目B时没有指定操作系统，不知为啥显示指定了） 类库项目A是 ......

function ByteType(const S: string; Index: Integer): TMbcsByteType; // 判断一个字符串中，某个 Char 是单个字母，还是双字节的前一位或后一位。 // mbSingleByte 单字母 // mbLeadByte 双字节第一位 / ......

function TMainForm.CheckTask(ExeFileName: string): Boolean; //检测XX进程是否存在函数const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOL; FSnapshotHandle: THa ......

会跑到am窗体背后 正常代码 这种情况下只要鼠标在AM其他界面，此frm窗体就会跑到AM软件背后 改良之后，能同时正常操作AM和frm窗体 实际效果点击下方视频链接查看 https://www.bilibili.com/video/BV11u4y1p7fT/ ......

从 Rad Studio 10.2 Tokyo 开始，可以编译和运行 Linux 服务器应用程序（无用户界面）。我们将使用 Ubuntu 准备一个 docker 映像， 以及通过 PAServer 在 Linux 上运行 Delphi 应用程序所需的一切。使用 Docker，我们可以将这些应用程序在 ......

透明效果 1.设置整个窗体透明 调用setWindowOpacity( )方法，传入一个0~1之间的值来表示透明度；1表示不透明，0表示完全透明，在构造函数中添加 setWindowOpacity(0.5);//0~1之间 2.设置窗体透明，部件不透明 在构造函数中添加 //设置窗体透明 this- ......

自定义光标 代码 使用图像的方式 你可以使用两个位图（一个用于普通图像，一个用于遮罩图像）来创建图标，并将其手动加载到 Cursors 属性 使用完自定义光标后要调用Windows API函数DestroyIcon const crMyCursor = 5; procedure TForm1.But ......

固定panel1，panel2适应窗体变化 如果您想要固定 Panel1 并且让 Panel2 适应窗体大小的变化，可以使用以下方式设置 SplitContainer 的属性： ' 设置 SplitContainer 的 FixedPanel 属性为 Panel1，以固定 Panel1 的大小 Sp ......

继承窗体就是 根据现有的窗体的结构创建一个与其一样的新窗体 --称作可视化继承 1、被继承的窗体需要有 控件 2、在继承窗体中修改继承的空间属性：需要把被继承窗体中把Modifiers属性(对象的可见级别)修改成Pubilc 3、选择继承窗口有两种 一种代码直接改 一种从设计器中选择 ......

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

窗体的属性: 1、Icon属性：更换窗体图标 2、FormBoardStyle：隐藏窗体的标题栏 Fixed3D：固定的三维边框 FixedDialog：固定的对话框样式的粗边框 FixedSingle：固定的单行边框 FixedToolWindow：不可调整大小的工具窗口边框 None： 无边框 ......

delphi模板开发 用模板开发，写代码就是填空题。 让开发变为填空题，这也是AI开发的指导思想。 1）制作模板 /// <author>cxg 2023-10-9</author> unit db.crud; interface uses System.Classes, System.SysUti ......

设置全局级别光标 代码 begin Screen.Cursor := crHourGlass; try //业务处理的代码... finally Screen.Cursor := crDefault; end; end; 方法 Vcl.Forms.TScreen.Cursor property Cu ......

1、搭建一个特别简单的窗体 简单且丑陋~ 2、代码编写 新建一个DataBase.cs的类： 写入代码： //DataBase.cs using System; using System.Collections.Generic; using System.Linq; using System.Tex ......

procedure TForm1.btn1Click(Sender: TObject); var ahdc,ahdc_old, ahdc_new: HDC; ARect:TRect; ahpen:HPEN; ahandle:THandle; h,w:Integer; pen:integer; i:i ......

单元(unit)是组成Pascal程序的单独的源代码模块，单元有函数和过程组成，这些函数和过程能被主程序调用。一个单元至少要有unit语句，interface，和implementation三部分，也能可选的包含initialization和finalization两部分： 一、必含部分 1、uni ......

在Delphi中，FormDestroy 和 FormClose 是用于处理窗体关闭事件的两个不同的事件处理程序。它们有一些区别和联系，下面我将详细解释它们之间的差异和关联： FormDestroy 事件： FormDestroy 事件是一个在窗体销毁时触发的事件。 这个事件通常用于释放在窗体生命周 ......

//dll code uses // ShareMem, SysUtils, Windows, Math; {$R *.res} function TestString1(Buffer: PChar): PChar; stdcall; var Tmpstr:string; begin try Tmp ......

使用CNPACK 的单元来实现AES CBC 解密 CBC PKCS7 解密要注意的点是，如果解密内容不够16位整除要补#0 ar inbase64, outbase64: string; i:integer; Ret:string; TmpAesIv: TAESBuffer; IvStr: Ans ......

delphi泛型模板编程 unit TxInfo; interface uses System.Types, System.Classes, System.SysUtils, Generics.Collections; type TPeople = record Name: string; Age: ......

package com.kuang.lesson1; import java.awt.*; import java.awt.event.*; // panel可以看着一个空间，但不能单独存在，必须放在frame上 public class TestPanel { public static void ......

打开注册表，找到下面项，把Toolbars删除！ 计算机\HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\22.0\Toolbars 重新进入Delphi，恢复默认状态！ 如下图的状态，删除后，恢复了！ ......

Delphi:cxGrid的使用方法 1. 去掉cxgrid中抬头的box ,在tableview1的ptionsview的groupbybox=false;2. 在GRID footer 中加入sum(列), tableview1的optionsview的footer=ture然后在cxGRid1 ......

Base64转换（加密、解密） 代码 字符串加密、解密 uses System.NetEncoding; procedure TForm1.Button1Click(Sender: TObject); var str1, str2: string; begin //加密 str1 := TNetEn ......