Hallo,
bin ganz neu hier und hoffe das ich alles so richtig mache!
Kann mir evtl. jemand helfen folgenden Quellcode zu vereinfachen bzw. zu verkürzen???
Delphi-Quellcode:
procedure TForm1.Label11Klick(Sender: TObject);
begin
LabelKlick(Sender);
if Label11.Color = clWindow then Label11.Color:= clRed else Label11.Color:= clWindow;
if Label10.Color = clWindow then Label10.Color:= clRed else Label10.Color:= clWindow;
if Label12.Color = clWindow then Label12.Color:= clRed else Label12.Color:= clWindow;
if Label7.Color = clWindow then Label7.Color:= clRed else Label7.Color:= clWindow;
if Label15.Color = clWindow then Label15.Color:= clRed else Label15.Color:= clWindow;
WinGame;
end;
procedure TForm1.Label12Klick(Sender: TObject);
begin
LabelKlick(Sender);
if Label12.Color = clWindow then Label12.Color:= clRed else Label12.Color:= clWindow;
if Label11.Color = clWindow then Label11.Color:= clRed else Label11.Color:= clWindow;
if Label8.Color = clWindow then Label8.Color:= clRed else Label8.Color:= clWindow;
if Label16.Color = clWindow then Label16.Color:= clRed else Label16.Color:= clWindow;
WinGame;
end;
geht so weiter bis Label16 soll aber wenn möglich noch weiter gehen!
Schon mal vielen Dank im voraus!
P.S.: Hab es übrigens schon mit einem Array of TLabel probiert komm aber nicht wirklich weiter
[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]