showmessage

[mazhargemci]

sil butonuna tıklandığında mesaj vermesini istiyorum
silmek istediğinize emin misiniz diyerek. evet - hayır butonlarıyla beraber

Kod: Tümünü seç

procedure TForm1.BitBtn5Click(Sender: TObject);
begin

if adoquery1.Delete then

( MessageDlg( silmek istediğinize emin misiniz ?, mtConfirmation, [mbNo , mbYes ], 0 )= mrNo )
        then Exit;
end;

şeklinde yaptım ama adoquery1.delete kısmında hata veriyor ?

[true_false]

mesaj yapısını yanlış kullanmışsın ama aldığın hata mesajla ilgili olmayabilir 'tırnak işaretleri hariç'. mesajı şu şekilde değiştir

Kod: Tümünü seç

if MessageDlg( 'silmek istediğinize emin misiniz ?', mtConfirmation, [mbNo , mbYes ], 0 )= mrNo  then
         Exit else
  begin
  try
adoquery1.Delete;
adoquery1.refresh;
// silindi
except
  // hata mesajı..
end;
end;

bu şekilde değiştirdikten sonra aldığın hata mesajını yazarsın

[mazhargemci]

teşekkürler