[Gelöst] ShowModal bringt Rechner zum hängen

[MacWomble]

Ich verwende Linux Mint 19.1 mit aktuellstem Lazarus und FPC.

Nun habe ich folgendes Problem:
Hinweis vorab: alle forms werden dynamisch erzeugt und nicht beim Programmstart erzeugt!

Modale Form1 ruft Form3 modal auf - das funtioniert

Modale Form1 ruft Form2 modal auf - soweit so gut...
dann ruft Form2 Form3 modal auf - System hängt, keine Eingaben mehr möglich, kein Programmabbruch möglich (auch nich mit kill Process).

Woran könnte das liegen? Kann man ShowModal eventuell nicht mehr als zwei mal hintereinander aufrufen?

[Timm Thaler]

Was passiert denn mit Form3 vor dem zweiten Aufruf? Wird die geschlossen, wird die zerstört, wird die unsichtbar gemacht?

[MacWomble]

Die Form 3 wird neu erzeugt. Das Problem tritt auch auf, wenn ich den ersten Schritt weg lasse.

Das Problem ist, dass ich mir dem Debugger nicht an die Stelle komme, wo es kracht.
In der Form3 gibt es eine Funktion BearbeiteForm3.

In dieser wird die Form3 createt und mit showmodal angezeigt sowie beim schließen wieder zerstört.
Im ersten Fall geht das wunderbar, im zweiten Fall (mit dem selben Aufruf) geht es nicht.

Der einzige Unterschied ist, dass eine weitere Form 'dazwischen' liegt.

Ich komme beim tracen bis zu Form3.formshow. Danach geht das Programm in customform.inc,

Code: Alles auswählen

procedure TCustomForm.CMShowingChanged(var Message: TLMessage);
begin
  try
    if Showing then
      DoShow
    else
      DoHide;
  except
    if not HandleShowHideException then
      raise;
  end;
  inherited CMShowingChanged(Message);
end;   

Assembler (erscheint nach Abarbeiten der Zeile Inherited ...:
000000000043208A eb49 jmp 0x4320d5 <SYSTEM$_$TOBJECT_$__$$_DISPATCH$formal+245>

wenn ich dann weiter durch das Pogramm steppe:

Code: Alles auswählen

 
procedure TCustomForm.UpdateShowing;
begin
  if csLoading in ComponentState then exit;
  {$IF defined(CHECK_POSITION) or defined(VerboseFormUpdateShowing) or defined(VerboseShowing)}
  DebugLn(['[TCustomForm.UpdateShowing] START ',DbgSName(Self),' Pos=',Left,',',Top,' Visible=',Visible,' Showing=',Showing]);
  {$ENDIF}
  // If the form is about to show, calculate its metrics
  if Visible and (not (csDestroying in ComponentState)) then
  begin
    if not (csDesigning in ComponentState) then
      MoveToDefaultPosition;
    if (fsFirstShow in FFormState) then
    begin
      Exclude(FFormState, fsFirstShow);
      DoFirstShow;
    end;
  end;
  {$IF defined(CHECK_POSITION) or defined(VerboseFormUpdateShowing) or defined(VerboseShowing)}
  DebugLn(['[TCustomForm.UpdateShowing] calling inherited  ',dbgsname(Self),' Pos=',Left,',',Top]);
  {$ENDIF}
  inherited UpdateShowing;
  {$IF defined(CHECK_POSITION) or defined(VerboseFormUpdateShowing) or defined(VerboseShowing)}
  DebugLn(['[TCustomForm.UpdateShowing] activating  ',dbgsname(Self),' Pos=',Left,',',Top]);
  {$ENDIF}
  // activate focus if visible
  if Showing and (not (csDestroying in ComponentState)) then
  begin
    if (not Assigned(ActiveControl)) and (not (csDesigning in ComponentState)) and (Parent=nil) then
    begin
      // automatically choose a control to focus
      {$IFDEF VerboseFocus}
      DebugLn('TCustomForm.CreateWnd ',DbgSName(Self),' Set ActiveControl := ',DbgSName(FindDefaultForActiveControl));
      {$ENDIF}
      ActiveControl := FindDefaultForActiveControl;
    end;
    if (Parent=nil) and Assigned(ActiveControl) and
       ActiveControl.HandleAllocated and ActiveControl.CanFocus and
       ([csLoading, csDestroying, csDesigning] * ComponentState = []) then
    begin
      {$IFDEF VerboseFocus}
      DebugLn('TCustomForm.CreateWnd A ',DbgSName(Self),' FActiveControl=',DbgSName(FActiveControl));
      {$ENDIF}
      LCLIntf.SetFocus(ActiveControl.Handle);      //    <==== Nach dieser Zeile hängt alles
    end;
    UpdateShowInTaskBar;
  end;
end;             

[wp_xyz]

In der Form3 gibt es eine Funktion BearbeiteForm3.
In dieser wird die Form3 createt und mit showmodal angezeigt sowie beim schließen wieder zerstört.

Das kann eigentlich nicht funktionieren (es sei denn, BearbeiteForm3 ist eine Klassen-Funktion): Wie kann man die Methode eines Formulars aufrufen, das es noch gar nicht gibt?

Sieh dir das beigefügte Projekt an, das demonstriert, dass der kaskadierte Aufruf von ShowModal keinen Absturz bewirkt.

[MacWomble]

Falsch ausgedrückt: In der Unit der Form3 (bzw. TFrmAdresse)....

Code: Alles auswählen

...
 
function BearbeiteAdresse(IDAdresse: integer; Neu: boolean): boolean;
var
  Suchtext: string;
  LastRec: integer;
  F: TfrmAdresse;
begin
  DoSave := False;
  with dtmAdressen do
  begin
 
    F := TfrmAdresse.Create(nil);
 
    F.memAdressNotiz.Text := qryAdresse.FieldByName('adr_notiz').AsString;
    try
      F.ShowModal;
      if DoSave then
      begin
        if qryAdresse.State = dsEdit then
        begin
          qryAdresse.FieldByName('adr_notiz').AsString := F.memAdressNotiz.Text;
          qryAdresse.ApplyUpdates;
        end;
        qryAdressListe.Refresh;
        qryAdressListe.Locate('idadresse', qryAdresse.FieldByName('idadresse').AsInteger, []);
        Result := True;
      end
      else
      begin
        qryAdresse.CancelUpdates;
        Result := False;
      end;
    finally
      FreeAndNil(F);
    end;
  end;
end;
 
{ TfrmAdresse }
 
procedure TfrmAdresse.btnSpeichernClick(Sender: TObject);
begin
  DoSave := True;
  Close;
end;
          ....                                  

[MacWomble]

OK, der Fehler muss eine andere Ursache haben. Ich habe das gleiche Konstrukt zwei mal im Projekt.
Einmal für Artikelverwaltung , dort funktioniert es, ein mal für Adressverwaltung, wo es zum Problem kommt.
Außer den unterschiedlichen Formularfeldern und der angebundenen Datenquellen gibt es keinen offensichtlichen Unterschied.
Es kann m.E. nicht an den Feldern oder Daten liegen, das habe ich durch den Austausch der Form3 mehrfach versucht.
Auch funktioniert die form3 ja überall, nur nicht in diesem einen speziellen Fall.
Die Forms haben auch unterschiedliche Namen, so dass auch eine Überschneidung hier ausgeschlossen werden kann.
Ich meine mich zu erinnern, dass das ganze schon mal funktioniert hatte, bin mir aber nicht ganz sicher.

Wie könnte ich hier den Fehler weiter eingrenzen? Der Debugger zeigt mir nichts wirklich sinnvolles an.

[Lemmy]

Servus,

sicher, dass das Form3 nicht HINTER Form2 liegt? D.h. das programm funktioniert, du siehst es aber nicht

Grüße

[MacWomble]

Ja, habe ich getestet. Es hängt ja auch nicht nur die Anwendung, sondern der Desktop komplett. Die Form wird definitv nicht gezeichnet.
Es liegt aber auch ziemlich sicher nicht an der Form ... bin ratlos.

[Lemmy]

auch schon mal den Produktivcode aus der Form entfernt (auskommentiert)? Speziell in den Events.....

[MacWomble]

Ja, das habe ich auch bereits versucht.
Wie schon erwähnt, glaube ich nicht an einen Fehler in der Form. Diese funktioniert an anderen Stellen - und wenn ich sie durch andere funktionierende Forms ersetze, geht es auch nicht.
Es kann aber auch nicht am Aufruf liegen da dieser an allen Stellen gleich ist. Irgendetwas dummes muss sich hier im Hintergrund ereignen, aber ich komme nicht an die Infos. Alles was ich erkennen kann ist oben gepostet.
Irgendwie passiert es wohl genau in dem Moment, in welchem die Form tatsächlich gezeichnet werden soll ...

Ich habe mich allerdings getäuscht, was die Tiefe angeht. Dies ist der einzige Fall, wo die Form über drei Forms geht:

Funktioniert nicht (die letzte - 4. - Form wird nicht angezeigt, der Prozess hängt sich auf und kann auch mit kill nicht beendet werden!:

frmAktenListe - frmAkteErfassen - FrmAdressAuswahlListe - FrmAdresseErfassen
oder
frmAuftragsListe - frmAuftragErfassen - FrmAdressAuswahlListe - FrmAdresseErfassen
oder
frmAuftragsListe - frmAuftragErfassen - FrmAdressAuswahlListe - FrmKontaktErfassen
oder (Sinnfrei)
frmAktenListe - frmAkteErfassen - FrmAdressAuswahlListe - FrmAdresseArten

Funktioniert;

FrmAdressListe - FrmAdresseErfassen
oder
FrmAdressListe - FrmAdresseErfassen - FrmAdressArten
jedoch auch (Sinnfrei):
FrmAdressListe - FrmAdresseErfassen - FrmKontaktdaten - FrmAdresseArten (hier geht auch die 4. Form!)

- Die FrmAdressListe wie auch die AdressAuswahlListe sind im Prinzip identisch ...
- Alle Frm funktionieren für sich problemlos ...
- Es scheint nur beim Aufruf aus FrmAdressAuswahlListe zu diesem Phänomen zu kommen ...

Die FrmAdressAuswahlListe enthält im Prinzip nur zwei dbGrid und ein paar Buttons, welche Actions aus einer Actionlist aufrufen (z.B. eben BearbeiteAdresse).
Eigentlich kann man hier nicht wirklich etwas falsch machen.

[wp_xyz]

Am Code im Post vom 6.1. 14:24 fällt mir auf, dass die offenbar eine Änderung in einen TDataset schreiben willst, aber nirgendwo sehe ich ein .Post. Im folgenden Code-Ausschnitt noch ein paar weitere Kommentare, die aber genauso gut Unsinn sein können, weil ich deinen restlichen Code nicht kenne, insbesondere nicht, was in TfrmAdresse passiert.

Code: Alles auswählen

function BearbeiteAdresse(IDAdresse: integer; Neu: boolean): boolean;
var
  Suchtext: string;
  LastRec: integer;
  F: TfrmAdresse;
begin
  DoSave := False;
  with dtmAdressen do
  begin
 
    F := TfrmAdresse.Create(nil);
 
    F.memAdressNotiz.Text := qryAdresse.FieldByName('adr_notiz').AsString;  // Das sollte eigentlich hinter dem "try" stehen. Was, wenn F nicht erzeugt werden konnte, also nil ist?
    try
      F.ShowModal;
      if DoSave then
      begin
        if qryAdresse.State = dsEdit then     // was wenn .State = dsInsert? Besser: "if qryAdresse.State in dsEditStates"
        begin
          qryAdresse.FieldByName('adr_notiz').AsString := F.memAdressNotiz.Text;
          qryAdresse.Post;              // <---- NEU
          qryAdresse.ApplyUpdates;
        end;
        qryAdressListe.Refresh;
        qryAdressListe.Locate('idadresse', qryAdresse.FieldByName('idadresse').AsInteger, []);
        Result := True;
      end
      else
      begin
        qryAdresse.CancelUpdates;   // wieso das denn? Du hast doch nichts geschrieben. Evtl. fehlt noch ein qryAdresse.Cancel.
        Result := False;
      end;
    finally
      FreeAndNil(F);
    end;
  end;
end;

[MacWomble]

Du hast recht, da habe ich wirklich Unstimmigkeiten drin - Danke für die Hinweise! Ich werde versuchen, mich zu bessern
P.S: dsEditState muss dsEditModes lauten.

Aber mit meinem eigentlichen Problem hat dies nichts zu tun.

[af0815]

Ganz dumme Fragen:
a) Tritt das auch ohne Debugger auf ?
b) Wenn ja, steht was auf der Konsole, wenn das Prg von der Konsole aus gestartet wird ?

Andreas

[MacWomble]

Es gibt keine dummen Fragen ...

1. Der Fehler tritt auch im Release auf
2. Keine Ausgabe in der Console (weder in Debug noch Release)

Zu 2.: Wie oben geschrieben bleibt einfach alles stehen:

Der Button, welcher die Form startet bleibt gedrückt! Alles wird abgearbeitet bis zum Ausführen von "LCLIntf.SetFocus(ActiveControl.Handle); " auf der neuen (noch nicht sichtbaren) Form, dann ist alles vorbei.

[Lemmy]

kannst Du das Form mal in eine leere Anwendung aufnehmen und von dort aus aufrufen?