Kod: Tümünü seç
procedure TabloBeforeDelete(DataSet: TDataSet);
begin
if Application.MessageBox('Kayıtı Silmek İstediğinize Emin misiniz?','Uyarı Mesajı',mb_YesNo+mb_ICONQUESTION)=6 Then
Tablo.Delete;
end;
Kod: Tümünü seç
procedure TabloBeforeDelete(DataSet: TDataSet);
begin
if Application.MessageBox('Kayıtı Silmek İstediğinize Emin misiniz?','Uyarı Mesajı',mb_YesNo+mb_ICONQUESTION)=6 Then
Tablo.Delete;
end;