Image auf die mit der Maus angeklickten Position setzen

[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