MessageDlg Çağrısında Block Yapılamıyor

[alp.yilmaz]

Aşağıdaki Şekilde Çağrılan Message Dialog Nesnesi Form Üzerindeki Nesneleri Block Etmiyor ve TAB Tuşu ile üzerlerinde Gezine biliniyor Hatta Değişiklik bile yapılabiliyor

Bunu Engellemenin Bir Yöntemi Varmıdır.   Yani MessageDLG Nesnesi ShowModal Açılabilirmi?

 

 

 

 

MessageDlg('Formu Kapatmak Üzeresiniz...', mtWarning, mbYesNo, CallBack);

 

procedure TUniForm1.CallBack(Sender: TComponent; Res: Integer);
begin
  case Res of
    mrYes : Begin
              Close();

              Exit;
            End;

    mrNo :  Begin
             UniEdit1.SetFocus;
             Exit;
            End;
  end;
end;

[alucard]

 private nin altına aşağıdaki tanımı yapıyoruz.

procedure IslemSil(Sender: TComponent; Res: Integer);

 

sonra aşağıdaki tanımı yapıyoruz. ve işine yapılmak istenilenleri yazıyoruz.

 

procedure TMainForm.IslemSil(Sender: TComponent; Res: Integer);
begin
if Res=mrYes then
begin


// bu beginden sonra yapılacak bütün işlemler buraya yazılıyor


end;


end;

 

Kullanımı

 

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
MessageDlg('Kaydı Silmek İstediğinize Emin misiniz?', mtConfirmation, mbYesNo, IslemSil);
end;

ben bu şekilde kullanıyorum. 

[Hayri ASLAN]

yeni versiyon ile block yapma eklendi.

 

Mainmodule- EnableSynchronousOperations -> True yapın