Eigenen Dialog aufrufen

[SirThornberry]

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;