Hi,
ich möchte zwei Fenster immer oben, vor allen anderen Fenstern, haben. Wenn ich bei Delphi 5 beide Fenster mit FormStyle = fsStayOnTop erzeuge, klappt es nur zuerst. Sobald unter Windows XP das zweite Fenster angeklickt wird und dann auf eine andere Applikation geklickt wird, verschwinden beide Fenster in den Hintergrund. Ist nur das erste Fenster offen, ist dies in allen Fällen oben. Wie klappt es auch mit zwei Fenstern?
Um das Problem nachzuvollziehen erzeugt ein neue Projekt und zwei TForms. Auf Form1 einen Schalter mit dem folgende Code einfügen und aus der
DPR die Erzeugung von Form2 löschen (ums richtige Freigeben von Form2 geht es hier nicht):
In der DPR-Datei
Delphi-Quellcode:
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
In Form1
Im Objektinspektor: FormStyle := fsStayOnTop
Und zusätzlich:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.Show;
end;
In Form2
Im Objektinspektor: FormStyle := fsStayOnTop