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