Mouse Cursor mode hides from Alt-Tab too if it is hidden from Taskbar

vhanla · Apr 28, 2020 · 50dbe03 · 50dbe03
1 parent 76a0b95
commit 50dbe03
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/main.pas b/main.pas
@@ -184,6 +184,9 @@ procedure TForm1.MouseCursorMode1Click(Sender: TObject);
 begin
   MouseCursorMode1.Checked := not MouseCursorMode1.Checked;
   tmrMouseCursorMode.Enabled := MouseCursorMode1.Checked;
+  // hides from alt-tab if it is hidden from taskbar
+  if HidefromTaskbar1.Checked then
+    SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
 end;
 
 procedure TForm1.About1Click(Sender: TObject);