Icon View Thread

The following is the text of the current message along with any replies.
Messages 1 to 2 of 2 total
Thread TDataSet - After Scroll Event is Fired before the Before Scroll Event
Fri, Oct 11 2013 8:35 AMPermanent Link

Walter Matte

Tactical Business Corporation

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
Fri, Oct 11 2013 9:04 AMPermanent Link

Walter Matte

Tactical Business Corporation


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

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

Walter
Image