|
|
 | RadioButton1.Checked kan ikke få det til a~
Fra : Monie Jacobsen |
Dato : 21-12-03 12:05 |
|
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;
Jeg skal finde ud af om der trykket på RadioButtons1 eller RadioButtons2 og
hvis ikke så skal indskrivningen forsøges igen!
Med venlig hilsen og en god jul herfra.
Monie Jacobsen
| |
 Harald (21-12-2003)
| Kommentar
Fra : Harald |
Dato : 21-12-03 13:55 |
|
"Monie Jacobsen" <energy@sunwind.dk> skrev i en meddelelse
news:3fe57e7c$0$165$edfadb0f@dread11.news.tele.dk...
> 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;
>
> Jeg skal finde ud af om der trykket på RadioButtons1 eller RadioButtons2
og
> hvis ikke så skal indskrivningen forsøges igen!
Prøv med:
if not (fmIndskrivPers.RadioButton1.Checked or
fmIndskrivPers.RadioButton2.Checked) then begin
/HK
| |
Monie Jacobsen (22-12-2003)
| Kommentar
Fra : Monie Jacobsen |
Dato : 22-12-03 07:17 |
|
Tak Harald
Det var lige det skub der skulle til.
Har brug rotinen med stor held.
Med venlig hilsen og god jul til dig og din familie.
Monie Jacobsen
E-mail: energy@sunwind.dk
"Harald" <news10@-REMOVE-THIS-kroning.dk> skrev i en meddelelse
news:3fe59826$0$27400$edfadb0f@dread16.news.tele.dk...
> "Monie Jacobsen" <energy@sunwind.dk> skrev i en meddelelse
> news:3fe57e7c$0$165$edfadb0f@dread11.news.tele.dk...
> > 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;
> >
> > Jeg skal finde ud af om der trykket på RadioButtons1 eller RadioButtons2
> og
> > hvis ikke så skal indskrivningen forsøges igen!
>
> Prøv med:
> if not (fmIndskrivPers.RadioButton1.Checked or
> fmIndskrivPers.RadioButton2.Checked) then begin
>
> /HK
>
>
| |
|
|