ganz einfach. Du hast ein Hauptformular (im folgenden als Form1 bezeichnet) und von da aus willst du deinen Dialog aufrufen (im folgenden als Form2 bezeichnet). Mal angenommen du zeigst den Dialog per ButtonClick an:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Form2.ShowModal = mrYes then
ShowMessage('ja wurde gedrückt')
else
ShowMessage('ja wurde NICHT gedrückt').
end;
und in Form2 schreibst du dann beim Button-Ja folgendes:
Delphi-Quellcode:
procedure TForm2.ButtonJaClick(Sender: TObject)
begin
ModalResult := mrYes; //mrYes ist eine Konstante, kann auch jeder andere Integer sein
end;
und im OnClick von Button-Nein:
Delphi-Quellcode:
procedure TForm2.ButtonJaClick(Sender: TObject)
begin
ModalResult := mrNo;
end;