Thema: Delphi Problem: SetWindowPos

Einzelnen Beitrag anzeigen

daddy

Registriert seit: 9. Sep 2005
Ort: Köln
126 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Problem: SetWindowPos

  Alt 10. Mai 2007, 10:51
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
  Mit Zitat antworten Zitat