Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Grenzen? Oo

    Delphi
    by inherited, 17. Mär 2007
  Ich denke auch, dass es irreführend ist, wenn man als newbie keine Antworten auf die eigentliche Frage bekommt, sondern ständig am Thema vorbeiführende "Verbesserungsvorschläge" bekommt.
  Wenn er es mit einem DirectInput lösen will (vielleicht soll das ganze Spiel später einmal DirectDraw und co. benutzen) ist OnIdle oder Timer (Sei es der Windows-Timer oder ein Multimedia-Timer) einfach die...
• Forum: Sonstige Fragen zu Delphi

  Re: Grenzen? Oo

    Delphi
    by inherited, 17. Mär 2007
  Stell dir vor: Das habe ich getan :roll:
  Ich habe mir lediglich sein Projekt wie es jetzt ist angeschaut und bin auf das gestoßen, weshalb ich ihn noch einmal drauf hinweise.
• Forum: Sonstige Fragen zu Delphi

  Re: Grenzen? Oo

    Delphi
    by inherited, 17. Mär 2007
  procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
  begin
  if (Maus.Left+Maus.Width) > ClientWidth then
  Maus.Left := ClientWidth - Maus.Width;
  
  If (Katze.Left+Katze.Width) > ClientWidth then
  Katze.Left := ClientWidth-Katze.Width;
  
  If (Maus.Top+Maus.Height) > ClientHeight then
  Maus.Top := ClientHeight - Maus.Height;
• Forum: Sonstige Fragen zu Delphi

  Re: Grenzen? Oo

    Delphi
    by inherited, 16. Mär 2007
  Dann musst du schon mal deinen Quellcode zeigen, sonst können wir auch nur raten :roll:
• Forum: Sonstige Fragen zu Delphi

  Re: Grenzen? Oo

    Delphi
    by inherited, 16. Mär 2007
  Bedenke, dass wenn du auf Maus.Left>ClientWidth prüfst, die Bedingung erst erfüllt ist, wenn die Maus bereits GANZ aus dem Bild raus ist. Es müsste also heißen:
  
  If Maus.Left+Maus.Width > ClientWidth then
  Maus.Left := ClientWidth - Maus.Width;