SpinEdit.Value manuell verändern

[Patrick6]

Hmm...wenn ich es ins ONExit Ereignis setze verändert sich die Dicke des STiftes garnichtmehr.

DAfür bekomm ich keine Fehler bei "," oder ähnlichem

[Progman]

Zitat:

Zitat von Patrick6 (Beitrag 1072621)

Nun kommt kein Fehler mehr bei Eingabe einer Zahl, dafür aber wenn ich z.B. ein "," oder ein Buchstabe eingeb. Kann ich hier noch was machen?

Den Fehler kannst du verhindern, indem du im OnKeyPress des SpinEdit

Delphi-Quellcode:

if not (Key in '0'..'9') then Key := #0;

eingibst, so werden alle Zeichen, die keine Zahl sind, unterdrückt.

[Patrick6]

Code:

[Fehler] Unit1.pas(117): Operator ist auf diesen Operandentyp nicht anwendbar

Der Fehler kommt da bei mir...

[GHorn]

Zitat:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
if SpinEdit1.Text <> ''
then
try
Image1.Canvas.Pen.Width := SpinEdit1.Value;
finally
SpinEdit1.MaxValue := 80;
SpinEdit1.MinValue := 1;
if
SpinEdit1.Value > SpinEdit1.MaxValue
then
SpinEdit1.Text := '80';
if
SpinEdit1.Value < SpinEdit1.MinValue
then
SpinEdit1.Text := '1';
end;
end;

Sorry, aber Dein Qellcode ist für mich kaum lesbar. Richtiges Einrücken und geschlossene begin ... end wirken da Wunder.
SpinEdit.MaxValue und ..MinValue sollten nur gesetzt werden, wenn sie zu ändern sind. Also bei der Initialisierung oder bei einer faktischen Änderung. Aber doch nicht in einem OnChange mit immer dem selben Wert.

Zitat:

Hmm...wenn ich es ins ONExit Ereignis setze verändert sich die Dicke des STiftes garnichtmehr.

Was hast Du da eingefügt? Alles was vorher im OnChange stand? Poste doch mal den kompletten, relevanten Teil des Quellcodes.

[Patrick6]

Delphi-Quellcode:

procedure TForm1.SpinEdit1Exit(Sender: TObject);
begin
   if SpinEdit1.Text <> ''
    then
      try
        Image1.Canvas.Pen.Width := SpinEdit1.Value;
      finally
         SpinEdit1.MaxValue := 80;
         SpinEdit1.MinValue := 1;
       if
          SpinEdit1.Value > SpinEdit1.MaxValue
       then
          SpinEdit1.Text := '80';
       if
          SpinEdit1.Value < SpinEdit1.MinValue
       then
          SpinEdit1.Text := '1';
    end;
end;

Hier ist er. Sorry, ich bin noch ein Anfänger und kenn die Ereignisse und was sie genau bewirken noch nicht so ganz.
Ich hoffe ihr könnt mir trotzdem irgendwie helfen :)


Edit: Mir ist gerade aufgefallen, dass sie die Größe des Stiftes doch ändert, aber erst, wenn man auf einen anderen Button geklickt hat. Wie kann ich das beheben?

[Progman]

Hier mal ein Code, wie ich ihn nutzen würde:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Spinedit1.MaxValue:=400;
  SpinEdit1.MinValue:=1;
  SpinEdit1.Value:=SpinEdit1.MinValue;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  if SpinEdit1.Text <> '' then begin
    if SpinEdit1.Value < Spinedit1.MinValue then SpinEdit1.Value:=SpinEdit1.MinValue else
     if SpinEdit1.Value > Spinedit1.MaxValue then SpinEdit1.Value:=SpinEdit1.MaxValue;
    Image1.Canvas.Pen.Width := SpinEdit1.Value;
  end;
end;

procedure TForm1.SpinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #8]) then Key:=#0;  //#8 ist Backspace
end;

Hoffe, es hilft dir :-)

[Patrick6]

Okay Danke. So geht das jetzt alles wie ich will.