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 von 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.

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:

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:

image4.left := p.Y ;

sonder :

 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;