Forum: Object-Pascal / Delphi-Language
Delphi
by funky,
14. Nov 2010
Habe es jetzt so gemacht:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = 'W') then
begin
if (arFelder = 0) or (arFelder = 2) then
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by funky,
14. Nov 2010
Da muss nichtmal etwas drinstehen:
Jetzt habe ich mal folgendes rein gemacht:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Test');
end;
Edit:
Forum: Object-Pascal / Delphi-Language
Delphi
by funky,
14. Nov 2010
Also das ist der Teil wo er die Figur bewegt oder eben nicht bewegt:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_UP) then
begin
if (arFelder = 0) or (arFelder = 2) then
Forum: Object-Pascal / Delphi-Language
Delphi
by funky,
14. Nov 2010
Was magst du nicht glauben? oO
Soll ich dir meine Projektdateien schicken?
Forum: Object-Pascal / Delphi-Language
Delphi
by funky,
14. Nov 2010
Hi,
Also bin neu hier und ich weis der Titel sagt einigen erstmal nix.
Mein Problem ist folgender:
Ich habe ein Spielfeld(Image1) und einen Button1 mit dem auf Image1 das Spielfeld und die Figur gezeichnet werden.
Jetzt habe ich bei "FormKeyDown" die Tastenabfrage rein gemacht, also wenn man die Pfeiltaste nach oben drückt soll sich die Figur nach oben bewegen.
Allerdings geht das...