Hej
Har forsøgt, at få Kodeeksemplet nedenfor til, at virke!
Det er sådan, at når bare der vælges en radioButton så skal
indskrivningen forlades.
Kan du se, hvor det går galt?
Eller har du en bedere løsning?
procedure TfmIndskrivPers.btnAfslutIndskrivningClick(Sender: TObject);
begin
if (fmIndskrivPers.RadioButton1.Checked) and
(fmIndskrivPers.RadioButton2.Checked)= False then begin
If MessageDlg('Barnets køn skal opgives', mtInformation, [mbOk,
mbCancel], 0) = mrOk then begin
fmIndskrivPers.Show; //Gentage Indskrivningen
end else //Forlade Indskrivningen
fmValg.SelectedEngelishBabybog;
fmIndskrivPers.Hide;
fmValg.Show;
end;
end;
Med venlig hilsen og en god jul herfra.
Monie Jacobsen
E-mail:energy@sunwind.dk
|