有没有办法在触发完某事件之后自动执行一个procedure?

我现在在写HeaderControl的SectionDrag事件,在此事件里,我需要手动调整Section的位置,但是手动调整之后在事件结束的时候又会调整一次....结果就不对了..我希望能自己手动调整Section位置....最好能在触发完某事件之后自动执行一个procedure不知道有没有相关的方法?

解决方案 »

  1.   

    procedure DoEvent;
    begin
      if Assigned(FEvent) then FEvent(self);
      DoYourProcedure; 你要调用的东西!
    end;
      

  2.   

    如果你只是在事件里写代码
    procedure HeaderControl1.OnSectionDrag(Sender: TObject);
    begin
     //手工调整位置;
     Abort;  //再调用这个东西看看!
    end;
      

  3.   

    Abort; 没有用啊....事件自己还是会修改Section....把手工修改的还是给打乱了..
      

  4.   

    简单说就是我需要在触发OnSectionDrag的时候刷新数据,而数据必须在Section顺序修改之后刷新...
      

  5.   

    没有办法了?procedure DoEvent;
    begin
    if Assigned(FEvent) then FEvent(self);
    DoYourProcedure; 你要调用的东西!
    end;这个东西我看不懂的说...