Topic: MessageDlg problem
Good morning,
I have a MessageDlg as per the code below - however, when the user clicks cancel (mrNo) the form still closes. Please what am I doing wrong??
procedure frmColours_btnClose_OnClick (Sender: TObject; var Cancel: boolean);
begin
if frmColours.edColourID.GetTextLen > 0 then
begin
if MessageDlg('Are you sure you wish to discard your changes? '+frmColours.edColourID.text, mtConfirmation,mbNo+mbYes,0) = mrNo
//if mrNo
then // Cancel pressed
begin
ShowMessage('Dont Close (testing procedure)');
frmColours.edColourID.SetFocus;
end
else
ShowMessage('Closing (testing procedure)'); // Yes pressed
frmColours.Close;
end;
end;