Hi,
Zu 1:
du könntest eine Booleanvariable einbauen.
Edit : Deklarier unter private (bei TForm1..private) die Variable Flag, statt so, wie unten zu sehen ist. Dann darf das Flag := True/False allerdings nicht fehlen.
Delphi-Quellcode:
procedure TfrmMain.cbClick(Sender: TObject); // muss deinem CheckBox-Namen entsprechen
var Flag : Boolean;
begin
if cb.Checked then // cb ist die CheckBox
Flag := False;
else
Flag := True;
Jetzt musst du schauen, wo überprüft werden soll, ob schreiben erlaubt ist oder nicht und evtl. Flag verwenden, aber das hängt von deinen näheren Bedürfnissen ab.
end;
Zu 2: Schau dir mal den Timer von der Systempalette an. Dort gitb interval den Aktualisierungsabstand an und Enabled stellt ein, ob der Timer aktiv sei.