[BUG?] MainMenu reagiert nichtmehr

[Matze]

:shock: Schonmal den http://www.delphipraxis.net/template.../icon_edit.gif Edit-Button gesehen? Nutze ihn bitte und pushe nicht die ganze Zeit. Lies dir hierfür auch einmal den Verhaltenskodex durch.

[chrisw]

Nimm mal Show statt showmodal, dann sollte das funktionieren ! :idea:

[Angel4585]

@Matze: Wenn ich nach 5 Minuten oder nach einer Stunde was schreiben will dann mach ich für gewöhnlich ein Edit. Wenn es allerdings 6 oder mehr Stunden sind dann *pushe* ich schonmal weil ich ja auch eine Antwort will. wer schaut sich schon die Themen von vor 2 Tagen an.

@chrisw: Show Hab ich schon probiert, funktioniert aber auch nicht.

[Sharky]

Zitat:

Zitat von Angel4585

...Wenn es allerdings 6 oder mehr Stunden sind dann *pushe* ich schonmal weil ich ja auch eine Antwort will. wer schaut sich schon die Themen von vor 2 Tagen an. ...

In der Delphi-PRAXiS möchten wir nicht das ein Beitrag in weniger als 24 Stunden "gepuscht" wird. Wenn keiner Antwortet muss man halt damit leben.

[chrisw]

In Deinem Beispiel instanziert Du ein Object vom Typ TForm (with TForm2.Create(Application)..)
dann machst Du das ModaResult mit ShowModal auf 0. Jetzt destroyest Du das Form (finally Free;).
Das kann doch nicht funktionieren, oder ?

Ersetz mal das Showmodal durch Show und kommentiere das Free aus (//), dann funktioniert das auch !

[Angel4585]

Christian.

Glaub mir einfach das ich das schon ausprobiert habe. Gerade eben und vor ein paar Tagen schon. Es geht einfach nicht. Sonst hätte sich der Thread hier schonlange erledigt.
Alternative zu ShowModal:

Delphi-Quellcode:

 with TtfWV.Create(Application) do
  begin
   try
    screen.Cursor:=crDefault;
    Show;
    while Visible do
     Application.ProcessMessages;
   finally
    Free;
    end;
  end

Und es funktioniert nicht.

[chrisw]

Da ist ja auch noch das Free drin !

[bigg]

Delphi-Quellcode:

with TtfWV.Create(Application) do
  begin
   try
    screen.Cursor:=crDefault;
    Show;
    while Visible do
     Application.ProcessMessages;
   finally
    Free;
    end;
end

So ein gewurschtel hab ich ja noch nie gesehen :shock:
Erklär uns doch bitte, was du mit deinem Code bezwecken willst?

[Angel4585]

Leutz!

Delphi-Quellcode:

 with TtfWV.Create(Application) do //Formular wird erzeugt
  begin 
   try 
    Show;       //Formular wird angezeigt
    while Visible do //Warten bis Formular nichtmehr angezeigt wird
     Application.ProcessMessages; 
   finally 
    Free; //Formular freigeben
    end; 
  end;

Jemand was dagegen? :mrgreen:

EDIT: Selbst wenn das free noch drin ist. Es hat mit ShowModal und Show nichts zu tun. Ich bin da schon alles durchgegangen.

EDIT2: Hat Jemand von euch das eigentlich mal ausprobiert?

[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

:mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen:

Es gibt eben doch noch Freaks :coder: