alp.yilmaz Posted October 17, 2016 Share Posted October 17, 2016 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 More sharing options...
alucard Posted October 17, 2016 Share Posted October 17, 2016 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 More sharing options...
Hayri ASLAN Posted October 17, 2016 Share Posted October 17, 2016 yeni versiyon ile block yapma eklendi. Mainmodule- EnableSynchronousOperations -> True yapın Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now