OnCreate aus weiterer Form heraus benutzen

[Svenkan]

Ist aber nicht ganz aufgeräumt. ^^

Da mein Öffnungs-Code etwas abweicht:

Delphi-Quellcode:

procedure THauptform.Grundeinstellungen1Click(Sender: TObject);
begin
 ShowGeneralSettings;
   if Grundeinstellungen.ModalResult = mrOK then
    Datenneuladen1.OnClick(Datenneuladen1);
end;

Und hier OK-Button:

Delphi-Quellcode:

procedure TGrundeinstellungen.BitBtn2Click(Sender: TObject);
var   Ini: TIniFile;
      sj: String;
begin
  if CbSchuljahr.ItemIndex=0 then sj:='06_07.dbf'
  else if CbSchuljahr.ItemIndex=1 then sj:='07_08.dbf'
  else if CbSchuljahr.ItemIndex=2 then sj:='08_09.dbf';

  try
   Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'conf.ini');
   Ini.WriteString('Grundeinstellungen','sVP-Pfad',EdPath.text);
   Ini.WriteString('Grundeinstellungen','sVP-Schuljahr',sj);
   Ini.WriteBool('Grundeinstellungen','HTML-Plan übertragen',CBHTML.Checked);
   if RB1.Checked=TRUE then Ini.WriteInteger('Grundeinstellungen','Zeitraum HTML-Übertragung',900)
   else if RB2.Checked=TRUE then Ini.WriteInteger('Grundeinstellungen','Zeitraum HTML-Übertragung',3600)
   else if RB3.Checked=TRUE then Ini.WriteInteger('Grundeinstellungen','Zeitraum HTML-Übertragung',(StrToInt(Edit1.Text)*60));
   Ini.WriteBool('Grundeinstellungen','Tageskopie erstellen',CBCopy.Checked);
   Ini.WriteBool('Grundeinstellungen','Lehrerplan hochladen',CBLehrerplan.Checked);
   if RBSortOrder1.Checked=TRUE then Ini.WriteString('Sortierung','HTML-Plan','S')
   else Ini.WriteString('Sortierung','HTML-Plan','KLASSEN');
   Ini.WriteBool('Grundeinstellungen','höher als Build 3',RBV4.Checked);
   Ini.WriteBool('Grundeinstellungen','Klassenbänder',RBAll.Checked);
  finally
    Ini.Free;
  end;

  ModalResult := mrOK;
 //ShowMessage('Bitte starten Sie das Programm neu, damit die Änderungen wirksam werden!');
end;

[Svenkan]

Keiner 'ne Idee?

[Muetze1]

Zitat:

Zitat von Svenkan

Da mein Öffnungs-Code etwas abweicht:

Delphi-Quellcode:

procedure THauptform.Grundeinstellungen1Click(Sender: TObject);
begin
 ShowGeneralSettings;
   if Grundeinstellungen.ModalResult = mrOK then
    Datenneuladen1.OnClick(Datenneuladen1);
end;

Warum weicht er denn ab? Und warum hast du ihn abweichend gemacht? So rufst du schliesslich den Dialog nicht modal auf. Also: Schmeiss deine Show und Hide/Close Aufrufe bei Grundeinstellungen raus und rufe in der Routine wie oben geschrieben ShowModal auf und vergleiche das auf mrOk.

[Svenkan]

/edit: OK, nu funktionierts!
Danke. ;)