delphi设计浮动窗口 用Spy & Capture查看一下就不难发现,这些面板窗体的Parent Window都是Photoshop的主窗体(以Photoshop CS为例,主窗体的Handle是001906D8,所有面板的Parent Window指向的就是001906D8),而一般我们创建的窗体的Parent是为None的。 下面的代码就为实现这种Photoshop式浮动窗口的示范:
var implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button2Click(Sender: TObject); procedure TForm1.FormDestroy(Sender: TObject); end. 上面的代码就可以显示一个与Form1同处激活状态的Form2,再对Form2的BorderStyle与BorderIcons属性作一些必要的选择,就可以实现更加完美的效果! |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论