SpinEdit MinValue

[thomas2009]

Zitat von s.h.a.r.k:

Er muss daher die Pfeiltesten (Tastatur) nutzen oder eben die Pfeil-Button mit der Maus klicken.

Was wäre, wenn der User statt 1, den Wert 200 eingeben will?
Muss er 199 mals die Pfeil-Taste drücken

Zitat von s.h.a.r.k:

Oder du überlegst dir einfach, ein komplett anderes Control zu nutzen!

Es gibt in Delphi keine weitere Kontrole ausser Edit und SpinEdit

Zitat von s.h.a.r.k:

Wenn es sich um dein Scale-Dialog handelt sollte auch folgende Lösung funktionieren: du kannst beim OnChange prüfen ...

Ja aber das Ergebnis muss Live gesehen werden

Hier ist zum Beispiel von einem anderen Programm, wenn ich 0 eingebe

Zitat von Aphton:

Probier mal folgendes
...

Wenn Du deinen Code in Onchange hin legst, dann bekommt Du Fehler

[Daniel]

Du wirst kaum verhindern können, dass der Anwender eine Null eintippt, weil Du nicht wissen kannst, ob daraus vielleicht ein "03" wird. Das Einzige, was Du tun kannst, ist, später in Deiner Verarbeitung auf die Null (nicht) zu reagieren, indem Du in diesem Fall intern mit einer "1" oder einem anderen sinnvollen Wert weiterrechnest. Spätestens im OnExit-Ereignis wird die GUI ja wider glatt gezogen.

Im OnChange-Ereignis könntest Du bei einem Wert, der nicht dem gewünschten Wertebereich entspricht, das Eingabefeld anders färben. Sobald Du aber anfängst, den eingegebenen String im OnChange-Ereignis zu verändern, wirst Du den Anwender in 9 von 10 Fällen verärgern, weil Du nicht vorhersehen kannst, was er eigentlich wollte und daher keine Korrektur in seinem Sinne vornehmen kannst.

[Satty67]

Man könnte auch ein UpDown nehmen, der Wertebereich von SmallInt sollte hier reichen.

Im assoziierten Edit-OnChange prüft man mit TryStrToInt ob die Eingabe im Werte-Bereich ist und aktualisiert UpDown.Position.

Die Live-Anzeige wird nur im UpDown.OnChanching ausgelöst.

Delphi-Quellcode:

procedure TForm1.UpDown1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  Label1.Caption := IntToStr(UpDown1.Position);
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
  i : Integer;
begin
  if TryStrToInt((Sender as TEdit).Text, i) then
  begin
    if (i >= UpDown1.Min) and (i <= UpDown1.Max) then
      UpDown1.Position := i;
  end;
end;

Wichtig ist in der Combo die Unabhängigkeit der Ereignisse, wobei die Abhängigkeit der unabhängigen Komponenten abhängig von der Anwendung, unschön ist, ganz unabhängig vom Nutzen der Methode.

€: Oder man leitet vom SpinEdit ab und publiziert ein OnTextChange-Ereignis bzw. bastelt sich da ein Live-Update von Value rein, dann hat man wieder alles in einer Hand.

PS: Ich glaube der TS muss die ganzen Antworten übersetzen, weshalb wohl ein Teil der Antworten einfach untergeht.

[himitsu]

Man kann die Maus- und Cursortasten auch festhalten ... dann schaltet dieses SpinEdit nach kurzer Zeit in einen "SpeedModus" um.

Und dann gibt es (ich glaub z.B. bei den JEDI) auch noch andere "SpinEdits", da ist soein kleines "Strich" zwischen den SpinButtons, welchen man für eine schnelles "Scrollen" nutzen kann.

[DeddyH]

Zitat von thomas2009:

Zitat von s.h.a.r.k:

Oder du überlegst dir einfach, ein komplett anderes Control zu nutzen!

Es gibt in Delphi keine weitere Kontrole ausser Edit und SpinEdit

Da kannst Du doch jetzt nicht das Gegenteil behaupten

[Deep-Sea]

Zitat von s.h.a.r.k:

Stell dir mal vor, du beschränkst das SpinEdit auf das Interval [3-20] und der User will 20 eingeben, dann würde schon bei der Eingabe der 2 sein Wert korrigiert werden.

Richtig. Aber das TJvSpinEdit arbeitet trotzdem so.


PS: Es gibt in Delphi nur TEdit und TSpinEdit als Controls? Warum ist dann aber meine Komponentenliste sooooooo lang?

[himitsu]

Man könnte auch den TSpinButton lose mit einem TEdit verküpfen,
also via Code und sich das gewünschte Verhalten so zusammenbasteln. (PS: in der Win3.1-Abteilung oder war's in den beigelegten Demos gibt es nochein anderes SpinControl)

PS: TSpinedit ist nur ein Beispiel, wie man sowas machen kann ... will man mehr/andere Funktionsweisen, dann kann man sich daraus leicht etwas passendes selber basteln.
Nicht umsonst liegt dieses Control in der Abteilung "Sambles".


TEdit + TUpDown wäre die aktuellere Variante, welche auch gewissermaßen dem Windowsstandard entspricht.
Oder man nimmt eben Komponenten von Drittanbietern. (JEDI, DevExpress und Co.)