Serwus
Mam problem z jednym fragmentem kodu i nie mam pojęcia jak go przeskoczyć. Chodzi o ten fragment:
begin
q:=RadioGroup1.ItemIndex;
case (q) of
0:Edit1.Visible:=True;
1:Edit1.Visible:=True;
2:Label1.Visible:=True;
3:Label2.Visible:=True;
Zapisany w ten sposób kod działa jednak chodzi o to że każdy RadioButton odpowiada za pojawienie się jednego elementu a moim celem jest taki zapis by po zaznaczeniu jednego RadioButtona pojawiały się wszystkie 4 elementy. Po takim zapisaniu kodu:
begin
q:=RadioGroup1.ItemIndex;
case (q) of
0:Edit1.Visible:=True;
Edit1.Visible:=True;
Label1.Visible:=True;
Label2.Visible:=True;
Wywala błąd Constant expression excepted. Działam w Delphi 7. Z góry dzięki wielkie za pomoc.