Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: SpinEdit.Value manuell verändern

    Delphi
    by Klaus01, 6. Jan 2011
  procedure TForm1.SpinEdit1Change(Sender: TObject);
  begin
  if SpinEdit1.Text <> ''
  then
  try
  Image1.Canvas.Pen.Width := SpinEdit1.Value; // hier setzt Du einen Wert unabhängig davon ob er max über- oder min unterschreitet.
  finally
  SpinEdit1.MaxValue := 80;
  SpinEdit1.MinValue := 1;
  if
• Forum: Multimedia

  AW: SpinEdit.Value manuell verändern

    Delphi
    by Klaus01, 31. Dez 2010
  procedure TForm1.SpinEdit2Change(Sender: TObject);
  begin
  if SpinEdit2.Text <> '' then
  begin
  try
  radius := SpinEdit2.Value;
  except
  radius := 0;
  ShowMessage('ungültiger Wert');
  end;
• Forum: Multimedia

  AW: SpinEdit.Value manuell verändern

    Delphi
    by Klaus01, 30. Dez 2010
  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
• Forum: Multimedia

  AW: SpinEdit.Value manuell verändern

    Delphi
    by Klaus01, 30. Dez 2010
  .. und was passiert dann, wenn jemand einen Buchstaben oder ein Sonderzeichen eingibt?
  
  Grüße
  Klaus
• Forum: Multimedia

  AW: SpinEdit.Value manuell verändern

    Delphi
    by Klaus01, 29. Dez 2010
  procedure TForm1.SpinEdit2Change(Sender: TObject);
  begin
  try
  radius := SpinEdit2.Value;
  except
  radius := 0;
  ShowMessage('ungültiger Wert');
  end;
  end;