Image auf die mit der Maus angeklickten Position setzen

[newmusicslamer]

Hallo!

Ich habe ein Problem ich will dass ein Image dorthin wandert, wohin man vorher mit der Maus einmal geklickt hat.
Ich stelle mir das ungefähr so vor:

Code:

procedure TForm1.FormClick(Sender: TObject);
begin
image1.Left := MouseClick.left ;
image1.top := MouseClick.top ;
end;

:?:

Ich hoffe ihr könnt mir helfen!

[Jonas Shinaniganz]

Die Mausposition könnte dir helfen!

Delphi-Quellcode:

var
  p: TPoint;
begin
  p := Mouse.CursorPos;

Dann hast du p.X und p.Y

[Popov]

Bitte beachten, dass Mouse.CursorPos die globalen Werte liefert. Wenn man also nur auf dem eigenen Formular arbeitet, oder Komponente, dann OnMouseDown nutzen oder Werte anpassen.

[himitsu]

OnClick
OnMouseUp
OnMouseDown

[Luckie]

Zitat:

Zitat von Popov (Beitrag 1154472)

Bitte beachten, dass Mouse.CursorPos die globalen Werte liefert. Wenn man also nur auf dem eigenen Formular arbeitet, oder Komponente, dann OnMouseDown nutzen oder Werte anpassen.

Oder mit ScreenToClient umrechnen.

[newmusicslamer]

Wie kann ich p (den Point) als Image Pos nehmen?

[Jonas Shinaniganz]

Hi,

Du hast ja schon:

Zitat:

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
begin
image1.Left := MouseClick.left ;
image1.top := MouseClick.top ;
end;

Jetzt könntest du doch versuchen:

Delphi-Quellcode:

image1.Left := p.X;

Bedenke dabei aber:

Zitat:

Oder mit ScreenToClient umrechnen.

ScreenToClient(p).X ...

[newmusicslamer]

Jetzt habe ich es mit diesem Code versucht:

Code:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  p: TPoint ;
begin
 image4.Visible := true ;
 image4.left := p.Y ;
 image4.top :=  p.X ;
 p := Mouse.CursorPos ;
end;

aber das Bild verschwindet irgendwo im Nirgendwo. Es geht auch nicht mit image4.left := p.X und dann halt bei top das Y

[Jonas Shinaniganz]

Dass das Bild 'verschwindet' liegt daran, dass es auserhalb der Form liegt.

Du musst, bevor du die left/top Werte setzt noch P konvertieren.

nicht :

Zitat:

Delphi-Quellcode:

image4.left := p.Y ;

sonder :

Delphi-Quellcode:

 image4.left := ScreenToClient(p).Y

[newmusicslamer]

geht nicht wandelt er anscheinend immer noch nicht um.
Bei mir sieht es jetzt so aus:

Code:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  p: TPoint ;
begin
 image4.Visible := true ;
 image4.left := ScreenToClient(p).Y ;
 image4.top := ScreenToClient(p).X ;
 p := Mouse.CursorPos ;
end;

[Luckie]

Ähm, du weißt aber schon dass die Anweisung von oben nach unten abgearbeitet werden und nicht von unten nach oben?

[Jonas Shinaniganz]

Zitat:

image4.left := ScreenToClient(p).Y ;
image4.top := ScreenToClient(p).X ;
p := Mouse.CursorPos ;

Okay du bist der Bundeskanzler.

Erst sagst du dem Protokollanten, den du immer bei dir hast, er soll die Werte X und Y aufschreiben.

Dann schreibt der Protokollanten etwas auf. Danach sagst du dem Protokollanten, was X und Y ist.

Aber er hat schon geschrieben...

Du müsstest das ganze noch in die Richtige Reihenfolge bringen.

[himitsu]

Es sind nicht zufällig jemandem die übergebenen Parameter des OnMouseDown-Ereignisses aufgefallen?
:wall:

[Jonas Shinaniganz]

himitsu hat absolut Recht, da du inzwischen das Event gewechselt hast kannst du einfach die Parameter benutzen.

Delphi-Quellcode:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState;[B] X, Y: [/B] Integer);

Delphi-Quellcode:

 

image4.left := Y;
image4.top := X;

[DeddyH]

Jetzt noch richtig herum, und es wird ein Schuh draus.

Delphi-Quellcode:

Image4.Left := X;
Image4.Top := Y;

[newmusicslamer]

Dankeschön an alle! Mir ist es auch heute Morgen eingefallen. Der Standard Fehler von mir :(

*geschlossen*

[dillipp]

Wenn ich das bei mir versuche, bekomme ich immer nur Undefinierter Bezeichner "Mouse".
Liegt das an meiner alten Delphi Version?

[Bummi]

Wenn es bei Dir in Controls die Klasse TMouse nicht gibt nimm etwas in der Art

Delphi-Quellcode:

var
 p:TPoint;
begin
   GetCursorPos(p);
   Caption := IntToStr(p.X) +' - ' + IntToStr(p.y);
end;

[dillipp]

Danke, jetzt klappts