Problem: SetWindowPos

[daddy]

Hallo Z32,

Also das Problem ist relativ einfach lösbar. Du darfs Deinen Befehl zur Veränderung des Fensters nicht in FORM2 ausführen, da ja anschließend FORM1 realktiviert wird, wenn Du Form2 schließt und dadurch automatisch wieder in den Vordergrund gelangt. Stattdessen musst Du in FORM2 letztendlich gar nichts machen und in FORM1 den Code wie folgt ändern:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var L, T : Integer;
begin
  L := Left;
  T := Top;
  Form2.ShowModal;
  if Form2.CheckBox1.Checked then
    SetWindowPos(Form1.Handle,HWND_TOPMOST,L,T,0,0,SWP_NOSIZE)
  else SetWindowPos(Form1.Handle ,HWND_BOTTOM,L,T,0,0,SWP_NOSIZE);
end;

L und T habe ich eingeführt, damit die Position von FORM1 erhalten bleibt

Gruß Daddy