AlwaysOnTop mit mehreren Formularen

[Uwe Raabe]

Zitat von himitsu:

Beim Ändern wird die innere Form komplett neu generiert, anstatt nur die eine Option zu ändern.

Wo siehst du das denn?

Delphi-Quellcode:

  
  if FFormStyle <> Value then
  begin
    if ((Value = fsNormal) and (FFormStyle = fsStayOnTop)) or
       ((Value = fsStayOnTop) and (FFormStyle = fsNormal)) then
    begin
      FFormStyle := Value;
      if not (csDesigning in ComponentState) and HandleAllocated then
        SetWindowPos(Handle, HWND_STYLE[FFormStyle = fsStayOnTop], 0, 0, 0, 0,
          SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOOWNERZORDER);
    end
    else
      ...
    end;
  end;