制作真正的TopMost窗口

2016-01-29 14:10 7 1 收藏

制作真正的TopMost窗口,制作真正的TopMost窗口

【 tulaoshi.com - Delphi 】

如果一个TOPMOST窗口不是MainForm的话，那么即将将它设为总在顶端，它也会随着主窗口的前摆而前摆，后摆而后摆。那么怎么解决这个问题呢？

            先将窗口的BorderStyle设为bsNone,FormStyle设为fsStayOnTop。
            procedure TForm3.CreateParams(var Params:TCreateParams);
            begin
             inherited;
             with Params do
             begin
              Style:=Params.Style xor WS_DLGFRAME;
              WndParent:=0;//此行
             end;
            end;

            procedure TForm3.FormCreate(Sender: TObject);
            begin
             Width:=36;
             Height:=36;
             SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
            end;

来源:http://www.tulaoshi.com/n/20160129/1492689.html

上一篇：《世界树与不可思议的迷宫》通关心得和职业评价
下一篇： Delphi学习:在Listbox加背景图

看过《制作真正的TopMost窗口》的人还看了以下文章更多>>

真正有效的丰胸方法？

标签：丰胸

案例分析图钉提问：同仁堂的强效丰胸可靠吗？会反弹吗？图老师解答：一般都会反弹建议可以采用手术治疗谢谢真正有效的丰胸方法？丰胸介绍太平公主、飞机场、小A一大堆为小胸MM创造的词汇充斥并且刺激着我们脆弱的神经。一定要找到一个好的...

胎动频繁的真正原因

标签：怀孕

有些准妈妈在孕期发现胎动很频繁，担心是因为胎儿发育不良造成的，其实胎动频繁的原因也是要分情况的哦。一、胎动频繁的五种正常情况 1、夜晚睡觉前：宝宝在晚上是动得最多的，一方面比较有精神，另一方面，孕妈咪通常在这个时间能静下心来感受宝宝的胎动，所以会觉得动得特别多。 2、吃饭以后：吃饭以后，孕妈...

TMemo的真正插入字符

标签：编程语言网络编程

我们发现在TMemo、TRichEdit等编辑控件中，有Add、Insert等插入字符的命令，可是这些命令却没能真正做到插入字符作用，他们只是把你的字符当做一行在指定位置插入。为了真正实现插入功能，还需要执行多一些指令才能真正做到，下面是一个例子： ROEX2.Lines.Insert(2,abcdefg); ROEX2.SelLength:=-2; ROEX2.SelText :=...

真正有效的减肥方法

现代人普遍缺乏运动，能躺着绝不坐着，能坐着绝不站着，尤其是经常坐在电脑前工作一整天的办公室白领，久坐不动，特别容易造成脂肪在腹部和下半身的囤积，变成难看的“游泳圈”和“大象腿”，怎样瘦肚子也就成了大家一致的心声。这里就告诉大家怎样瘦肚子的方法。方法/步骤 1 瘦肚子的方法练习姿势一：保持平躺仰卧的姿势，两脚打开...

VB调用API制作渐变的窗口背景色

标签：编程语言网络编程

在许多Windows软件的安装程序中，时常可以看到以某种颜色由浅至深的渐变为背景的窗口。使用VB制作这类窗口的方法有不少，而通过调用API函数绘制渐变的窗口背景色，似乎是一种既简单又节省资源的方法。首先，在module文件中加入下列声明语句： Declare Function CreateSolidBrush Lib"GDI"(ByVal _crColor As Lon...

查看更多精彩>>