unit u_FrmTopMostActive; interface uses Winapi.Windows; implementation // 窗体置顶 procedure SetXwForegroundWindow(AHandle: Thandle); var hFgWin: Thandle; hFgThread: Thandle; begin ShowWindow(AHandle, SW_NORMAL); hFgWin := GetForegroundWindow; hFgThread

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

绘制delphi窗体的标题栏 按照设计,Delphi窗体的“标题”属性是由Windows负责绘制,标题栏在系统菜单旁边.如果你不想改变窗体的标题属性又想在窗体的标题栏添加一些自己的内容,你需要处理一个特殊的Windows消息:WM_NCPAINT.当需要重绘它窗体框架时,一个WM_NCPAINT消息发送到窗口,.应用程序可以截获该消息,绘制自己的定制的窗口框架.注意,当窗体激活或停用时,您还需要处理WM_NCACTIVATE.如果不处理WM_NCACTIVATE消息,当窗体失去焦点时,自定义标题

    TransparentColor:=true;    TransparentColorValue:=clFuchsia;    Color:= TransparentColorValue;    BorderStyle:=bsNone; delphi 窗体透明http://hi.baidu.com/duduppp/item/f347df3a16dbb9607c034bd5 来自为知笔记(Wiz)

delphi 窗体自适应屏幕分辨率 这是个困惑我很长时间的问题,到今天终于得到解决了. 话说Delphi有个很强的窗体设计器,这一点让VC粉丝垂涎三尺而不可得.但是,Delphi里设计的窗体并没有自动适应屏幕分辨率的属性,也就是说,软件设计时调整完美的窗体控件布局,在不同屏幕分辨率的机器上运行时可能会变得面目全非.控件之间会相互移位,有的甚至移出窗体再也找不到了. 这个问题在网上搜索过多次,但大都依据控件方法ScaleBy或者ChangeScale.采用这两个方法进行自适应调整,我自己都试过,但

Delphi - 窗体创建过程   来自大富翁. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 1.TCustom

http://anony3721.blog.163.com/blog/static/511974201082235754423/ 解决Delphi窗体缩放の疑难杂症 2010-09-22 15:57:54|  分类: 默认分类 |  标签:delphi  |举报|字号 订阅     下载LOFTER我的照片书  |     No.1 Delphi中如何限制窗体大小? Delphi中可以限制窗体或者元件的大小,只要指定它的Constraints属性即可(默认是0,就是不限制).但是Delphi这个

Delphi 窗体函数GetWindowGetWindow是计算机的函数,该函数返回与指定窗口有特定关系(如Z序或所有者)的窗口句柄,函数原型是HWND GetWindow(HWND hWnd,UINT nCmd).//声明: GetWindow(   hWnd: HWND; {指定的窗口句柄}   uCmd: UINT  {指定的关系选项} ): HWND;      {失败返回0; 成功返回符合的窗口句柄} //uCmd 可选值: GW_HWNDFIRST = 0; {同级别第一个} GW_

delphi 窗体的位置和高宽度-TForm:Letf.Top.Width.Height.ClientWidth.ClientHeight [窗体的高度和宽度]: [客户区的高度和宽度]: [窗体在屏幕中的位置]:

winform的窗体中,有时候需要设置默认焦点,有时候需要取消默认焦点. 设置默认焦点,最简单的方法就是设置这个控件的tabIndex,例:textBox1.TabIndex = 0; 也可以在窗体事件中用focus事件来实现,比如在Form的Activated事件中,如: private void Form1_Activated(object sender, EventArgs e) { textBox1.Focus(); } 这里有个问题,在Form的Load事件中设置focus是没有作用的

Delphi中的窗体分为模式窗体和无模式窗体.二者的区别在于,用户可以在无模式窗体和其他窗体之间切换.这样,用户就可以同时工作于一个应用程序的几个部分.Delphi中窗体的初始化有两种情况,动态创建,和自动创建.通过show显示一个无模式窗体,ShowModal显示一个模式窗体.窗体有创建对应的也要考虑释放问题.当关闭一个窗体时,窗体并没有真正从内存中释放掉,它仍然存在于内存中,除非关闭了主窗体.因为模式窗体于无模式窗体的不同,所以二者的释放处理也有不同. 模式窗体的创建与释放 因为模式窗体可以

转载:http://www.cnblogs.com/weekzero/p/3504513.html winform的窗体中,有时候需要设置默认焦点,有时候需要取消默认焦点. 设置默认焦点,最简单的方法就是设置这个控件的tabIndex,例:textBox1.TabIndex = 0; 也可以在窗体事件中用focus事件来实现,比如在Form的Activated事件中,如: private void Form1_Activated(object sender, EventArgs e) { tex

关于窗体透明的做法 来自:http://blog.csdn.net/shuaihj/article/details/8610343 关于窗体透明的做法 1.在Delphi中,设置窗体的AlphaBlend := true;AlphaBlendValue := 0-255; AlphaBlendValue越小窗体的透明度就越高.这种方法将会使窗体和窗体中控件都变成透明.   2.在Delphi中,设置TransparentColor := True与TransparentColorValue :=

我不知道LAZARUS是什么玩意.纯用DELPHI的话.procedure TForm1.FormCreate(Sender: TObject);var mStyle, mExStyle: Longint; FAlphaColor: TColor; beginFAlphaColor:= clRed; //设置窗体为无标题 mStyle:= GetWindowLong(Handle, GWL_STYLE); SetWindowLong(Handle, GWL_STYLE, mStyle and n

在Delphi 开发中,常常应用到窗体消息传递,以达成某种操作要求,以下列举一个应用的例子,供大家参考. 自定义过程/函数方法://发送字符串到指字句柄的窗口中 (接收窗体需用发送时的消息常量WM_COPYDATA)procedure SendMessageData(AHandle: THandle; AStr: String);var sData: TCopyDataStruct;begin sData.cbData := Length(AStr) + 1; //为传递的数据分配内存 GetM

第一种方法是设置窗体的BorderIcons/biMaximize属性为False,这种方法仅让窗体的最大化按钮灰掉: 第二种方法是设置窗体的BorderStyle属性为bsDialog,这种方法使最大化,最小化按钮都不可见,并且不能调整窗体大小.

最大化按钮不可用,而且窗体最大化,我以前一直这样设置:在Object Inspector下把BorderIcons属性下的biMaximize属性设置为False,然后把WindowState属性设置为wsMaximized,结果是窗体的最大化按钮的确是隐藏了,窗体也最大化了,但是窗体也遮盖住了任务栏! 网上也有很多人来讨论这个问题的,也有人说窗体的ALign 属性为 alClient同时窗体WindowState属性要设置为wsNormal就可以了:这样看起来的确是最大化了,但是窗体还是有点边

我们知道,在windows上通过鼠标双击某应用程序图标,该应用程序往往会以顶层窗口的形式呈现在我们面前,但是对于一个已经打开的非顶层窗口,我们怎么将其激活为顶层窗口呢? 要达到激活,这个必须要满足两个条件,第一,必须要有通知激活的人,这个人必须是另一个应用程序(或同一应用程序的不同示例),他能发送信息给该窗体:第二,该窗体能够解析出该消息.至于一个应用程序如何向另一个应用程序发送消息的方法有很多,如共享内存,网络的方式等等.这里就不做详述,好,闲话少说,我们进入正题,有了前面的两个条件,假设现在

//重载resizeEvent和moveEvent两个函数,以保证窗体大小和位置改变后能时刻记住其位置 QRect curGemRect = mpWindow->geometry(); //激活mpWindow窗体为桌面的顶层窗体 Qt::WindowStates winStatus = Qt::WindowNoState; if (mpWindow->windowState() & Qt::WindowMaximized) { winStatus = Qt::WindowMaximi

procedure TForm1.SpeedButton2Click(Sender: TObject); begin sendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,);//窗体最小化  任务栏中 end;   procedure TForm1.SpeedButton2Click(Sender: TObject); begin form1.WindowState :=  wsMaximized;//窗体最大化 end;   procedu