Please i'm usin MessageDlg to ask and make warning in my web application. But it not workin well.
The instructions after se click of the user don't execute.
if MessageDlg('Did you Need to save Data ?',mtConfirmation, [mbYes, mbNo] ) = mrYes then
begin
with DM.ADO_Enr_1 do
begin
close;
SQL.Clear;
SQL.Add('INSERT INTO Product (name, price) Values (:name,:price)');
Parameters.ParamByName('name').Value:= EdName.Text;
Parameters.ParamByName('price').Value:= EdPrice.Text;
ExecSQL;
end;
EdName.Clear;
EdPrice.Clear;
MessageDlg('Enregistrement réalisé avec succé',mtConfirmation,[mbok]);
end
else
The block Begin ...... End is not execute.
Thanks in advance.