Wie Hauptfenster in Vordergrund bringen?

[iphi]

Zitat:

windows.SetForegroundWindow(handle);

Super, das ist der Trick! In meinem Testcode funktioniert es anstandslos.

In meinem eigentlichen Programm musste ich SetForegroundWindow allerdings im OnActivate ausführen. Im OnCreate erzeugte er eine Access Violation. Kann es sein, dass der einen OnActivate Event ausser der Reihe erzeugt?

Vielen Dank für Eure Hilfe

[Sir Rufo]

Es kann sein, dass im OnCreate-Event noch kein Fenster-Handle verfügbar ist.
Schließlich befinden wir uns (gerade bei der MainForm) noch in der Initialisierungsphase der Anwendung.

Dieser Trick ist allerdings auch mit Vorsicht zu genießen, weil es hierbei zu unerwünschten Nebeneffekten kommen kann, die gar nicht erwünscht sind.

Es gibt halt mehrere Lösungsansätze, wobei nicht alle wirklich regelkonform sind und trotzdem augenscheinlich das richtige liefern. Dann muss man auf einmal mit Tricks diese Lösung heilen und schwupps besteht die Anwendung aus mehr Heilungs- als Arbeitscode.

Kleines Beispiel in Word, weil das kommt mir immer wieder unter die Füße:

Zitat von Anwender 08/15:

Weil der Anwender möchte, dass auf der nächsten Seite der folgende Text erscheint, drückt er einfach so lange auf die Enter-Taste, bis er auf der nächsten Seite ist und schreibt weiter.
Alles ist super und der Anwender freut sich ... bis ... ja bis er dann auf einem anderen Drucker drucken möchte, oder das Seitenformat angepasst wird.

Schon fängt man an dieses Dokument zu heilen. Ein paar mal Enter hier und da gedrückt, hier und da ein paar mal Delete und jetzt passt es irgendwie.

Zitat von Anwender Pro:

Weil der Anwender möchte, dass auf der nächsten Seite der folgende Text erscheint, fügt er einen Seitenwechsel ein.

Wesentlich smarter und spart jede Menge Zeit und Ärger.

Man hat es selber in der Hand, ob man Heiler oder Programmierer sein möchte

[wolfgang_SV]

Was heißt eigentlich regelkonform programmieren ?

Ich kann dazu nur sagen, dass es im Windows-System und auch
im Delphi-System so viele Unregelmäßigkeiten und auch regelrechte
Fehler gibt, dass man gar nicht umhin kommt , unkonventionelle Wege zu
beschreiten, die vielleicht nicht regelkonform erscheinen, aber letztendlich zu Ergebnissen führen.

[wolfgang_SV]

Zitat:

weil es hierbei zu unerwünschten Nebeneffekten kommen kann, die gar nicht erwünscht sind.

So was nennt man z.B. eine tautologische Aussage..

[Sir Rufo]

Zitat von wolfgang_SV:

Was heißt eigentlich regelkonform programmieren ?

Ich kann dazu nur sagen, dass es im Windows-System und auch
im Delphi-System so viele Unregelmäßigkeiten und auch regelrechte
Fehler gibt, dass man gar nicht umhin kommt , unkonventionelle Wege zu
beschreiten, die vielleicht nicht regelkonform erscheinen, aber letztendlich zu Ergebnissen führen.

Viele (nicht alle) unkonventionelle Wege haben ihren Ursprung aber auch vom Nicht-Wissen oder festhalten an "das haben wir immer so gemacht".

In diesem speziellen Fall wird aber ein Designfehler mit unkonventionellen Mitteln geheilt.

Es soll jeder machen wie er möchte, mein Hinweis ist ja nur, dass man sich nicht wundert, wenn man irgendwann mehr Heiler als Programmierer ist.
Wer sich doch wundert ist trotzdem kein Wunder-Heiler

Zitat von wolfgang_SV:

Zitat:

weil es hierbei zu unerwünschten Nebeneffekten kommen kann, die gar nicht erwünscht sind.

So was nennt man z.B. eine tautologische Aussage..

und es fällt auf

[DeddyH]

[OT] Ich wünsche mir mehr Wunschdenken, damit die unerwünschten Nebeneffekte nicht erwünscht sind, sondern verwünscht werden, verwünscht nochmal [/OT]

[iphi]

Jetzt habe ich noch ein gleichartiges Problem:

Ich habe jetzt ZWEI Message-Boxen hintereinander im OnCreate Event Handler.
Die erste erscheint wie sie soll im Vordergrund. Die zweite verschwindet allerdings im Hintergrund.
Das Hauptfenster erscheit dann Dank Eurer Hilfe wieder im Vordergrund.

Wie kann ich bewerkstelligen, dass die zweite Messagebox auch im Vordergrund sichtbar wird?

Hier mein Testcode:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
With Application do
  begin
   NormalizeTopMosts;
   MessageBox('Hello', 'IMPORTANT NOTICE!', MB_OKCANCEL);
   RestoreTopMosts;
  end;
With Application do
  begin
   NormalizeTopMosts;
   MessageBox('2nd. try', '2nd. IMPORTANT NOTICE!', MB_OKCANCEL);
   RestoreTopMosts;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
windows.SetForegroundWindow(handle);
end;

end.

[s.h.a.r.k]

Hm, an der Stelle bin ich dann eher der Meinung, dass man die zwei Message-Boxen nacheinander einblenden sollte. Oder man nutzt eine andere Möglichkeit, dem Benutzer etwas mitzuteilen. Stell dir mal vor, du öffnest ein Programm und da poppt eine Box nach der anderen auf, die eine blinkt mehr als die andere -- unästhetisch.

[iphi]

Zitat:

Hm, an der Stelle bin ich dann eher der Meinung, dass man die zwei Message-Boxen nacheinander einblenden sollte.

Das tue ich ja auch. Erst geht die eine auf, und wenn die geschlossen wird, dann geht die andere auf, allerdings leider im Hintergrund. Und zu diesem Zeitpunkt gibts noch nicht mal eine Ikone auf der Taskbar, d.h. der Nutzer bekommt davon nichts mit.

Es muss doch irgendwie möglich sein, zwei MessageBoxes nacheinander so auf den Bildschirm zu bringen, dass man sie auch sieht!???

[samso]

Ich meine, dass es sich hier um ein spezielles Fehlerverhalten von Delphi 6 handelt. Bei Delphi 2007 ist das Verhalten wieder anders. Deshalb würde ich diesen workaround mit Vorsicht genießen.
Ich würde da mal folgenden Ansatz in die Diskussion werfen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  {$if RTLVersion<18}
  windows.SetForegroundWindow(Application.handle);
  {$ifend}
  Application.MessageBox('Hello', 'IMPORTANT NOTICE!', MB_OKCANCEL);
  Application.MessageBox('2nd. try', '2nd. IMPORTANT NOTICE!', MB_OKCANCEL);
end;