DELPHI błąd przy przejsciu miedzy formami

0

W programie który piszę pojawil sie pewien problem. Dotyczy przejscie z Form4 do Form5, ktore wygląda tak
Kod:
if RadioGroup1.ItemIndex=0 then
begin
s:=s+10 ;
Form5.show ;
end

Ale chcialbym dodac opcje Form4.hide. Jednak pojawia sie bląd. Gdy odpalam program niby okienko Form4 ladnie znika, ale gdy zamykam wszystko pojawia się jakies Okienko CPU z podzialem na 4 czesci, mnostwo liczb, to zdecydowanie jakis blad bo nawet nie powraca do wyjsciowego wygladu (object inspectra itp). U mnie pojawia sie strzalka przy: ntdll.KiFastSystemCallRet: 77BC9A94 ret. O co kaman?
Kiedy probuje zrobic przejscie Form5.showmodal (aby wczesniejsze okienko bylo "nieaktywne") pojawia sie komunikat "'Label3' is not a valid integer value". Label3 w Form5 przejmuje u mnie wartosc zmiennej s z Form4, by nastepnie odczytana z tego labela wartosc wykorsytac dalej w obliczeniach Form5. Jak sobie poradzic z tym blędem? Jakies sugestie?

0

No a ten Label3 przed wejściem na Form5 co ma wpisane? Jakiś string czy liczbę? Daj mu wartość początkową np. 0.

0

W form5 label3 pojawia sie poprzez polecenie z form4:

begin
s:=s+10 ;
  Form5.show  ;
  end
else if RadioGroup1.ItemIndex=1 then
begin
s:=s+20 ;
  Form5.show  ;
  end
else if RadioGroup1.ItemIndex=2 then
s:=s+30
else if RadioGroup1.ItemIndex=3 then
s:=s+40;
Form5.Label3.Caption:=inttostr(s);
end;

Nic nie przypisalem do labela. Gdzie mam to zrobic?

0

Zmieniłem powyższy kod na taki:

begin
s:=s+20 ;
Form5.show ;
end
else if RadioGroup1.ItemIndex=2 then
s:=s+30
else if RadioGroup1.ItemIndex=3 then
s:=s+40;
form5.label3.caption:=inttostr(0);
Form5.Label3.Caption:=inttostr(s);
end;

Ale gdy probuje ustawic np Form5.showmodal to pojawia sie blad "Canot make a visible window modal" i musze debugowac sesje :/

0

We właściwościach Labela daj Caption na 0.

W radiogroup przy instrukcjach warunkowych używaj sobie case:

Case RadioGroup1.ItemIndex of
0: s:=s+20; //pierwszy item
1: s:=s+30; //drugi item itd.
2: itd. 
3: itd.

1 użytkowników online, w tym zalogowanych: 0, gości: 1