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:
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:
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.
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!