Form auf fsStayOnTop setzen

[Tim.exe]

Hallo,

ich schaffe es irgendwie nicht eine Form auf 'fsStayOnTop' zu setzen.

Habe folgendes schon ausprobiert:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.FormStyle := fsStayOnTop;
Form2.ShowModal;
end;

Selbstverständlich ist im Objektinspektor von Form2 auch fsStayOnTop deklariert...aber es will nicht...

[Tim.exe]

OK, habs schon:

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, Left,Top, Width,Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

Hab mich vorhin auch verschrieben gehabt, habe da ...NOTOPMOST... geschrieben, und dann funktionert es natürlich nicht :mrgreen:

[roderich]

kapier ich nicht. Wenn Du Form2 modal anzeigst, ist es doch sowieso vor den anderen Formularen ?!?!?

Roderich

[Stanlay Hanks]

Ich glaub Stay On Top is, dass das Form immer oben bleibt, auch wnn man zu ner anderen Anwedung wechselt.

[Tim.exe]

Zitat:

Zitat von Stanlay Hanks

Ich glaub Stay On Top is, dass das Form immer oben bleibt, auch wnn man zu ner anderen Anwedung wechselt.

Ganz genau so is it :D

[roderich]

Ich weiß nicht welche Delphi-Version ihr habt, aber bei 5 und 6 bedeutet fsStayOnTop, dass das Form vor anderen nicht-modalen Forms der gleichen Anwendung ist.

Also nix mit vor allen anderen Anwendungen.

Roderich

[mschaefer]

Moin, moin

Tja, bei mir funtkioniert das seltsamerweise überhaupt nicht.

Delphi-Quellcode:

 
   procedure TForm2.FormShow(Sender: TObject); 
   begin 
     SetWindowPos(Handle, HWND_TOPMOST, Left,Top, Width,Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); 
   end;

Gibt es da noch einen Trick. Wenn ich die nächste Applikation starte setzt die sich dreisterweise hleich in den Vordergrund

[edit=Luckie]Smilies durch Delphi-Tags ersetzt. :roll: Mfg, Luckie[/edit]

[Luckie]

Man kann wohl nur das Hauptformular / Fenster auf "StayOnTop" setzen.

[mschaefer]

Danke Lcuckie,


auch für die Nachformatierung (mir ist der Browser abgestürtzt und da gingen die Skripte nicht mehr)
Ja ich wollte das Stay on Top mit einem Splash-Screen realisieren und da das eigentliche Programm
nur einen kleinen Teil des Bildschirms bedeckt, sollte das Splasch-Form sich auch nicht von anderen
Anwendungen währedn etwa vier Sekunden unterdrücken lassen. Tja nochmal drüber knoblen was ich da
nun mache :?


Grüße aus der Stadt an der "wässrigen Leine"

// Martin

[mschaefer]

Moin, nochmal,

:idea: :idea: :idea:
hatte gerade noch einen Zufallstreffer: Man kann auch Nicht-Hauptformulare auf StayOnTop bringen.

1. Hauptformular auf Stay-onTop setzen
2 Unterfomular auf StayOnTop setzen
3 Im Unterformular unseren WinApi aufruf durchführen

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, Left,Top, Width,Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

So habe ich jetzt auch meinen Splash-Screen auf StayOn top bis ich Ihn nach drei Sekunden
per Timer schließen lasse.

Schönen Anbend noch... // Martin

:P