deki123 - Do 08.12.05 13:58
Titel: Problem mit keycheck
Hallo, ich hab ein kleines Problem.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure keycheck;
begin
while true do
begin
if boolean(getasynckeystate(vk_left)) then
form1.shape1.left:= form1.shape1.left -50;
if boolean(getasynckeystate(vk_right)) then
form1.Shape1.left:= form1.Shape1.Left +50;
if boolean(getasynckeystate(vk_up)) then
form1.shape1.Top :=form1.shape1.Top -50;
if boolean(getasynckeystate(vk_down)) then
form1.shape1.top:= form1.shape1.top +50;
end;
end; |
Ich möchte Shape1 nur verschieben. Shape1 wird zwar an der neuen Position angezeigt, ist aber auch immer noch auf der alten Positon zu sehen. Wie kann ich die alte Positon löschen?
Arbeite erst sehr kurz mit Delphi,
Vielen Danke jür jede Hilfe.
Moderiert von 
raziel: Delphi-Tags hinzugefügt.
Ivo@CoMRoK - Fr 09.12.05 22:09
Ich hab mal sowas ähnliches mit nem Image gemacht:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := 40;
if getAsyncKeyState(Ord('A'))<0 then
begin
Image1.Left := Image1.Left - 4;
end;
if getAsyncKeyState(Ord('W'))<0 then
begin
Image1.Top := Image1.Top - 4;
end;
if getAsyncKeyState(Ord('S'))<0 then
begin
Image1.Top := Image1.Top + 4;
end;
if getAsyncKeyState(Ord('D'))<0 then
begin
Image1.Left := Image1.Left + 4;
end;
end; |
Ob das mim Shape auch funzt weiß ich net sonst machs halt mim Image.
mfg Ivo