Merhaba arkadaşlar;


scription">PHP- Kodu:
type 
TForm1 
= class(TForm
Table1TTable
DataSource1TDataSource
DBGrid1TDBGrid
DBNavigator1TDBNavigator
CheckBox1TCheckBox
procedure CheckBox1Click(SenderTObject); 
public 
procedure ShowDeleted(TableTTableShowDeletedBoolean); 
end


var 
Form1TForm1


implementation 


uses DBITYPES
DBIERRSDBIPROCS


{
$R *.DFM


procedure TForm1.ShowDeleted(TableTTableShowDeletedBoolean); 
var 
rsltDBIResult
szErrMsgDBIMSG
begin 
Table
.DisableControls
try 
Check(DbiSetProp(hDBIObj(Table.Handle), curSOFTDELETEON
LongInt
(ShowDeleted))); 
finally 
Table.EnableControls
end
Table.Refresh
end


procedure TForm1.CheckBox1Click(SenderTObject); 
begin 
ShowDeleted
(Table1CheckBox1.Checked); 
end


end