onChange в SpinEdit

[ZotaC]

Здравствуйте. Вот у меня внезапно возник такой вопрос. Есть SpinEdit, и у него - событие 'onChange', которое возникает при изменении содержимого внутри компонента. Есть, также, и функция, которая это содержимое меняет. К примеру, такая:

procedure TForm1.FormClick(Sender: TObject);
begin
  SpinEdit1.Value := 1;
end;

И при изменении таким образом его содержимого возникает событие 'onChange', а это плохо. Есть ли способы, которыми можно было бы это обойти? То есть, нужно просто поменять свойство 'Value' без возникновения каких-либо событий.

[Stilet]

procedure TForm1.FormClick(Sender: TObject);
var e:TNotifyEvent;
begin
  with SpinEdit1 do begin
   e:=OnChange; 
   OnChange:=nil;
    Value := 1;
   OnChange:=e;
  end;
end;

Надеюсь идея сперезацепом события ясна?

[ZotaC]

Спасибо, все ясно. Что-то вроде этого и хотел сделать, только не знал, как именно. Теперь знаю, спасибо.