Value von SpinEdit-Feldern auf 0 setzen

[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]

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]

Vielen Dank! Klappt alles super