"Echte" StayOnTop Form öffnen

[lasermouse]

Es gibt ja bei Delphi die Option "StayOnTop" für Forms...aber so richtig geht das nicht....die Form überdeckt zwar andere Forms,
aber wie kann man es machen, das diese IMMER im Vordergrund bleibt? Also wenn man jetzt ein Fenster auf die Form schiebt, dann überdeckt dies diese...es soll aber dahinter verschwinden

Weiss jemand wie das geht?

Hab diesen COde gefunden:
SetwindowPos(Form2.Handle,HWND_TOPMOST,0,0,0,0, SWP_NOMOVE or SWP_NOSIZE);

Das geht auch...allerdings bleibt es nur bei delphi eigenen fenstern im vordergrund...andere anwendungen überdecken die form weiterhin


EDIT: Wenn ich das ganze auf die Mainform anwende, dann klappt es so wie es soll..bloß wie geht das für Form2??

[holliesoft]

Hallo,

Du must beim TApplication.OnDeactivate ein Application.RestoreTopMosts ausführen.

Gruß
Patrick

[Kroko1999]

Wollen wir hoffen, dass nicht zur gleichen Zeit ein Programm läuft, was das selbe tut, sieht dann bestimmt gut aus,

[lasermouse]

Zitat von holliesoft:

Hallo,

Du must beim TApplication.OnDeactivate ein Application.RestoreTopMosts ausführen.

Gruß
Patrick

Das bringt leider auch nichts ;( Die Form verdeckt weiterhin bloß Delphi-Forms.

Hier der aktuelle Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
delay(100);
SetWindowPos(form2.Handle ,HWND_TOPMOST,0,0,0,0,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); 
end;

procedure TForm2.FormDeactivate(Sender: TObject);
begin
Application.RestoreTopMosts;
end;

[lasermouse]

Könnte den Beitrag jemand in die WinAPI Ecke verschieben? Denke der wäre dort besser aufgehoben...

[bitsetter]

Hallo,

folgendes funktioniert bei mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.show;
end;

und dann im onShow Ereignis von Form 2:

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
begin
  Application.NormalizeAllTopMosts;
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

[lasermouse]

@Bitsetter

Das geht! Danke!