SpinEdit.Value manuell verändern

[approxinately007]

ah ja hasch recht! dann gehts!

ich mach mit der SpinEdit folgendes:

1. Ich markier mit der Maus die darinstehende Zahl
2. ich gebe eine Zahl mit der tastatur ein z.B. 50

aber s klappt jetz, wenn ich die exe vom explorer start!

danke...

[GHorn]

Du musst zuvor prüfen, ob der Wert nicht leer ist. Wenn du den markierst und etwas anderes eingibst, wird der Inhalt zunächst gelöscht, was bereits das OnChange-Ereignis auslöst.

So klappt's auch in der IDE / im Debugger:

Delphi-Quellcode:

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
  if SpinEdit2.Text <> '' then
    begin
      try
        radius := SpinEdit2.Value;
      except
        radius := 0;
        ShowMessage('ungültiger Wert');
      end;
    end;
end;

Dabei kannst du dir dann auch den try/except-block sparen.

Gruß + guten Rutsch

[Klaus01]

Zitat von GHorn:

...
Dabei kannst du dir dann auch den try/except-block sparen.

Gruß + guten Rutsch

.. und was passiert dann, wenn jemand einen Buchstaben oder ein Sonderzeichen eingibt?

Grüße
Klaus

[Bummi]

Shit in Shit out...

[GHorn]

Zitat von Klaus01:

Zitat von GHorn:

...
Dabei kannst du dir dann auch den try/except-block sparen.

Gruß + guten Rutsch

.. und was passiert dann, wenn jemand einen Buchstaben oder ein Sonderzeichen eingibt?

Grüße
Klaus

Davon ausgehend, das es sich um ein TSpinEdit aus der Spin.pas oder um die LMD-Kompo (hat der TE allerdings nicht mitgeteilt) handelt: Gar nichts. Diese inc- oder decrementieren nur numerisch. Buchstaben können m.W. gar nicht eingegeben werden bzw. der OnChange-Event wird gar nicht erst aufgerufen. Ich lasse mich aber gerne eines besseren belehren!

Gruß
Gerald

[approxinately007]

Zitat von GHorn:

Du musst zuvor prüfen, ob der Wert nicht leer ist. Wenn du den markierst und etwas anderes eingibst, wird der Inhalt zunächst gelöscht, was bereits das OnChange-Ereignis auslöst.

So klappt's auch in der IDE / im Debugger:

Delphi-Quellcode:

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
  if SpinEdit2.Text <> '' then
    begin
      try
        radius := SpinEdit2.Value;
      except
        radius := 0;
        ShowMessage('ungültiger Wert');
      end;
    end;
end;

Dabei kannst du dir dann auch den try/except-block sparen.

Gruß + guten Rutsch

Danke ersmal für die Hilfe!
Klappt wunderbar!

Jetz hätt ich nur noch des Prob, dass ich n Max und n Min gern hätt!
Sieht bei mir im mom so aus:

Delphi-Quellcode:

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
  if SpinEdit2.Text <> '' then
    begin
      try
        radius := SpinEdit2.Value;
      except
        radius := 0;
        ShowMessage('ungültiger Wert');
      end;
    end;
  AMax := 400;
  AMin := 1;
  if SpinEdit2.Value > AMax then
    begin
    AMax :=SpinEdit2.Value;
    SpinEdit2.Text := '400';
    end;
  if SpinEdit2.Value < AMin then
    begin
    AMin :=SpinEdit2.Value;
    SpinEdit2.Text := '1';
    end;
end;

AMax und AMin sin Integer

Vielleicht könnt ihr mir da auch nochmal helfen!
gruß
approx

[Klaus01]

Guten Abend,

onChange wird bei jedem Tastendruck ausgelöst.
Die Min und Max Werte würde ich im onExit Ereignis überprüfen.

Nachtrag: Warum nutzt Du nicht auch für die manuelle Überprüfung die
min und max Werte von TSpinEdit?

Grüße
Klaus

[approxinately007]

ok perfekt! Dank mit exit klappts! Vielen Dank!

Deinen Nachtrag evrsteh ich nicht ganz! was meinst du mit manueller überprüfung?

gruß
approx

[Klaus01]

Zitat von approxinately007:

ok perfekt! Dank mit exit klappts! Vielen Dank!

Deinen Nachtrag verstehw ich nicht ganz! Was meinst du mit manueller überprüfung?

Delphi-Quellcode:

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
  if SpinEdit2.Text <> '' then
    begin
      try
        radius := SpinEdit2.Value;
      except
        radius := 0;
        ShowMessage('ungültiger Wert');
      end;
    end;
  AMax := 400;
  AMin := 1;
  // von hier 
  if SpinEdit2.Value > AMax then
    begin
    AMax :=SpinEdit2.Value;
    SpinEdit2.Text := '400';
    end;
  if SpinEdit2.Value < AMin then
    begin
    AMin :=SpinEdit2.Value;
    SpinEdit2.Text := '1';
    end;
  // bis hier
end;

Wenn SpinEdit den Focus verliert, dann wird der eingegebene Wert automatisch überprüft
Wenn er kleiner als SpinEdit.minValue ist wird er auf minValue gesetzt.
Wenn der Wert größer als SpinEdit.maxValue ist wird der Wert auf maxValue geändert.

Grüße
Klaus

[approxinately007]

ah ja klar! Noch besser!
Hab gar nicht gewusst, dass es das gibt... Habs n bissl umständlicher gemacht

Danke Klaus