I loaded a list box and the AfterScroll Event always fires before the BeforeScroll Event.

Is this right???

function TfrmTime.STimeBeforeScroll(Sender: TObject): Boolean;
begin
 ListBox1.Items.Add('Before ST Scroll');      // <<<<<<<<<<<<<<<<<<<<
 if DTime.State = dsUpdate then
   DTime.Save;
 Result := True;
end;

procedure TfrmTime.STimeAfterScroll(Sender: TObject);
begin
 ListBox1.Items.Add('After ST Scroll');   // <<<<<<<<<<<<<<<<

 if STime.Tag = 0 then
 begin
   LoadDTime;

   SInfo.Close;
   SInfo.Open;
   SInfo.Params.Clear;
   SInfo.Params.Add('ProjectsID='+ STime.Columns['ProjectsID'].AsString);
   DataBase.Load(SInfo);
 end;
end;

Walter

Must be working to hard or I need new glasses...

I retested and it is working... so I assume IT IS ME!

Walter