Maus u. DelphiX

[citybreaker]

Hallo!

Wie kann ich die Maus in DelphiX verwenden das eine
Person dahin geht wo man mit der Maus hinklickt, aber
um Hindernisse herum geht?

[ISAS]

Ciao Citybreaker!

Hab fast die gleiche Frage, nur in einem früheren Stadium.
Wie kann ich die Maus in DelphiX überhaupt einbinden??
Mir is schon das klar:

Delphi-Quellcode:

procedure TForm1.DXDraw1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

Und mit Mouse.CursorPos.X Ich will ein Rollenspiel machen und weiss nicht, wie ich sachen verschieben kann.
Das Spiel besteht aus einem Raster, sodas sich auch der Gegenstand beim loslassen einrastern sollen.
Hab auch schon einen Thread geschrieben, aber keine Anwort bekommen . Vielleicht hast es ja schon herausgefunden und könntest mir dabei ein bisschen helfen

Danke, ISAS

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[citybreaker]

Mouse.CursorPos.X Woher weiß delphi den was Mouse ist?!
Hab einfach mal folgendes versucht.

Delphi-Quellcode:

procedure TSpiel.DrawMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Player.X := Mouse.CursorPos.X;
  Player.Y := Mouse.CursorPos.Y:
end;

Nu kommt immer "undifinierter bezeichner Mouse."

[Tyrael Y.]

Mouse befindet sich in der Unit Controls

[citybreaker]

Zitat von Tyrael Y.:

Mouse befindet sich in der Unit Controls

Und wie kann ich diese Unit einbinden bzw. wo finde ich sie?

[Tyrael Y.]

einfach oben in die uses Klausel schreiben

uses Controls,...;
danach kannst du mouse einfach so in der unit nutzen

[citybreaker]

Jetzt Zeigt Delphi mir an:

Zitat:

Undefinierter bezeichner Controls

[Tyrael Y.]

wo hast du es denn reingepackt?

Delphi-Quellcode:

interface
uses controls, ...;

oder

Delphi-Quellcode:

implementation
uses controls, ...;

[citybreaker]

Delphi-Quellcode:

implementation
uses controls;

Wieder einmal erscheint die Fehlermeldung:
Undifinirter bezeichner Controls.

Gibt es nicht eine Komponente die das Automatisch
zu uses hinzufügt?

--- Edit ---
Kann ja auch nicht klappen, steht schon lange bei uses.
Aber warum klappt dann Mouse nicht?!

[Tyrael Y.]

mach das bei interface rein

mal zum ausprobieren, damit du siehst, daß das geht

- erstell eine neue Application
- in der unit Form1 ist dann Controls automatisch mit drin im uses
- deklarier ne prozedur
- innerhalb der prozedur tippe Mouse.
- und warte nen mom nach dem Punkt
- und schwupp kommt die Codeergänzung, die dir zeigt das die Variable gültig ist


gruß