delphi浮动窗口
发布时间:2020-12-15 09:27:20 所属栏目:大数据 来源:网络整理
导读:像Photoshop一样的面板窗体,面板窗体与主窗体都处于激活状态。 用Spy Capture查看一下就不难发现,这些面板窗体的Parent Window都是Photoshop的主窗体(以Photoshop CS为例,主窗体的Handle是001906D8,所有面板的Parent Window指向的就是001906D8),而一般
像Photoshop一样的面板窗体,面板窗体与主窗体都处于激活状态。
用Spy & Capture查看一下就不难发现,这些面板窗体的Parent Window都是Photoshop的主窗体(以Photoshop CS为例,主窗体的Handle是001906D8,所有面板的Parent Window指向的就是001906D8),而一般我们创建的窗体的Parent是为None的。 下面的代码就为实现这种浮动窗口的示范: var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin //把Form2的Parent改为Form1 Form2 := TForm2.CreateParented(Form1.Handle); Form2.Show; //使得Form2处于激活状态 SendMessage(Form2.Handle,WM_NCACTIVATE,Ord(True),0); end; procedure TForm1.Button2Click(Sender: TObject); begin Form2.Close; end; procedure TForm1.FormDestroy(Sender: TObject); begin //记得加上这一句 if Form2.Showing then Form2.Close; end; end. 上面的代码就可以显示一个与Form1同处激活状态的Form2,再对Form2的BorderStyle与BorderIcons属性作一些必要的选择,就可以实现更加完美的效果! (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |