Silme İşlemi için mesaj kullanımı

[alucard]

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.

[Farshad Mohajeri]

[alucard]

bi tane örnek yazarmısınız hocam

[Farshad Mohajeri]

Demolarda detaylı örnekler var.

Dialogs
Dialogs Anonymous Callback

[alucard]

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...