[BUG?] MainMenu reagiert nichtmehr

[Angel4585]

Problem "behoben" bzw. vielmehr umgangen:

Im Entwicklerforum hatte ich Erfolg und bekam folgenden Lösungsvorschlag:

Delphi-Quellcode:

if (GetCapture <> 0) then
  begin
  EndMenu;
  Application.HandleMessage;
  ReleaseCapture;
  Application.HandleMessage;
  end
 else
  begin
  with TtfWV.Create(Application) do
   begin
   Self.Suspend;
   try
    screen.Cursor:=crDefault;
    ShowModal;
   finally
    Free;
    end;
   Self.Resume;
   end;

Das ganze eben in den Thread und es funzt perfekt



Es gibt eben doch noch Freaks