Wie Hauptfenster in Vordergrund bringen?

[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;