需要用到的一个函数: LONG SetWindowLong( HWND hWnd, int nIndex, LONG dwNewLong ); program Project; usesForms, Windows, ufrmMain in 'ufrmMain.pas' {frmMain}; {$R *.res} beginApplication.Initialize;SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

Delphi 在任务栏隐藏程序图标 方法一:1.修改工程文件中的“Application.MainFormOnTaskbar := True;”为“Application.MainFormOnTaskbar := False;”2.在主窗体的 OnShow 事件中写下:ShowWindow(Application.Handle, SW_HIDE); 方法二:改变窗体样式 SetWindowLong(Self.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); ------

DELPHI无类型参数 有不少Delphi新手对过程(函数)的无类型参数感到困惑,不知该传递什么类型.其实,Delph中有不少这类无类型参数,如常用的Move过程,只要把它当着一个Byte类型的数组看待就行了. 当使用string类型作实参传递给无类型形参时,要把s[1]作为参数传递(string类型下标是从1开始的),或者用指针转换,如PChar(s)^. 如果是Delphi2009及以上版本,string类型作实参传递给无类型形参时,要注意不能简单的将Length(s)传递给SourceSi

在Windows桌面的任务栏上有一个凹陷的区域,其中显示着系统时钟以及一些图标,这个长方形的区域便是Windows的任务栏状态区(taskbar status area).本文将介绍使用Borland Delphi进行任务栏状态区的编程,即怎样将应用程序的图标显示在任务栏状态区中. ---- 实现原理 ---- 任务栏状态区的图标添加.删除.以及修改是通过Windows API函数Shell_NotifyIcon来实现的,该函数是由Windows的SHELL32.DLL动态联接库提供的.在Del

procedure WMGetMinMaxInfo(var mes: TWMGetMinMaxInfo); message WM_GetMinMaxInfo; procedure TfrmMain.WMGetMinMaxInfo(var mes: TWMGetMinMaxInfo); var I: Integer; R: TRect; begin R := Self.Monitor.WorkareaRect; mes.MinMaxInfo.ptMaxSize.X := R.Right - R.L

用Delphi做登陆窗口,如果使用无边框Form,想要拖动窗口,可以在某个控件的OnMouseDown事件中写下以下代码 ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0);

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

一．新建一个应用程序:File->New Applicaton 在Interface部分要放在Uses Message之后,定义一个消息常量:const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息. 二．定义一个全局变量: NotifyIcon:TNotifyIconData,NotifyIcon是非常重要的一个变量,整个程序基本上是围着这个变量在转. TNotifyIconData是一个记录类型,按住Ctrl键,在TNotifyIconData 双击

一．新建一个应用程序:File->New Applicaton 在Interface部分要放在Uses Message之后,定义一个消息常量:const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息. 二．定义一个全局变量: NotifyIcon:TNotifyIconData,NotifyIcon是非常重要的一个变量,整个程序基本上是围着这个变量在转. TNotifyIconData是一个记录类型,按住Ctrl键,在TNotifyIconData 双击

今天打开电脑,与往常一样输入用户名密码登录后,发现桌面上空空如也,启动栏launch,menu bar什么的都消失了,桌面上文件可以打开,但是无法拖动位置,无法关闭(因为menu bar没了,无法鼠标点击关闭), 经过苦苦搜索几个小时之后找到解决方案如下,记录下来方便有相同问题的人: 问题原因:unity Plugin 被误删或禁用了 解决方案: 1．尝试用 ctrl + alt + t 打开命令行 2．若 ctrl + alt + t 不起作用,则可在桌面右键选择打开终端 3．若上述方法仍不起

uses Windows;type TfrmLogin = class(TForm) end; implementation {$R *.dfm} procedure TfrmLogin.FormCreate(Sender: TObject); begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW)); end;

uses Windows; type TfrmLogin = class(TForm) end; implementation {$R *.dfm} procedure TfrmLogin.FormCreate(Sender: TObject); begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW)); end; http://blog.csdn.net/yanj

unit UFrmModless; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFrmModeless = class(TForm) lblInfo: TLabel; btnClose: TButton; procedure FormClose(Sender: TObject; var Action: TClos

{ "path": "pages/login/login", "style": { "navigationStyle": "transparent", "app-plus": { "titleView": false } } },

本文讲解的是为自身程序的任务栏右键菜单里添加自己定义的菜单的方法: delphi添加任务栏右键菜单 procedure TForm1.FormCreate(Sender: TObject); var Mnu: HMenu; begin Mnu := GetSystemMenu(Application.Handle, False); AppendMenu(Mnu, MF_SEPARATOR, 0, nil); AppendMenu(Mnu, MF_STRING, WM_ABOUT, pchar('

Delphi 2007体验! baidu 内容摘要:CodeGear(From Borland) 公司公布了最新的Delphi 2007 For Win32版本号.作为一个 Delphi 的使用者,第一时间下载.安装并进行了体验,现将一些使用感受记录例如以下 CodeGear(From Borland) 公司公布了最新的Delphi 2007 For Win32版本号.作为一个 Delphi 的使用者,第一时间下载.安装并进行了体验,现将一些使用感受记录例如以下: 注:以下的对照主要是针对Del

记录状态栏和导航栏的设置和控制,统一在基类视图控制器中完成. 状态栏. 状态栏高度为20,iOS7以后背景完全透明. 样式枚举如下: typedef NS_ENUM(NSInteger, UIStatusBarStyle) { UIStatusBarStyleDefault                                     = 0, // Dark content, for use on light backgrounds UIStatusBarStyleLightCont

Delphi的强大与其庞大的组件库息息相关,目前的XE10.1版本已自带FastReport和GDI+等,下面我们来看一下几个非常强大且实用的组件库 一.DevExpress套件 Dev包含Grid.Chart.Reporting.Tree-Grid等100多个功能子控件,同时套包内包含Winform.WPF.Sliverlight..net 版本和 .NET Application Framework 开发框架.适用各种桌面.Web应用程序开发,尤其是Winform应用程序开发. Dev可以说

下载地址:https://www.jb51.net/softs/579413.html#downintro2 EHLib是一个DELPHI 下的非常棒的第三方Grid控件,比DELPHI自带的强大许多,但又比cxGrid小巧.适合做一些比较轻量级的桌面应用. 使用方法: Delphi 控件EhLib 9.2含全部源码.解压后,有一个Installer文件夹,里面有EhLibInstaller.exe,双击后,选择你当前使用的DELPHI版本,然后点击install按钮,XE10测试通过,请低调使

工具栏  包括  状态栏  命令栏   菜单栏   收藏栏 IE工具 > 工具栏  > 状态栏 有状态栏显示 无状态栏显示 菜单栏 快捷键  alt  可以快速展示  菜单栏    ,查看 >  工具栏 命令栏 无命令栏 收藏栏 无的状态 有收藏栏