Sæt checkbox til checked
procedure TForm1.FormCreate(Sender: TObject);var
myINI : TINIFile;
res : string;
inivalue : string;
begin
myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'Settings.ini');
res := myINI.ReadString('Settings', 'Autoload', 'Checked');
inivalue := 'Checked';
myINI.Free;
if (res=inivalue) then CheckBox1.Perform(BM_SETCHECK, 1, 0)
else CheckBox1.Perform(BM_SETCHECK, 0, 0);
end;
-----
Hvordan kan det være at den ikke sætter den til Checked? Inifilen er rigtig
[Settings]
Autoload=Checked
