Warum geht das nicht? Speichern geht...
Speichern
Delphi-Quellcode:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
s: boolean;
begin
if form1.CheckBox1.Checked = true then
s:= true
else
s:= false;
ini.WriteBool('TAPI','Aktiviert',s);
ini.Free;
end;
Laden
Delphi-Quellcode:
var
a: boolean;
begin
ini.ReadBool('TAPI','Aktiviert',a);
ini.Free;
if a = true then
begin
form2.TapiLine1.DeviceName:=Combobox1.Text;
form1.CheckBox1.enabled:=true;
form1.CheckBox1.checked:=true;
form1.ComboBox1.Enabled:= false;
end
else
begin
form1.CheckBox1.Enabled:=falsE;
form1.CheckBox1.checked:=false;
form1.ComboBox1.Enabled:=true;
end;
Leider wird die Checkbox1 nicht aktiviert und auch nicht der Hacken gesetzt...