Delphi kann so einfach sein
Delphi kann so einfach sein



Delphi kann so einfach sein

  Startseite
    Profi
    Basisprofi
    Basics
  Über...
  Archiv
  Gästebuch
  Kontakt
 

  Abonnieren
 



  Letztes Feedback



http://myblog.de/delphi-starthilfe

Gratis bloggen bei
myblog.de





Größerwerdender Kreis

 

  

 

 procedure TForm1.FormPaint(Sender: TObject);

var rKreis :integer;

begin

  rKreis:=1;
while rKreis <=200 do
begin

 canvas.Brush.Style:= bsclear;
 canvas.MoveTo(400,400);
 canvas.Ellipse (400+rKreis,400+rKreis,400-rKreis,400-rKreis);
 rKreis:=rKreis+2;
 sleep (30);

 end;
 end;


end.

 

 

 

 

21.9.12 08:03
 
Letzte Einträge: Fragen die ich beantworten werde


bisher 0 Kommentar(e)     TrackBack-URL

Name:
Email:
Website:
E-Mail bei weiteren Kommentaren
Informationen speichern (Cookie)



 Smileys einfügen



Verantwortlich für die Inhalte ist der Autor. Dein kostenloses Blog bei myblog.de! Datenschutzerklärung
Werbung