Mam poważny problem! Mam w programie kilka okienek, które uruchamiam po kliknięciu w button. Po naciśnięciu buttona, okienko które wcześniej było wyświetlane ma się zamknąć i otworzyć inne te na które wskazuje button.
Problem jest tego typu,że chcę umieścić to wszystko w jednej procedurze buttonClick!
Zrobiłem to w ten sposób, że każdy button ma swój TAG i za pomocą taga rozpoznaje, które okienko ma się otworzyć. Niestety mój pomysł jest dość toporny :
procedure TF_Start.BL_Click(Sender: TObject);
var i:Byte;
begin
if not Wlaczone[TLabel(Sender).Tag-8] then begin
for i:=1 to 7 do
if Wlaczone[i] then begin
case i of
2,7:F_UstawTest.Free;
3 :F_Kategorie.Free;
4 :F_Heigh.Free;
5 :F_Opcje.Free;
6 :F_Autor.Free;
end;
Wlaczone[i]:=False;
end;
case TLabel(Sender).Tag-8 of
2:begin
TestKO:=True;
Application.CreateForm(TF_UstawTest, F_UstawTest);
ST_Nazwa.Caption:='U S T A W I E N I A T E S T U';
end;
3:begin
TestKO:=False;
Application.CreateForm(TF_Kategorie, F_Kategorie);
ST_Nazwa.Caption:='K A T E G O R I E';
end;
4:begin
Application.CreateForm(TF_Heigh, F_Heigh);
ST_Nazwa.Caption:='H I G H S C O R E S';
end;
5:begin
Application.CreateForm(TF_Opcje, F_Opcje);
ST_Nazwa.Caption:='O P C J E';
end;
6:begin
Application.CreateForm(TF_Autor, F_Autor);
ST_Nazwa.Caption:='A B O U T';
end;
7:;
end;
end else
case TLabel(Sender).Tag-8 of
3:F_Kategorie.BringToFront;
4:F_Heigh.BringToFront;
5:F_Opcje.BringToFront;
6:F_Autor.BringToFront;
7:F_UstawTest.BringToFront;
end;
end;
Jak go skrócić !! Nie mam zielonego pojęcia jak to zrobić ! Jestem na razie w fazie nauki więc mam z tym problem.
Za wszystkie podopwiedzi dziękuję!!!!!!!!!
Jak co to możecie napisać na mój E-Mail kaczuuur@op.pl