Jump to content

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


alp.yilmaz

Recommended Posts

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;

Link to comment
Share on other sites

 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. 

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...