Thema: Delphi Panel und MouseMove

Einzelnen Beitrag anzeigen

Benutzerbild von Delphi-Narr
Delphi-Narr

Registriert seit: 29. Aug 2009
Ort: Duisburg
437 Beiträge
 
Delphi 2007 Professional
 
#2

Re: Panel und MouseMove

  Alt 20. Okt 2009, 15:17
Kenne mich mit Win32 nicht aus, aber du müsstest die PanelPosition auf die Panelposition+X bzw.Y Wert der Maus auf dem Image setzen. Klappt bei mir auch ganz gut, hatte das Problem, das ich ein Shape verschieben will, wenn ich auf dem Shape und wenn ich auf dem Formular bin:


Delphi-Quellcode:
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     Shape1.Left:=Shape1.Left+X;
     Shape1.Top:=Shape1.Top+X;
end;
Bei mir hats geklappt, musst du halt noch umformen...
  Mit Zitat antworten Zitat