messagedlg parametrelerini kontrol etmek

[TURGUT]

Merhaba aşağıdaki gibi bir mesaj satırı kullandım
“MessageDlg(‘Değişiklikler Kaydedilsin Mi ?’, mtConfirmation, mbYesNoCancel, 0);”
Burda parametreleri kullanarak programa yön vermek istiyorum örneğin çıkan pencereden 'NO' ya basıldığında bu komutun ardından devam eden sql satırlarını atlamasını (döngünün dışına çıkmasını)istiyorum böyle bişey yapabilirmiyim yolu nedir yardımcı olurmusunuz!

[Uğur1982]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Cevap: word;
begin
  Cevap := MessageDlg('Değişiklikler Kaydedilsin Mi ?', mtConfirmation, mbYesNoCancel, 0);
  case Cevap of
    IDYES: ShowMessage('Evet');
    IDNO: ShowMessage('Hayır')
  else
    ShowMessage('İptal');
  end;
end;
end.

İlgili kodun 1 satırdan fazlaysa;

Kod: Tümünü seç

IDYES:begin
        -----
        -----
      end

gibi kullanman gerekir...

iyi günler...

[TURGUT]

Yardımın için teşekkür ederim işime yaradı kolay gelsin