Nabend,
ich hab den Code ein wenig umgeschrieben:
Delphi-Quellcode:
firststart := ini.ReadInteger('Global', 'firststart', 0);
form1.Caption := IntToStr(firststart);
if(firststart = 0) then begin
if MessageDlg('Do you want to play Backgroundmusic ?', mtConfirmation, [mbYes, mbNo], 0)=mrYes then
begin
Musik :='1';
ini.WriteString('Global', 'Musik', '1');
ini.WriteString('Global', 'firststart', '0');
end
else begin
Musik:='0';
ini.WriteString('Global', 'Musik', '0');
ini.WriteString('Global', 'firststart', '0');
end;
end;
Die "firststart" Variable wurde zur Integer und steht, zur Kontrolle, richtig in der Form1.caption. Aus der MessageBox wurde ein MessageDlg. Aber der wird einfach nicht angezeigt, obwohl firststart auf 0 steht. Ich verzweifel langsam.
Gruß,
Andreas
Edit: Es geht nichtmal wenn ich ein firststart:=0 davor setzte. Liegt es daran, das es im onShow der Form passiert? Der übergeht die if Bedingung einfach. Ich kapier das nicht.