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! :hi:

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

Delphi-Quellcode:

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

Und mit

Delphi-Quellcode:

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 :cry: . 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]

Delphi-Quellcode:

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:

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

Delphi-Quellcode:

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ß

[citybreaker]

Hab ich gemacht, er kennt Mouse trotzdem nicht.
Liegt es event. an meiner alten Delphi Version?!

[Tyrael Y.]

Zitat:

Hab ich gemacht, er kennt Mouse trotzdem nicht.
Liegt es event. an meiner alten Delphi Version?!

hm, wahrscheinlich schon, ich weiß natürlich nicht in weit die
Klassen in Delphi3 implementiert waren.


Gruß

Tyrael

[Maximus]

Die procedure MausDown gibt die Maus Position ja mit X und Y zurück!

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

So kannst du die Mausposition abfragen!

[Seniman]

Hallo,

citybreaker, du hattest ganz am Anfang gefragt, wie man es außerdem macht, dass eine Figur um Hindernisse herumläuft. Du solltest dazu vielleicht mal nach Tutorials zum Thema "Routefinding" suchen. Darin sollte es erklärt werden.

Grüße
Seniman

[ISAS]

Aja, weil das Thema grad Mouse und DelphiX is. Hab da ein Problem, was ich einfach nicht zu lösen schaffe. :cry:

http://www.delphipraxis.net/internal...764&highlight=