Spinbutton auswerten

steppenwolf · Beiträge: 38

Hallo allerseits,

ich möchte zwecks Erhöhung bzw. Verringerung eines Wertes einen Spinbutton einsetzen.
Problem: Wie kann ich den 'nach-oben' bzw. 'nach-unten' - Klick auswerten?

Ich habe folgendes versucht:

markieren

Delphi-Quelltext

1:
2:
3:
4:

...
if Form1.SpinButton1.OnDownClick then i := i - 1;  // Verringerung
if Form1.SpinButton1.OnUpClick then i := i + 1;    // Erhöhung
...

Leider funktioniert das nicht, da hier ein Syntaxproblem gemeldet wird.

Für Eure Hinweise vielen Dank und auf bald ...
steppenwolf.

Moderiert von raziel: Delphi-Tags hinzugefügt und BBCodes aktiviert.

Keldorn · Verfasst: Di 05.07.05 16:09

Hallo

der code gehört doch in die ereignisse selbst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
  dec(i);       //I:=i-1;
end;

procedure TForm1.SpinButton1UpClick(Sender: TObject);
begin
  inc(i);
end;

wobei du dir evtl auch das spinedit anschauen solltest, das steht der Wert gleich im Edit un das hoch und runter geht von alleine.

Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

steppenwolf · Beiträge: 38

Hallo Frank,

vielen Dank, es hat geklappt!

Ich habe auch das Spinedit verwendet, da es eine elegantere Variante ist.

Auf bald ...
steppenwolf.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme