如何创建类似StickyNotes的窗口?

时间:2018-02-21 15:51:03

标签: delphi desktop-application desktop delphi-xe7

如何创建类似于Sticky Notes的窗口(窗体)?

我需要的主要特征:

  • 它永远不会被最小化(Win + D / Win + W)

其他特征:

  • 它始终保持在其他窗口
  • 没有任务栏按钮
  • 透明度(如果可能)

将表单的父级设置为ProjMan几乎可以正常工作!问题是,当我这样做时,表单不是半透明的(忽略alpha混合/透明度):

 hWindow := FindWindow(NIL, PChar('Program Manager'));        // this might be a bad idea. https://stackoverflow.com/questions/527950/how-to-make-always-on-bottom-window
 if hWindow <> 0 then Form1.ParentWindow := hWindow;

我在思考(是的,我知道这是一个肮脏的黑客)我可以将代码放在一个1000毫秒的计时器中,如果它被最小化则恢复窗口但是当按下Win + D时它不会工作。当按下Win + D时,看起来窗口实际上没有被最小化。

0 个答案:

没有答案