Dialog verschwindet in den Hintergrund

[Bulvaye]

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.).

Code:

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!

[OLLI_T]

HY!

Daran soll es nicht scheitern, dass diese junges und hoffnungsvolle Projekt scheitert. :roll:

Delphi-Quellcode:

with TOpenDialog.Create(NIL) do
    try
      Execute
    finally
      Free
    end;
    SetForegroundwindow(Application.Handle);  
    MessageDlg('Feddisch!', mtInformation, [mbOK], 0);

Gruss

Der OLLI

[Bulvaye]

...und es funktioniert - danke Dir! :-D