Haupt- und Nebenfenster-Problem

[PeterPanino]

Ich habe zusätzlich zum Hauptfenster in meinem Programm ein Fenster, das erst zur Laufzeit erzeugt wird:

Delphi-Quellcode:

Application.CreateForm(TMyForm, MyForm);
try
  MyForm.WindowState := wsMaximized;
  MyForm.ShowModal; 
  MyForm.BringToFront; //hilft auch nichts
finally
  MyForm.Free;
end;

Soweit läuft alles perfekt, nur ein kleiner Schönheitsfehler tritt auf: Wenn das Fenster MyForm geöffnet ist, und ich dann wo anders hin klicke (z.B. auf die Taskleiste), und dann wieder zurück auf MyForm klicke, dann wird unerwünschterweise das Hauptfenster meines Programms angezeigt (obwohl ich auf MyForm geklickt habe). Offensichtlich ist beim Verlassen von MyForm der Fokus wieder auf das Hauptfenster übergegangen, sodass beim nochmaligen Klicken auf MyForm dann das Hauptfenster aktiviert wurde. Wie kann man das verhindern?

[mkinzler]

Soll das 2. Fenster bis zum Schließen oben sein? (.ShowModal)

[PeterPanino]

Zitat von mkinzler:

Soll das 2. Fenster bis zum Schließen oben sein? (.ShowModal)

Ja, natürlich.

[Whookie]

Also bei mir geht das problemlos ...

Dein MyForm.BringToFront ist allerdings unnötig, weil ShowModal erst verlassen wird, wenn du das Fenster schließt!!

[PeterPanino]

Zitat von Whookie:

Dein MyForm.BringToFront ist allerdings unnötig, weil ShowModal erst verlassen wird, wenn du das Fenster schließt!!

Ist mir klar, war ein Lapsus.
Aber, wie gesagt, wenn ich dann woanders klicke und dann auf das Nebenfenster klicke, wird das Hauptfenster angezeigt!

[semo]

Delphi-Quellcode:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.CreateForm(TForm2, Form2);
  try
    Form2.WindowState := wsMaximized;
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;

end.

so wie du das programmiert hats, ist es das gewünschte verhalten.
grund hierfür ist das Showmodal, welche das Form2 als oberstes Fenster deiner Applikation anzeigt.
Es werden also keine Eingaben in dein Form1 zugelassen.
Da es aber das Hauptformular ist, wird es beim Reaktivieren deiner Applikation mit angezeigt.

Was hast du denn genau vor?
Für mich klingt das irgendwie als wenn du das zweite Fenster aufmachen möchtest um das erste Fenster zu verbergen?

[PeterPanino]

Zitat von computer-glossar.de:

Da es aber das Hauptformular ist, wird es beim Reaktivieren deiner Applikation mit angezeigt.

Ja , genau das ist ja das Problem: Da nämlich beide Fenster - Haupt- und Nebenfenster - maximiert sind, wird beim Reaktivieren dann nur das Hauptfenster angezeigt. Stattdessen sollte aber das modale Nebenfenster angezeigt werden!

Ich habe jetzt das Problem dadurch umgangen, dass ich jetzt vor dem Aufruf von Form2.ShowModal Form1.WindowState := wsMinimized aufrufe, und nach dem Schließen des Nebenfensters wieder Form1.WindowState := wsMaximized , also so:

Delphi-Quellcode:

procedure TForm1.NebenfensterOeffnen;
begin
  Application.CreateForm(TForm2, Form2);
  try
    Form2.WindowState := wsMaximized;
    Form2.BringToFront;
    Form1.WindowState := wsMinimized;
    Form2.ShowModal;
  finally
    Form2.Free;
    Form1.WindowState := wsMaximized;
  end;
end;

Wer weiß eine bessere Lösung?