Kommunikation zwischen Forms problem

**bahu**

Hallo,

ich versuche gerade zwei Eingabewerte über eine zweite Form, die per ShowModal von der Main Form aufgerufen wird einzulesen.
Leider mangelt es bei mir an Wissen oder Kreativität das ganze sauber umzusetzen.

Ich zeige mal auf was ich bereits habe und wo es nicht weitergeht:

Main Form:

markieren

Delphi-Quellcode:

			procedure TEinstellungen.CreateSettings;

var

  SetupDlg : TFormSetup;

  Setupdata : TSettingsData;

begin

  m_Inifile := TIniFile.Create(SETTINGS);

  SetupDlg := TFormSetup.Create(FormSetup, Setupdata);

  SetupDlg.ShowModal;

Hier sieht man einmal meine zweite Form TFormSetup und ein Record TSettingsdata, das die Eingabewerte enthält.

Den TCustomForms Constructor habe ich überladen:

markieren

Delphi-Quellcode:

			Constructor TFormSetup.CreateWith(AOwner: TComponent; data : TSettingsdata);

begin

  m_SettingsData := data;

  inherited Create(AOwner);

end;

Ich habe später wenn das Hauptproblem gelöst wurde vor, data per Pointer zu übermitteln.
In der TFormSetup gibt es die procedure Setup, die ausgelöst wird, sobald der Nutzer alle Daten eingegeben hat.

markieren

Delphi-Quellcode:

			procedure TFormSetup.Setup;

begin

  // Verschiedene Prüfungen, irrelevantes Zeug.

  MessageBox(0, 'Saved!', 'Success', 64);

  // WAS HIER ?

  // RELEASE; ?

end;

Nun soll die Form sich selbst releasen, so dass der Mainthread weiter macht (also das Hauptprogramm bei Showmodal weiter ausgeführt wird).

Ich weiß leider nicht wie ich das am besten mache.

Danke im voraus!

Kommunikation zwischen Forms problem

Kommunikation zwischen Forms problem

Forumregeln