Hi Leute,
hab n problem
und zwar hab ich ne form mit ner spinedit das das interval der slideshow angeben soll
das ding ist sie soll mind. 3 sek und max 30 sek. lang sein
also hab ich folgendes geproggt:
Delphi-Quellcode:
procedure TSsForm.Label4Click(Sender: TObject);
begin
if not (spinedit1.value=3) or
(spinedit1.value=4) or
(spinedit1.value=5) or
(spinedit1.value=6) or
(spinedit1.value=7) or
(spinedit1.value=8) or
(spinedit1.value=9) or
(spinedit1.value=10) or
(spinedit1.value=11) or
(spinedit1.value=12) or
(spinedit1.value=13) or
(spinedit1.value=14) or
(spinedit1.value=15) or
(spinedit1.value=16) or
(spinedit1.value=17) or
(spinedit1.value=18) or
(spinedit1.value=19) or
(spinedit1.value=20) or
(spinedit1.value=21) or
(spinedit1.value=22) or
(spinedit1.value=23) or
(spinedit1.value=24) or
(spinedit1.value=25) or
(spinedit1.value=26) or
(spinedit1.value=27) or
(spinedit1.value=28) or
(spinedit1.value=29) or
(spinedit1.value=30) then
begin
showmessage('Das Interval muss zwischen 3 und 30 Sekunden liegen !');
end
else
begin
Picshowform.slideshowtimer.interval:=SpinEdit1.value * 1000;
Picshowform.slideshowtimer.enabled:=true;
Picshowform.visible:=true;
SSForm.Visible:=false;
end;
end;
3 sekunden geht sobal ich aber was reinscheib was innerhalb des erlaubten liegt also z.b. 10
zeigt er mir die message ??? was ist falsch am quellcode ??
danke im voraus
gruss