制作多边形窗体的关键在于设定多边形的区域,并根据这个指定的区域改变窗体的形状.Windows的CreatePolygonRgn和SetWindowRgn函数可以解决这两个难点.利用以下代码即可将窗体设置为一个五边形:procedure TForm1.FormCreate(Sender: TObject);var pt: array [0..4] of TPoint; m_rgn: HRGN;beginpt[0].x:=self.Width div 2;pt[0].y:=0;pt[1].x:=0;

delphi设计浮动窗口 用过Photoshop的朋友一定对它的那些方便的浮动面板记忆犹新,其实这些面板就是一个个的小窗体,但这些小窗体都放在Photoshop的主窗体上 (不是存在主窗体中),有自己的标题栏.最小化按钮及最大化按钮.但它们与MDI程序不同的是,他们可以拖到主窗体外,更重要的是工作中所有这些面板窗体 与主窗体最处于激活状态. 用Spy & Capture查看一下就不难发现,这些面板窗体的Parent Window都是Photoshop的主窗体(以Photoshop CS为例,主窗

Delphi中的窗体,有模式窗体与非模式窗体两种.两种窗体的调用方式不同,模式窗体使用ShowModal显示,非模式窗体使用Show显示.当显示模式窗体的时候你是不能操作本程序的其他窗体的,你不能把焦点从模式窗体转到其他窗体上.而非模式窗体则没有这种限制,你可以从一个非模式窗体切换到另外一个非模式窗体上.两种窗体的区别仅仅在调用的方式上有区别. 窗体的创建: 当使用Delphi的IDE New一个窗体后,在Project1.dpr文件中,会出现一句 1 Application.CreateFor

游戏UI框架设计(三) ---窗体的层级管理 UI框架中UI窗体的"层级管理",最核心的问题是如何进行窗体的显示管理.窗体(预设)的显示我们前面定义了三种类型: 普通.隐藏其他.反向切换.代码如下: /// <summary> /// UI窗体显示类型 /// </summary> public enum UIFormsShowMode { Normal, //普通显示 ReverseChange, //反向切换 HideOther, //隐藏其他界面 } &q

pyqt5对用qt designer设计的窗体实现弹出子窗口的示例 脚本专栏 python 1. 用qt designer编写主窗体,窗体类型是MainWindow,空白窗口上一个按钮.并转换成mainWindow.py # -*- coding: utf-8 -*- # Form implementation generated from reading ui file 'f.ui' # # Created by: PyQt5 UI code generator 5.9 # # WARNING

http://blog.163.com/yuanliaofan@126/blog/static/1730690722012534428814/ delphi SetWindowPos改变窗体位置和状态 2012-06-03 16:04:28|  分类: 电脑|举报|字号 订阅     下载LOFTER我的照片书  |     delphi SetWindowPos改变窗体位置和状态 //声明:SetWindowPos(hWnd: HWND;            {窗口句柄}hWndInsert

Delphi 修改新建窗体时候的默认字体格式 操作步骤: 1.运行输入“regedit” 2.找到目录(这里默认以Delphi 7为例) HKEY_CURRENT_USER\Software\Borland\Delphi\7.0 3.新建项名为“FormDesign”的项,在下面新建一个字符串值:名称:DefaultFont 值为例如:微软雅黑,10 注意:这个FormDesign 不是原来的 Form Design,没有空格 图例以下:        创建时间:2019.12.19 来源:ht

转]delphi判断MDI窗体的子窗体是否存在//***************************************************************************//函 数 名: CreateForm//返 回 值: boolean//参 数: TForm//功 能: 判断MDI窗体的子窗体是否存在//***************************************************************************func

现在网络的流行,使得服务器程序得到了广泛的应用,那么我们使用Delphi如何设计出强壮的服务器呢? 有人说,如果要设计服务器的话,一定要使用VC来设计,其实这个人说的有一定道理,因为如果你要使用Delphi来设计服务器的话,要想设计高效的服务器就不要使用Delphi带来的大部分的控件(最好不要使用Delphi控件),为什么呢?下面我会告诉大家.这样的话你全部使用API来设计服务器,就同VC没有太大的区别了. 使用Delphi来设计服务器程序,具体选择是使用窗体消息模式还是使用完成端口的模式,这主

一.基础知识介绍: 1.ActiveForm的基础知识介绍: 在Delphi中,ActiveForm是封装了Delphi Form的一种ActiveX控件.ActiveForm其实是一种标准的Delphi From(ActiveForm继承自TForm).ActiveForm中可能会包含某些VCL或者ActiveX组件,包括用户自定义的组件. 就像“标准的”Windows应用程序一样,我们也可以向ActiveForm中添加代码以及对事件作出应答.唯一的区别是,ActiveForm的标题栏(tit

效果图如下: 实现思路: 1.继承Window类 2.为自定义的CustomWindow类设计窗体样式(使用Blend很方便!) 3.为窗体增加最大最小化和关闭按钮,并实现鼠标拖拽改变窗体大小(使用Derek Bartram的WindowResizer.dll库) 代码说明: 1.继承Window类 创建CustomWindow类,继承自System.Window 代码 public class CustomWindow : Window {     public CustomWindow()

1.如果要创建一个mdi child,先看是否有这个child 存在,如果有,则用它,如果没有再创建 //该函数判断MDI 子窗体是否存在,再进行创建和显示function isInclude(formclass: TFormClass): boolean;var  i: Integer;  form: TObject;begin  result := false;  for i := 0 to frmMain.MDIChildCount do  begin    form := frmMain

delphi登陆窗体的制作,就我知道的,可以有两种方法,一种是在工程文件中实现登陆窗体的动态调用,另一种就是在主窗体的OnCreate事件中动态创建登陆窗体,两种方法都需要将主窗体设置为Auto-create form,将登陆窗体设置为 Availabel form. 登陆窗体: Form1;   主窗体: Mainfrm; 一.在工程文件中实现动态创建登陆窗体(网上资料提供):  可以在Form1中Public部分添加一个变量,可以是integer类型,或者boolean型,用来判断是什么时候

最近为了要兼容XP系统(守旧的市场),又需要做出产品的特效,不得不从头学习一下这门 “聪明的语言” . 开发环境: win10 Delphi 10.2 Version 25.0.26309.314 产品环境:最低xp系统 使用 http://www.bilsen.com/gdiplus/index.shtml  网站下载中的 Gdi+ 1.0 1. 项目dpr文件中引用即可: uses GdiPlus in '..\PublicLib\GdiPlus\GdiPlus.pas', (本机电脑的存放

http://www.cnblogs.com/Jesses/articles/1636323.html 引用PsAPI var  h:HWND;  pid: Cardinal;  pHandle: THandle;  buf: array[0..MAX_PATH] of Char;begin  h:=GetForegroundWindow; //获取当前激活的窗体句柄  GetWindowThreadProcessId(h, @pid); //通过句柄获取其进程ID  pHandle := Op

随着Microsoft凭借Windows在操作系统上取得的巨大成绩,Windows用户界面也日益成为业界标准.统一的界面给广大用户对应用软件的学习与使用带来了很大方便.但每天都面对同一副面孔,日久天长难免会产生一些厌倦,想开发一些"离经叛道"的应用程序,如果能够一改Windows千篇一律的"标准"界面,一定会给用户带来一种清新的感觉.标准Windows应用程序窗口一般为带有标题栏的浅灰色矩形外观,因而"异形"对话框/窗口也主要是颜色与外形上动手脚

我们在工作中,经常会需要画一些不规则的窗体,现在总结如下. 一.利用VisualBrush实现.这依赖于VisualBrush的特性,任何控件可以作为画刷,而画刷又可以作为背景. 此种方法可以用于实现一些文字窗体等.(注意设置窗体的透明属性) 例如: <Window x:Class="IconFontTest.Window1" xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" x

delphi继承form TFrmBase = class(TForm) procedure FormShow(Sender: TObject); end; procedure TFrmBase.FormShow(Sender: TObject); begin ShowMessage('base show'); end; type TFrmBase14 = class(TFrmBase)procedure FormShow(Sender: TObject); private { Private

//第一种方式 procedure TForm1.btn1Click(Sender: TObject); begin With TForm2.Create(Application) do Try ShowModal; finally free; end; end; //第二种方式 procedure TForm1.btn2Click(Sender: TObject); begin if not assigned(Form2) then begin Form2:=TForm2.Create(nil

DSK Desktop Setting File 保存工程文件的桌面摆布情况, 下次打开时可以恢复上次保存的桌面状态 Desktop文件.保存了IDE的布局(也可能包含浏览记号,视乎IDE的设定),为防止开发人员的IDE布局设置.文本格式,此文件不应进源代码库 以上两个说明,引用自:http://www.cnblogs.com/findumars/p/4479594.html 如果想要保存自己的窗体设置: Tools-> Environmental Options-> Autosave opt