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;