FormStyle "resetet" ShellTreeView

[GPRSNerd]

Hi, ich benutze dafür folgenden Code:

Delphi-Quellcode:

procedure TForm_Main.spbStayOnTopClick(StayOnTop: Boolean);
begin
  if StayOnTop then
  begin
    SetWindowPos(Handle,
                 HWND_TOPMOST, 
                 Left, Top, Width, Height, 
                 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  end
  else
  begin
    SetWindowPos(Handle, 
                 HWND_NOTOPMOST, 
                 Left, Top, Width, Height, 
                 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
  end;
end;

Gruß,
Stefan