Hallo bin neu hier da ich erst seit 2 jahren programmiere und gerade mit einem (sehr) leichtem spiel "fangen" an.
Doch schon gibts die ersten probleme:
1)
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if char (key) = 'W' then
begin
movie1.Top:= movie1.Top -10;
end;
begin
if char (key) = 'S' then
begin
movie1.Top:= movie1.Top +10;
end;
begin
if char (key) = 'A' then
begin
movie1.left:= movie1.left -10;
end;
begin
if char (key) = 'D' then
begin
movie1.left:= movie1.left +10;
end;
begin
if key = VK_UP then
begin
movie2.Top:= movie2.Top -10;
end;
begin
if key = vk_down then
begin
movie2.Top:= movie2.Top +10;
end;
begin
if key = vk_left then
begin
movie2.left:= movie2.left -10;
end;
begin
if key = vk_right then
begin
movie2.left:= movie2.left +10;
end;
end;
end;
end;
end;
end;
end;
end;
(movie is ein eiger komponent ähnlich wie Image)
das is ne teil des quelltext. Alles schön und gut aber ich kann die zwei kreise zwar mit den Pfeiltasten und W, A, S, D bewegen aber nicht gleichzeitig!
2) Das spiel soll ja ein wie fangen sein also, dass wenn der eine kreis den anderen berührt soll zBs eine messagebox aufgerufen werden.
Wie soll das gehen??
Jack der 3
[edit=Phoenix]Titel geändert. Mfg, Phoenix[/edit]