> Presuming that CTCSQuery was the lookup dataset I think you need
> something like...
>
> procedure TContactsDataModule.CTCSQueryGetCanScroll(Sender:
> TIB_Dataset;
> var CanScroll: Boolean);
> begin
> // if the sender is a lookup dataset, only allow the sender to
> // scroll if the key/main dataset is not readonly.
> if (Sender.KeyDataset <> nil) then
> CanScroll:= not Sender.KeyDataset.ReadOnly;
> end;

I always get an exception, when I try to scroll. I thought, setting CanScroll
to false, prevents the exception from being raised ?


Guido.