Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.302 Beiträge
 
Delphi 12 Athens
 
#7

AW: Variable in aufgerufene Form zurückgeben

  Alt 7. Jan 2019, 06:18
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;

Geändert von haentschman ( 7. Jan 2019 um 08:19 Uhr)
  Mit Zitat antworten Zitat