title image


Smiley Noch gebe ich mich nicht geschlagen
Ein bissel Transferleistung hätte ich schon von Dir erwartet. Das gibt Punktabzug in der B-Note.





procedure TForm1.Button1Click(Sender: TObject);

Var i,j:Integer; SB:TStatusBar;

begin

For i:=0 To ComponentCount-1 Do Begin

If Components[i] is TStatusBar Then Begin

With Components[i] As TStatusBar Do Begin

j:=0;

While j
Panels[j].Width:=100;

Panels[j].Text:='Wette gewonnen';

Inc(j);

End;

End;

End;

End;

end;





Wie Copy & Paste funzt iss klar, nee?









geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: