Form 2 aus Form 1 öffnen und nach schließen von Form 2 in Form 1 witermachen

[Stolle58]

Zitat von Walter Landwehr:

Was steht in procedure MyCallback;

Diese Callback Methode wird benötigt um in From1 aufzuräumen.
Das heißt von Dir erstellte Objekte freigeben, um Deadleaks zuvermeiden.

[himitsu]

Alles was dann in/mit der TTierhalterFrm gemacht werden soll,
steht steht auch innerhalb dieser Form.

Also in diesem Fall TierhalterFrm.BtnPatblattFarbe; (natürlich ohne die Variable), bzw. direkt der Inhalt dieser Prozedur.

Der Callback kann auch Parameter bekommen, wenn die TPatientenblattFrm der TTierhalterFrm irgendwas übergeben soll.
Klar, TTierhalterFrm könnte im Callback selbst auf die PatientenblattFrm zugreifen, aber natürlich nicht über die globale Variable, sondern sie bekommt die Instanz der TPatientenblattFrm als Parameter, somit ist es dann auch immer die richtige Instanz. (kennst du bestimmt, von den normalen NotifyEvents, wo der Button im OnClick sich selbst als Sender übergibt)


Die TPatientenblattFrm braucht dafür nichts von der TTierhalterFrm zu wissen.

Erstmal ist so der Code schön getrennt,
es gibt keine Kreuzreferenzen zwischen diesen Units,
und die TTierhalterFrm kann zukünftig auch von irgendwem Anderes aufgerufen werden (anderes Fenster oder sogar komplett anderes Programm) ... der gibt dann einfach seinen eigenen Callback rein (oder nil) und fertig.

[Walter Landwehr]

Danke, Danke. Gelöst habe es kapiert.