Form-Fragen

[Snoop007]

zu frage 2

Code:

procedure SetWindowX(wert : hwnd);
begin
  with Form1 do
  begin
    SetWindowPos(
                 Handle,
                 wert,
                 Left,
                 Top,
                 Width,
                 Height,
                 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE
                 );
    SetWindowLong(Handle, GWL_USERDATA, 0);
  end;
end;

der aufruf

Code:

    SetWindowX(HWND_TOPMOST); // vor alle fenster
    SetWindowX(HWND_NOTOPMOST);  // hinter alle fenster ( normal )