Danke für die Antwort aber leider gehts so nicht oder habe ich da was falsch verstanden ?
ich habe es jetzt mal so gemacht :
Delphi-Quelltext
1: 2: 3:
| var Form1: TForm1; aktiv:boolean; |
Delphi-Quelltext
1: 2: 3: 4:
| procedure TForm1.FormActivate(Sender: TObject); begin aktiv:=true; end; |
Delphi-Quelltext
1: 2: 3: 4:
| procedure TForm1.FormDeactivate(Sender: TObject); begin aktiv:=false; end; |
Delphi-Quelltext
1: 2: 3: 4: 5:
| procedure TForm1.Timer4Timer(Sender: TObject); begin if aktiv = false then showmessage('Das verlassen des Spielfeldes ist verboten !'); end; |
timer4 steht im intervall auf 50 und ist aktiv sobald das spiel anfängt ...
Also theo müsste doch alles richtig sein oder ?!
aber showmessage kommt nie zum zuge ...
habe ich irgendwas vergessen ?
habe zur sicherheit mal getestet und bei oncreate noch ein
aktiv:=true; gemacht damit das prog einen startwert hat ....
naja aber wie gesagt es passiert nix ?!
Jemand eine Idee ?
MfG
Einfach112