Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Bestimmt trivial, aber ich bin zu doof. Hilfe dringend n

  Alt 7. Dez 2003, 19:19
Delphi-Quellcode:
var x, y: Integer;
begin
  x := Button1.Left;
  y := button1.Top;
  if (y = 0) and (x < 50) then
    x := x + 1
  else if (x = 50) and (y < 50) then
    y := y + 1
  else if (y = 50) and (x > 0) then
    x := x - 1
  else y := y - 1;

  Button1.Left := x;
  Button1.Top := y;
end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat