Form Automatsch öffnen, wenn ein User es möchte!

[thomasdrewermann]

Versuch mal TRY-EXCEPT-FINALLY wegzulassen....
Du hast die INI-DATEI global deklariert?
Deklarier sie doch einfach mal local...
Genauso mit

Code:

Kundendaten: TKundendaten;

versuch damit auch mal global.

Code:

public
    { Public-Deklarationen }
  procedure save_inifile; 
  procedure load_inifile; 
end;

var
  Kundendaten: TKundendaten;

Code:

procedure TKundendaten.save_inifile; 
var 
  ini:tinifile;
begin 
  Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini'  ); 
  Ini.WriteBool('Sektion1','check_box',ExtraForm.CheckBox1.Checked); 
  Ini.Free; 
end; 

procedure TKundendaten.load_inifile; 
var 
  ini:tinifle;
begin 
  Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'settings.ini'  ); 
  ExtraForm.CheckBox1.Checked:=ini.ReadBool('Sektion1','check_box', true) 
  Ini.Free; 
end; 

procedure TKundendaten.FormShow(Sender: TObject); 
begin 
  load_inifile; 
  if ExtraForm.CheckBox1.Checked Then Geburtsdatum.Click; 
end;

Code:

procedure TExtraForm.CheckBox1Click(Sender: TObject); 
begin 
  Kundendaten.save_inifile; 
end;