Konu: Uyarı Penceresi (Okunma sayısı 2250 defa)

Mikdad · « : 10 Kasım 2005 10:02:21 »

// buton click veya herhangi bir olay

Kod: (delphi) [Seç]

A:=application.messagebox('Haberi silmek istediğinizden eminmisiniz?','DİKKAT',mb_YesNo+mb_DefButton1+mb_iconexclamation);
        if A=6 then table1.Delete;
        if A=7 then showmessage('Haberi silmediniz');

Sil Butonuna basildiginda "Haberi silmek istediğinizden eminmisiniz?" sorusu cikar Evet siler hayir iptal eder.

sessizgece · « **Yanıtla #1 :** 12 Nisan 2006 08:41:03 »

verdiğin kod için teşekür ederim bide şunu anlatsaydınj ben butona giridm hata verdi msn den yardımcı olurmusun gokhankoc90@hotmail.com

barutali · « **Yanıtla #2 :** 03 Temmuz 2009 04:28:59 »

hata verdi çünkü A değişkenini tanımlamadınız.. kodları aşağıdaki gibi düzenlerseniz sorun ortadan kalkacaktır..

Kod: (delphi) [Seç]

var
 a : word;
begin
A:=application.messagebox('Haberi silmek istediğinizden eminmisiniz?','DİKKAT',mb_YesNo+mb_DefButton1+mb_iconexclamation);
     case a of
     IDYES : table1.Delete;
     IDNO  : showmessage('Haberi silmediniz');
     end;
end;

Gönderen Konu: Uyarı Penceresi (Okunma sayısı 2250 defa)

Mikdad

Uyarı Penceresi

sessizgece

Ynt: Uyarı Penceresi

barutali

Ynt: Uyarı Penceresi