(Moderator)
Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
Delphi 2006 Professional
|
Re: Bestimmt trivial, aber ich bin zu doof. Hilfe dringend n
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
|