Hier mal ein Testprojekt.
Einfach ein SpinEdit und ein Memo und schauen, was das SpinEdit an Werten liefert:
Delphi-Quellcode:
unit fTestSpinEdit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin;
type
TForm1 =
class(TForm)
SpinEdit1: TSpinEdit;
Memo1: TMemo;
procedure SpinEdit1Change(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
Memo1.Lines.Add('
"' + SpinEdit1.Text + '
"');
end;
end.
Folgende Werte werden verarbeitet:
Zitat:
"1"
"2"
"3"
"4"
""
"5"
Bis 4 habe ich die Button benutzt, dann den Text markiert und 5 gedrückt.
SpinEdit "feuert" dann mit einem Leerstring.
Die Ereignisbehandlung könntest Du dann z.B. abbrechen.
if SpinEdit.Text = '' then Exit;