Von meinen
hüpfenden Viechern:
Delphi-Quellcode:
procedure TBlobForm.FormShow(Sender: TObject);
begin
// Setzt Fenster an die vorderste Front
SetWindowPos(
Handle, HWND_TOPMOST, Left, Top, Width, Height,
SWP_NOACTIVATE
or SWP_NOMOVE
or SWP_NOSIZE);
// Setzt Parent auf den Desktop
SetWindowLong(
Handle, GWL_HWNDPARENT, 0);
// Versteckt das Fenster in der Taskleiste
SetWindowLong(
Handle, GWL_EXSTYLE,
GetWindowLong(
Handle, GWL_EXSTYLE)
or
WS_EX_TOOLWINDOW
and not WS_EX_APPWINDOW);
end;
Da das aber mein erster richtiges Projekt mit direkter
WinAPI-Nutzung war, bin ich mir nicht sicher, ob ich dieser damit nicht irgendwie ans virtuelle Schienbein trete
.
Funktionieren tut es aber.