Как показать удалённые записи |
Previous Top Next |
Code: |
procedure DeletedRecords(Table: TTable; SioNo: Boolean); begin Table.DisableControls; try Check(DbiSetProp(hDBIObj(Table.Handle), curSOFTDELETEON, Longint(SioNo))); finally Table.EnableControls; end; Table.Refresh; end; |
©Drkb::02569
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php