OnCreate wird nur einmal nach Programmstart ausgeführt

[Svenkan]

Wie bekomm ich denn nu folgende Anweisung richtig hin?:

Delphi-Quellcode:

 with TGrundeinstellungen.Create(Self) do 
  try 
    ShowModal;
  
  if Grundeinstellungen.ModalResult = mrOK then
    Datenneuladen1.OnClick(Datenneuladen1);

  finally 
    Free; 
  end;

Er gibt mir bei der if-Anweisung einen Zugriffsverletzung aus. Also direkt nachm Close der Form.

[SirThornberry]

ist auch klar, du rufst zwar

Delphi-Quellcode:

TGrundeinstellungen.Create(Self)

auf, weißt dies aber nirgendwo der Variablen "Grundeinstellungen" zu. Um es dir zu verdeutlichen:

Delphi-Quellcode:

with TGrundeinstellungen.Create(Self) do 
  try 
    ShowModal; 
  
  if EtwasNichtErzeugtesBzwEineVariableDerNichtsZugewiesenWurde.ModalResult = mrOk then
    Datenneuladen1.OnClick(Datenneuladen1); 

  finally 
    Free; 
  end;

wenn dann

Delphi-Quellcode:

with TGrundeinstellungen.Create(Self) do 
  try 
    ShowModal; 
  
  if ModalResult = mrOK then 
    Datenneuladen1.OnClick(Datenneuladen1); 

  finally 
    Free; 
  end;

oder

Delphi-Quellcode:

with TGrundeinstellungen.Create(Self) do 
  try 
    if ShowModal = mrOk then
      Datenneuladen1.OnClick(Datenneuladen1); 

  finally 
    Free; 
  end;

oder

Delphi-Quellcode:

var
  lFormInstance: TGrundeinstellungen;
begin
  lFormInstance := TGrundeinstellungen.Create(Self); 
  try 
    lFormInstance.ShowModal; 
  
    if lFormInstance.ModalResult = mrOK then 
      Datenneuladen1.OnClick(Datenneuladen1);  

  finally 
    lFormInstance.Free; 
  end;

[Svenkan]

Argh!
Nicht denken, sondern nachdenken. :duck:
Dankeschön. Funktioniert jetzt natürlich perfekt. :)