在AHMSpinEdit(或其它SpinEdit)中，在OnChange事件中我需要判断一个条件决定Value改变是否改变，可事实是条件未判断之前,Value已经发生改变，如何在Value改变之前加入判断，决定Value是否改变呢？

[xiaocai]

[王集鹄]

//保存上一次的文本来判断呗
//...
TForm1 = class(TForm)
Edit1: TEdit;
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
FText: string;
public
{ Public declarations }
end;

//...

procedure TForm1.Edit1Change(Sender: TObject);
begin
if FText <> TEdit(Sender).Text then
ShowMessage('很简单嘛')
else Exit;
FText := TEdit(Sender).Text;
end;