How to display a message window in the right bottom corner of the active display using Delphi

前端 未结 7 1531
青春惊慌失措
青春惊慌失措 2021-02-04 17:29

These days you see a lot of software displaying message windows in the right bottom corner of the active screen for a few seconds or until a close button is cli

7条回答
  •  孤城傲影
    2021-02-04 17:51

    You can check where is Taskbar:

    uses ShellAPI;
    //...
    Var AppBar: TAppbarData;
    //...
    begin
      FillChar(AppBar, sizeof(AppBar), 0);
      AppBar.cbSize := Sizeof(AppBar);
    
      if ShAppBarMessage(ABM_GETTASKBARPOS, AppBar) <> 0 then
      begin
        //AppBar.rc is TRect
      end;
    end;
    

    And then show your form...

提交回复
热议问题