alucard Posted September 14, 2015 Share Posted September 14, 2015 Silme İşlemlerinde yada evet hayır gereken formlarda application.messagebox yada messagedlg kullanamıyorum. bunların yerine ne kullanmalıyım if Dialogs.MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then kodunu kullandığımda server tarafında mesaj geliyor. Quote Link to comment Share on other sites More sharing options...
Administrators Farshad Mohajeri Posted September 14, 2015 Administrators Share Posted September 14, 2015 Quote Link to comment Share on other sites More sharing options...
alucard Posted September 14, 2015 Author Share Posted September 14, 2015 bi tane örnek yazarmısınız hocam Quote Link to comment Share on other sites More sharing options...
Administrators Farshad Mohajeri Posted September 14, 2015 Administrators Share Posted September 14, 2015 Demolarda detaylı örnekler var. Dialogs Dialogs Anonymous Callback Quote Link to comment Share on other sites More sharing options...
alucard Posted September 14, 2015 Author Share Posted September 14, 2015 bi tane procedure tanımladım private { Private declarations } procedure VeresiyeSil(Sender: TComponent; Res: Integer); public procedure TVardiyaSonuIslemleri.UniBitBtn20Click(Sender: TObject); begin MessageDlg('Kaydı Silmek İstediğinize Eminmisiniz?', mtConfirmation, mbYesNo, VeresiyeSil); end; procedure TVardiyaSonuIslemleri.VeresiyeSil(Sender: TComponent; Res: Integer); begin if Res=mrYes then begin IBDVeresiyeler.Delete; UniMainModule.IBTransaction1.CommitRetaining; end; yaptım oldu... Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.