常规释放和关闭: Form.Free   -   释放Form占用的所有资源.Free后,Form指针不能再使用,除非对Form重新赋值.   Form.Hide   -   隐藏Form.可以调用form.Show再一次显示.   Form.close   -   关闭Form,实际的结果取决于OnCloseQuery和OnClose,如果OnCloseQuery的CanClose为False,不执行任何操作,如果为True,进一步考察OnClose的Action的值:    caNone: 

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

//***************************************************************************//函 数名: CreateForm //返 回值: boolean //参 数: TForm //功 能: 判断MDI窗体的子窗体是否存在 //*************************************************************************** function TForm1.CreateFo

判断系统中.NET FrameWork已安装版本的方法很多,比如检查C:\Windows\Microsoft.NET\Framework\下的子目录,但是子目录往往是包含版本号,比如v2.0.50727.v4.0.30319,当然网上也有一些是判断注册表中的HKEY_LOCAL_MACHINE\Software\Microsoft\.NETFramework下的子目录,这个和判断系统文件一样下面都显示的版本号, 经过发现,安装了.NET FrameWork会在HKEY_LOCAL_MACHINE

1.使用OpenForms if my.Application.OpenForms.Item("FormName") isnot nothing then搜索 do something here else do something here end if 2.使用FindWindow API 首先取得一个窗体的句柄(使用FindWindow),然后使用IsWindowVisible判断此窗体是否显示,还有一个IsIconic判断窗体是否已经最小化. 相关使用方法你简单查找一下就可以了,

2008-02-28 15:18 //*************************************************************************** //函 数 名: CreateForm //返 回 值: boolean //参       数: TForm //功       能: 判断MDI窗体的子窗体是否存在 //********************************************************************

常量,字段,构造方法   常量 1.什么是常量 ​ 常量是值从不变化的符号,在编译之前值就必须确定.编译后,常量值会保存到程序集元数据中.所以,常量必须是编译器识别的基元类型的常量,如:Boolean,Char,Byte,SByte,...,...,...,UInt64,Single,Double,Decimal,String.另外,C#是可以定义非基元类型的常量的,前提是值必须为null. public sealed class SomeType { public const SomeType

需求:在浏览器或者app webview中打开的页面,js判断本机是否已安装搜狐新闻客户端. 一.微信 1.分享——好友/朋友圈,feed会有搜狐新闻标记,打开url后缀参数isappinstalled=0/1(本机已装app为1,反之为0) 2.微信浏览器打开之后,点击右上角二次分享——好友/朋友圈,feed无标记,打开url后缀参数isappinstalled=0(本机是否安装app都为0) 思路:可以先判断isappinstalled,==1则一定安装了.然后根据二代协议打开的时间差来判断

delphi 判断是否出现滚动条     if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then    ShowMessage('Vertical scrollbar is visible!');  if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then    ShowMessage('Horiz

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

/// <summary> /// 嵌入子窗体,判断子窗体是否打开了 /// </summary> public static Form1 f; public void Form1Show() { if (f == null || f.IsDisposed) { f = new Form1 { WindowState = FormWindowState.Maximized, FormBorderStyle = FormBorderStyle.None, TopLevel = fal

在Win10系统中,大部分用户都已经知道在“选择在任务栏上显示哪些图标”来让一些软年图标显示,一些隐藏,不过使用Win10系统久了之后发现,在设置通知区域图标中有很多已经卸载程序的无效选项!这让设置时感到很凌乱,那么有什么方法可以清除这些无效的选项呢? 请参考以下步骤: 1.右键点击开始按钮,“运行“regedit”打开注册表编辑器: 2.然后打开如下键值:HKEY_CLASSES_ROOT\Local Settings\Software\Microsoft\Windows\CurrentVer

Delphi 判断TImage是否为空:1)非空 Image1.Picture.Graphic <> nil2)为空 Image1.Picture.Graphic = nil注意不能用Image1.Picture 来判断. Image1.Picture.Graphic即可直接赋值也可用Assign.Image1.Picture不能直接赋值,只能用Assign. Image1.Picture.Graphic  可包含多种格式的图像.Image1.Picture.Bitmap仅包含Bitmap图像

WPF判断当前窗体是否为模态   1.使用System.Windows.Interop.ComponentDispatcher.IsThreadModal来判断 参照:https://social.msdn.microsoft.com/Forums/vstudio/en-US/c95f1acb-5dee-4670-b779-b07b06afafff/where-is-modal-property?forum=wpf 注意事项:         参照:http://stackoverflow.co

Delphi 判断按键状态 http://blog.sina.com.cn/s/blog_54da9cc001015di1.html (2012-04-05 14:22:50) 标签: 杂谈 分类: Delphi 调用GetKeyState(nVirtKey:integer)函数,可以判断是否按下了Alt.Ctrl.Shift键,如果函数返回值<0则表示按下了. 参数: nVirtKey     指定一个键.如果指定字母或数字键,nVirtKey 必须为该字符的 ASCII 码值.如:判断‘a’

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

//***************************************************************************//函 数名: CreateForm//返 回值: boolean //参 数: TForm //功 能: 判断MDI窗体的子窗体是否存在 //***************************************************************************function TForm1.CreateFor(

Form1 form; /// <summary> /// 开始检测 /// </summary> /// <param name="sender"></param> /// <param name="e"></param> private void button1_Click(object sender, EventArgs e) { if (form==null) //如果子窗体为空则创造实

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型,用来判断是什么时候