title image


Smiley Denk einmal über deine if-Abfragen nach
procedure TForm1.Button1Click(Sender: TObject);

begin

if Label1.Font.Color = clWindowText then Label1.Font.Color := clLime

else if Label1.Font.Color = clLime then Label1.Font.Color := clRed

else if Label1.Font.Color = clRed then Label1.Font.Color := clYellow

else if Label1.Font.Color = clYellow then Label1.Font.Color := clBlue

else if Label1.Font.Color = clBlue then Label1.Font.Color := clWindowText

end;

oder

procedure TForm1.Button1Click(Sender: TObject);

begin

case Label1.Font.Color of

clWindowText: Label1.Font.Color := clLime;

clLime: Label1.Font.Color := clRed;

clRed: Label1.Font.Color := clYellow;

clYellow: Label1.Font.Color := clBlue;

clBlue: Label1.Font.Color := clWindowText;

end;

end;



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: