Dialog verschwindet in den Hintergrund

Bulvaye · Beiträge: 37 Windows Xp Delphi 7 Enterprise

Ich habe folgendes Problem:

Wenn ich z.B. die folgende Anwendung schreibe (ohne Forms), in der nur ein Open-Dialog und anschließend ein Message-Dialog aufgerufen wird, verschwindet Letzterer automatisch in den Hintergrund (also hinter jedes geöffnete Explorer-Fenster, etc.).

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

program Project1;

uses Dialogs;

begin
  with TOpenDialog.Create(nil) do 
    try 
      Execute 
    finally 
      Free
    end;
  MessageDlg('Fertig!', mtInformation, [mbOK], 0);
end.

Wie kann ich nun trotzdem dafür sorgen, dass die Anwendung weiterhin den Focus besitzt bzw. im Vordergrund bleibt, bzw. was mache ich falsch? Ich wäre für jeden Tipp dankbar!

_________________
Gesegnet ist, dessen Geist zu klein für jedweden Zweifel ist.

Bulvaye · Beiträge: 37 Windows Xp Delphi 7 Enterprise

...die Lösung lautet, die folgende API-Funktion zu Beginn aufzurufen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

uses
  Dialogs, Forms, Windows;

begin
  SetForegroundWindow(Application.Handle);
  ...
end;

_________________
Gesegnet ist, dessen Geist zu klein für jedweden Zweifel ist.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme