ShowModal-Fesnter -> Programm minimieren

[Urba]

Hallo,

Ich mal wieder. Ich habe ein Fenster was zur Laufzeit erstellt und per ShowModal angezeigt wird. Nun fange ich das MinimierenEvent ab (also wenn der User auf minimieren klick) und nun soll das ganze Programm minimiert werden. Ich dachte ich kann das über Application.Minimize machen, allerdings wird dann links unten über dem Start-Menü-Button ein kleines Fenster angezeigt mit dem man auch das einzelne Fenster (s.o.) wiederherstellen kann ohne die Anwendung dahinter zu haben. Genau das will ich aber nicht. Ich will dass das GANZE programm minimiert und auch wieder das GANZE programm wieder angezeigt wird.

Wie könnte ich das machen ?

Gruß
Urba

[marabu]

Hallo Urba,

bei mir funktioniert das wie gewünscht:

Delphi-Quellcode:

type
  TModalForm = class(TForm)
  private
    procedure WMSysCommand(var Message: TMessage);
      message WM_SYSCOMMAND;
  end;

var
  ModalForm: TModalForm;

implementation

{$R *.dfm}

procedure TModalForm.WMSysCommand(var Message: TMessage);
begin
  if Message.wParam = SC_MINIMIZE then begin
    Message.Result := 0;
    Application.Minimize;
  end else
    inherited;
end;

Grüße vom marabu

[monta]

Zitat von Urba:

Nun fange ich das MinimierenEvent ab (also wenn der User auf minimieren klick) und nun soll das ganze Programm minimiert werden.

Warum fängst du das Minimieren-Event bei einem Showmodal-Fanster ab? Wenn man dieses minimiert, wird doch automatisch die gesamte Anwendung minimiert oder irre ich mich da

Gruß monta

[Urba]

Super klasse ... danke Marabu ! Klappt super

[HendrikM]

sorry Jungs,
bei mir funktioniert das nicht.
Weder wird die Form noch die Anwendung minimiert.
Woran könnte das liegen?
Ich hab D5E und arbeite unter XP.
Form wird mit Showmodal geöffnet.
Hendrik

[marabu]

Hallo Hendrik,

hier die Demo, mit der es funktioniert. Wenn du nach dem Testen noch Probleme hast, dann musst du mal etwas Code zeigen.

Grüße vom marabu

[HendrikM]

Hallo und danke für die DEMO!
Funktioniert aber trotzdem nicht!
Ich meine die Demo!
Irgendeine Einstellung bei XP???
Hendrik

[marabu]

Hallo Hendrik,

tut mir leid für dich, aber es scheint an der abweichenden Implementierung von Application.Minimize() in D5 zu liegen. Auf jeden Fall nicht an XP.

marabu

[HendrikM]

Hallo, in der Demo wird nicht mal das modale Fenster minimiert.
Hendrik

[marabu]

Das liegt daran, dass ich es für D7 verhindere, damit es nicht am unteren Bildschirmrand rumlungert. Wenn du in der Demo statt ShowModal() Show() verwendest, dann funktioniert es auch bei dir. D5 VCL scheint mit modalen Fenstern anders umzugehen als D7. Wie schon gesagt - es liegt nicht an XP, denn ich habe mal D5 unter XP installiert und kann das nachvollziehen.

marabu