Eigenen Dialog aufrufen

[bundy]

also irgendwas klapt da nich, schaut mal


ich hab im dialog

Delphi-Quellcode:

procedure TfmDialogDiensteAuchBuchen.btJaClick(Sender: TObject);
begin
ModalResult:=mrYes;
close;
end;

procedure TfmDialogDiensteAuchBuchen.btNeinClick(Sender: TObject);
begin
ModalResult:=mrNo;
close;
end;

und im Mainform das

Delphi-Quellcode:

case fmDialogDiensteAuchBuchen.ShowModal of
         mrYes:  Beep;  //nur zum testen
         mrNo: close;  

       end;

aber macht keinen Beep wenn ich auf Ja drück