Form'da MessageDlg Sonra Giriyor

[pro_imaj]

Merhaba;

MessageDlg komutu daha çalışmadan bu kodun altındaki kodlar çalıştıktan sonra ekrana mesaj geliyor, bunun nedeni ne olabilir acaba?

 

Yani aşağıdaki kodun altında kodlar var, önce o kodlar çalışıyor sonra MessagDlg olduğu kod satırları çalışıyor. Oysa ben önce  MessageDlg nın çalışmasını istiyorum.

    MessageDlg('Kayıt Silinecek Emin misiniz?' ,mtConfirmation, mbYesNo,
              procedure(Sender: TComponent; Res: Integer)
               begin

      if Res = mrYes then
      begin
        //Silindi...
      end;
    end );

Yardımlarınız rica ederim.

 

[mehmet07]

MessageDlg calisiyordur ama normal delphideki gibi dialog kapandiktan sonra altindaki satirlarin calismasi gibi calismiyor. yani mesaj cikiyor ekrana ve altindaki satirlardan devam ediyor.(mesaj acikken)

[bugra]

MessageDlg'nin altındaki satırları procedure'ün içine yazarsanız istediğiniz şekilde sonuç alabilirsiniz.

 

Yani

MessageDlg('Kayıt Silinecek Emin misiniz?' ,mtConfirmation, mbYesNo,
  procedure(Sender: TComponent; Res: Integer)
  begin
    if Res = mrYes then
    begin
        //Silindi...
      end;
  end );
//Kodlar

şeklinde değil de

MessageDlg('Kayıt Silinecek Emin misiniz?' ,mtConfirmation, mbYesNo,
  procedure(Sender: TComponent; Res: Integer)
  begin
    if Res = mrYes then
    begin
        //Silindi...
      end;
    //Kodlar
  end );

şeklinde

[pro_imaj]

Merhaba;

 

Cevaplar için ikinizede çok teşekkür ederim.

@Burak Bey bahsettiğiniz şekilde yapıyorum ve Break koyuyorum ve ilgili yerlere düşmüyor, bununla birlikte işlemde yapmadığını gözlemliyorum.

Sorun neden olabilir?

[pro_imaj]

Normal olarak çalışıyor.

Fakar benim projemde işlemlerde Query close open komutlar ve Frame deki nesneleri erişip veri yama işlemleri var bu etkiliyor olabilir mi?

 

Debug'a neden düşmediğini anlayamıyorum...

[pro_imaj]

Form'dan Frame veri gönderiyorum sanırım bundan dolayı olmuyor. Normal bir örnek hazırladım fkat ondan çalışırken if bloğu içinde Frame veri gönderilince işlem yapamıyorum.