Variable in aufgerufene Form zurückgeben

[Walter Landwehr]

Hallo,

so ein bisschen bin ich am verzweifeln.

ich habe eine form (PatientenblattFrm) aus dieser rufe ich eine andere Form (frmDatum) auf.

Delphi-Quellcode:

    frmDatum := TfrmDatum.Create(nil);
    frmDatum.ShowModal;

In der zweiten Form ist eine TDateNavigator um ein Datum auszuwählen. Diese gebe ich dann zurück mit
PatientenblattFrm.NewDate := cxDateNavigator1.Date; ----> Hier kommt eine Zugriffsverletzung weil das Form PatientenblattFrm nil ist. Warum ist die Nil?

Die Variable NewDate habe ich in der PatientenblattFrm unter Public declariert. Die Forms sind unter implementation in der uses Klausel eingebunden.

Was mache ich falsch?

[juergen]

Hallo,

wie genau lautet die Zugriffsverletzung?
Ich sehe nicht warum die Form PatientenblattFrm nil sein soll.
Wenn du deine Form frmDatum nicht zerstörst könntest du auch direkt in der Form PatientenblattFrm das frmDatum.cxDateNavigator1.Date anwenden, also ohne diese globale Variable.
Ist PatientenblattFrm deine Hauptform?

Edit
Ich würde die Form frmDatum mal probieren so aufrufen:

Zitat:

if not Assigned(frmDatum) then begin
frmDatum := frmDatum.Create(nil);
end;
frmDatum.ShowModal;

[Walter Landwehr]

PatientenblattFrm ist nicht das Hauptformular. Das PatientenblattFrm wird vom PatientFrm (ist auch nicht das Hauptformular) so aufgerufen:
TPatientenblattFrm.Create(Application.MainForm, Patient1Qry.FieldByName('PatientNr').AsInteger, 0); Das TPatientenblattFrm.ist hier bereits nil. Keine Ahnung warum.

Im frmDatum muss ich aber ein Datum auswählen und zurückgeben.

[Walter Landwehr]

Hallo Jürgen habe ich schon gemacht, leider ohne Erfolg. Ich weiß nicht warum mein TPatientenblattFrm nil ist.

[Heuman]

Zitat von Walter Landwehr:

Hallo,

so ein bisschen bin ich am verzweifeln.

ich habe eine form (PatientenblattFrm) aus dieser rufe ich eine andere Form (frmDatum) auf.

Delphi-Quellcode:

    frmDatum := TfrmDatum.Create(nil);
    frmDatum.ShowModal;

In der zweiten Form ist eine TDateNavigator um ein Datum auszuwählen. Diese gebe ich dann zurück mit
PatientenblattFrm.NewDate := cxDateNavigator1.Date; ----> Hier kommt eine Zugriffsverletzung weil das Form PatientenblattFrm nil ist. Warum ist die Nil?

Die Variable NewDate habe ich in der PatientenblattFrm unter Public declariert. Die Forms sind unter implementation in der uses Klausel eingebunden.

Was mache ich falsch?

Hallo,
müsste es nicht

NewDate := cxDateNavigator1.Date;

lauten?

Gruß

[Walter Landwehr]

Danke an alle, habe es jetzt so gelöst.

Delphi-Quellcode:

frmDatum := TfrmDatum.Create(nil);
    frmDatum.ShowModal;
    NewDate := frmDatum.cxDateNavigator1.Date;

[haentschman]

Moin...

Zitat:

PatientenblattFrm.NewDate := cxDateNavigator1.Date;

imho ist das unglücklich. Normalerweise kennt nur der Aufrufer das aufzurufende Form und nicht die aufrufende Form den Aufrufer. Wenn du deine Datumsform mehrfach verwendest, dann hättest du haufenweise Referenzen in den Uses und zirkuläre noch dazu.

Delphi-Quellcode:

frmDatum := TfrmDatum.Create(nil);
frmDatum.ShowModal;
NewDate := frmDatum.cxDateNavigator1.Date;

...das ist genau das was ich meinte. frmDatum ist es wurscht wohin das Ergebnis geht.

Nachtrag (besser):

Delphi-Quellcode:

frmDatum := TfrmDatum.Create(nil);
try
  frmDatum.ShowModal;
  NewDate := frmDatum.cxDateNavigator1.Date;
finally
  frmDatum.Free;
end;

[Luckie]

http://michael-puff.de/Programmierun...tauschen.shtml

[TigerLilly]

TPatientenblattFrm klingt nach dem Typ und nicht nach einer Variablen, die Nil sein könnte.

Wahrscheinlich hast du die globale Variable, Delphi anlegt, im Code gelassen, nutzt sie aber nicht, um die Form zu erzeugen.

[freimatz]

Zitat von Walter Landwehr:

ich habe eine form (PatientenblattFrm) aus dieser rufe ich eine andere Form (frmDatum) auf.

Ich sehe jetzt warum PatientenblattFrm NICHT nil sein sollte. Wo setzt du die Variable? (Falls das eine ist, sehe keine Code dazu.)
Auch sehe ich nicht, dass Du in PatientenblattFrm eine andere Forma aufrufst. Ich vermute eher, dass du eine TPatientenblattFrm hast