Modales Fenster nach Minimieren in Taskleiste nicht mehr durch Klicken aktivierbar

[Peter Müller]

Hallo zusammen,

wenn ich ein modales Fenster im Programm anzeige und das Programm wird minimiert oder von einem anderen Programm überdeckt, dann kann ich es durch Anklicken in der Taskleiste nicht mehr anzeigen. Beim Klicken passiert einfach überhaupt nichts. Verwende Delphi XE2, das Projekt wurde von Delphi 2(!) übernommen. Hat mir bitte jemand eine Idee?

Folgenden Lösungsvorschlag aus dem Internet habe ich bereits ausprobiert, dann muss man allerdings bis zu 3 Mal in der Taskleiste klicken, bis das Fenster wieder da ist:

Delphi-Quellcode:

const
  WM_REENABLE = WM_USER + $100;

  procedure WMEnable(var Message: TWMEnable); Message WM_ENABLE;
  procedure WMReenable(var Message: TMessage); Message WM_REENABLE;

procedure TForm1.WMEnable(var Message: TWMEnable);
begin
  if not Message.Enabled then PostMessage(Self.Handle, WM_REENABLE, 1, 0);
end;

procedure TForm1.WMReenable(var Message: TMessage);
begin
  EnableWindow(Self.Handle, True);
end;

Vielen Dank

Peter