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. Link to comment Share on other sites More sharing options...
Administrators Farshad Mohajeri Posted September 14, 2015 Administrators Share Posted September 14, 2015 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 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 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... 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