Button-Problem!

[himitsu]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Caption = 'Ampel start' then begin
    Button1.Caption := 'Ampel stopp';
    //hier muß dann dein Code zum starten dere Ampel hin
  end else begin
    Button1.Caption := 'Ampel start';
    //und hier kommt dann der Code zum stoppen der Ampel rein
  end;
end;

Und wenn ich die Funktion der PAmpel (ohh man, das war'n noch Zeiten und komische Namen) richig erkannt hab, dann wird dort einfach nur der Timer für die Steuerung ein/ausgeschaltet.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Caption = 'Ampel start' then begin
    Button1.Caption := 'Ampel stopp';
    Timer1.Enabled := true;
  end else begin
    Button1.Caption := 'Ampel start';
    Timer1.Enabled := false;
  end;
end;


// und nach Tom's Variante:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;
  if Timer1.Enabled then
    Button1.Caption := 'Ampel stopp'
  else
    Button1.Caption := 'Ampel start';
end;