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

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!

HY!

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

markieren

Delphi-Quellcode:

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

Gruss

Der OLLI

...und es funktioniert - danke Dir!