TrackBar控件中怎么控制最后鼠标拖拽格？

Question

我在OnChange里写  label18.Caption :=  inttostr(Trackbar.Position);
可以执行。但写showmessage(inttostr(Trackbar.Position)），这个时候发现了问题，Onchange发生在鼠标没有离开之前就响应了，而不是最后一个更改结果。我希望是在拖拽完毕，鼠标离开Trackbar的时候触发的事件写自己的代码大家说说，这个该怎么做啊？

Answer 1

用TrackBar的onexit事件即可，当trackbar失去焦点后即会showmessage.

Answer 2

是啊，怎么没想过呢，谢谢tjff2000(fengyun) ，调试过去后，分数就给你了，再次谢谢你。

Answer 3

procedure TForm1.TbarExit(Sender: TObject);
begin
   showmessage('hi');
end; tjff2000(fengyun) ，你的意思一定是指这个吧，可是不行呀；因为鼠标键松开了，但是TrackBar控件还是获得焦点的；当我点了别的控件，这个时候TrackBar才失去了焦点，然后才会执行我的SHOWMESSAGE（）语句，但还是没有达到我要求的效果。 然后，我试图下面代码：
procedure TForm1.Tbar_ATLChange(Sender: TObject);
begin
  if not Tbar.Focused then
  begin
  showmessage('hi');
  end;
end;结果也没有达到我要的效果，那位再帮我想想办法，看怎么解决这个问题