Variable in aufgerufene Form zurückgeben

[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;