Форум по Delphi программированию - Показать сообщение отдельно

dmdx · #4 24.12.2008, 13:28

можно еще так.

Код:

// начало
if (tblBase.RecNo = 1) and (not tblBase.IsEmpty)then btnprior.enabled := false
else if (tblBase.RecNo > 1) and (not tblBase.IsEmpty) then btnprior.enabled := true;

// конец
if (tblBase.RecNo = tblbase.RecordCount) and (not tblBase.IsEmpty) then btnnext.enabled := false
else if (tblBase.RecNo < tblbase.RecordCount) and (not tblBase.IsEmpty) then btnnext.enabled := true;