谁帮我做做一个程序,利用上下左右键可以移动屏幕上的一个小圆圈(50分)

Z

zhukairu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #1

谢谢大家，我刚学这个,无从下手

 

Y

yangyugw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #2

在窗体上加入一个SHAPE1: TShape;
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
case ORD(key) of
37:SHAPE1.left := SHAPE1.left - 20

38:SHAPE1.Top := SHAPE1.Top -20

39:SHAPE1.left := SHAPE1.left + 20

40:SHAPE1.Top := SHAPE1.Top + 20

end
end;

 

Z

zhukairu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #3

很感谢你的回答，但是。你这个是delphi下的编程.我需要的是vc++的[]

 

Y

yangyugw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #4

不能可以遗殖吗，思路大概就是这样吧
不过我不会vc++不好意思了

 

Z

zhukairu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-21

• #5

我刚学，不太怎么会。delphi的做法，我知道了。
我就想知道这个vc++的做法了

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #6

重绘的过程，用ONCHAR(),通过ascill码判断，然后重画一个圆！
x,y是位置，只要相应的x++,y++就可以了

 

Z

zhukairu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #7

多人接受答案了。