Projektarbeit mit Delphi 7 Personal

[Nils_13]

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.