IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
var cvp:word;

begin

 cvp:=Application.MessageBox('UYARI : Kaydı Silmek İstediğinize Eminmisiniz ?',

              'Kayıt Silme',

              MB_YESNO+

              MB_ICONEXCLAMATION+

              MB_DEFBUTTON1+

              MB_SYSTEMMODAL);

 if cvp=IDYES then

   dm.Tblenjeksiyon.Delete;

--------------------------------------------------------------------------------

-------------

edite göre ayarlı

Application.MessageBox(pchar(edit1.text + ' adı kullanıcı bulunamadı'),

              'Arama',

              MB_OK+

              MB_ICONEXCLAMATION+

              MB_DEFBUTTON1+

              MB_SYSTEMMODAL);

--------------------------------------------------------------------------------

-------------

düz

Application.MessageBox('adı kullanıcı bulunamadı',

              'Arama',

              MB_OK+

              MB_ICONEXCLAMATION+

              MB_DEFBUTTON1+

              MB_SYSTEMMODAL);

--------------------------------------------------------------------------------

-------------

mesajda alt satıra geçmek

IF ( Application.MessageBox('UYARI : Program Terk edilecek !'+#13+'Onaylıyor 

musunuz?',

              'Program Çıkışı',

              mb_YesNo+          // Buton seçimleri 

(uygun grup kullanılır.)

              mb_IconQuestion+       // dialog simgesi

              mb_DefButton1+        // default Seçili 

buton 'EVET'

              mb_SystemModal)  )     // Sistem bu cevabı 

bekler

                         =IdYes // Seçim Evet ise

 Then Form1.Release

  Else Action :=CaNone;