一个MDI文本文件编辑器打开了N个子窗体子窗体的.pas文件有一些public的过程和函数我想在父窗体调用当前活动的子窗体函数我用Self.ActiveChildForm无法调用直接frmEdit.xxxx运行出错求大家指导,谢谢! 回复于: 2013-01-21 15:31:31 将子窗口的函数定义为类函数calss function a(const s: string): Boolean;   有两种解决办法,一种就是上楼说的,定义成class function静态方法,第二种就是普通的方法

Delphi 停靠技术的应用3(两个窗体停靠成PageControl样式, 分页停靠) 因为TPageControl组件重载了TWinControl组件的DoAddDockClient和DoRemoveDockClient方法,能过自动响应停靠动作添加新的也没,而当浮动被停靠的窗口后将自动的将先前创建的TTabSheet也没删除,我们不需要写代码,只要设定基本的属性就可以实现分页停靠的功能. 一.两个窗体停靠成PageControl样式的实例 1.基本步骤: 1>.先创建一个新窗体(Dockab

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

委托 定义一个委托,声明一个委托变量,然后让变量去做方法应该做的事. 委托是一个类型 事件是委托变量实现的 经典例子:两个winform窗体传值 定义两个窗体:form1和form2 form1上有一个文本框,一个按钮 点击计算按钮调出form2 点击form2窗体按钮返回结果20赋值给form1窗体文本框 form1代码如下: //计算按钮事件 private void Button1_Click(object sender, EventArgs e) { Form2 f2 = new For

编写WinowsForm应用程序时,实现两个窗体之间相互传递值的方法其实很简单.以下用一个例子说明:在名为FormMain主窗体运行过程中利用名为FormInfo窗体,获取用户输入信息,并将这些信息返回给FormMain 1. FormMain和FormInfo 点击“修改...”按钮,显示FormInfo 2. 设置FormInfo中buttonOK和buttonCancal的属性 3. FormMain代码 public partial class FormMain : Form { pub

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

两个应用程序之间的通信实际上是两个进程之间的通信.由于本人知识有限,决定应用消息来实现.需要用到的知识: 1.RegisterWindowMessage(); //参数类型:pchar:返回值:LongInt; 注册全局消息函数. 2.FindWindow(   lpClassName,        {窗口的类名}   lpWindowName: PChar {窗口的标题} ): HWND;              {返回窗口的句柄; 失败返回 0} 检索欲接收消息的窗体函数. 3.Wndp

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

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

最近为了要兼容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', (本机电脑的存放

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

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

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

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

windows api,一个窗体激活的时候给另外一个发消息 using System; using System.Windows.Forms; using System.Runtime.InteropServices; namespace WindowsApplication43 { public partial class Form1 : Form { Form frm =null; public Form1() { InitializeComponent(); this.Activated 

一个窗体A调用另一个窗体B: 1)包含窗体B的头文件#include"B.h" 2)在窗体A中增加slots函数: public slots: void infoRecv(QString); 实现infoRecv函数体: void A::infoRecv(QString sInfo) { ui->label->setText(sInfo);//将获取的信息显示出来 } 3)在窗体B中增加signals函数: signals: void infoSend(QString);

实现无边框窗体很简单,直接将窗体的BorderStyle属性设置为bsNone即可.但是这样会引起2个问题: 1.在xp系统下,任务栏鼠标右键点击无法弹出菜单 解决办法:在FormShow中加入这个过程即可 procedure TForm2.InitSysMenu;var WindowStyle: Integer;begin  WindowStyle := GetWindowLong(Handle, -16);  WindowStyle := WindowStyle or WS_SYSMENU

本文转自:https://mp.csdn.net/postedit/100058721 1.功能展示 有时需要将子界面的内容传递到父界面,方法有好几种.经常用的是通过委托实现.具体的效果如下: ​       ​ [说明]点击父界面上“打开子界面”button,则会弹出子界面.父界面与子界面如上图所示. ​      ​ [说明]在子界面的textBox框内输入待返回至父界面的内容,点击“将内容返回”button,则父界面的textBox将会展示返回的内容.具体如上图所示 2.代码分析 里面应用