Forum: Programmieren allgemein
by mb.99,
12. Dez 2011
ich versteh deinen Quelltext nicht so ganz, in deiner if Abfrage kann die Bedingung doch True und False sein??, weßwegen fragt man keine Booleans mit ifs ab??
procedure TForm6.Timer1Timer(Sender: TObject);
begin
if FTasteHoch (=True) then
...
if FTasteA then
...
end;
Forum: Programmieren allgemein
by mb.99,
12. Dez 2011
Danke für eure Antworten, ich habs jetzt folgendermaßen gelöst:
type
TForm1 = class(TForm)
Pn1: TPanel;
Pn2: TPanel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
Forum: Programmieren allgemein
by mb.99,
12. Dez 2011
Hi, ich bin gerade dabei PingPong zu programmieren, die Schläger möchte ich mit TImage erstellen die sich mit dem Form-KeyDown Ereigniss verschieben lassen(W,S(linker Schläger), hoch,runter (rechter Schläger), jedoch lassen sich nicht beide Schläger gleichzeitig verschieben, kennt ihr da ne Lösung. Weiß jemand nebenbei vielleicht noch wie ich über einen Button die Backspacetaste simulieren kann??...