Value von SpinEdit-Feldern auf 0 setzen

Für Fragen von Einsteigern und Programmieranfängern...
Antworten
Clemensch
Beiträge: 10
Registriert: Do 11. Feb 2021, 01:03

Value von SpinEdit-Feldern auf 0 setzen

Beitrag von Clemensch »

Hallo Freunde!

gibt es einen Weg die values von alles SpinEdit-Feldern gleichzeitig auf 0 zu setzen mittels eines Butto-Klicks?

MfG
Clemens

Sieben
Beiträge: 106
Registriert: Mo 24. Aug 2020, 14:16
OS, Lazarus, FPC: Ubuntu Xenial 32, Lazarus 2.0.10, FPC 3.2.0
CPU-Target: i386

Re: Value von SpinEdit-Feldern auf 0 setzen

Beitrag von Sieben »

Sicher. Hier mal als eigenständige Prozedur, die du aus dem Button.OnClick heraus aufrufen kannst:

Code: Alles auswählen

procedure TForm1.ResetSpinEdits;
var i: Integer;
begin
  for i:=0 to pred(ComponentCount) do
    if (Components[i] is TSpinEdit) then
      TSpinEdit(Components[i]).Value := 0;
end;

Clemensch
Beiträge: 10
Registriert: Do 11. Feb 2021, 01:03

Re: Value von SpinEdit-Feldern auf 0 setzen

Beitrag von Clemensch »

Vielen Dank! Klappt alles super :D

Antworten