Thema: Delphi Image verschieben

Einzelnen Beitrag anzeigen

matashen

Registriert seit: 29. Jan 2007
Ort: daheim
456 Beiträge
 
Delphi XE2 Enterprise
 
#4

Re: Image verschieben

  Alt 4. Jan 2008, 09:28
Komisch, wenn ich die Suche bemühe spuckt das ding was anderes aus, tja da bräuchte man fasst ein tutorial fürs suchen

Aber zurück zur Sache, hab das gefunden

Delphi-Quellcode:
procedure TPlanmarker.CopyImageMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
  const
  SC_DRAGMOVE = $F012;
begin
if copydown then begin;
if Shift = [ssLeft] then // ist linke Maustaste gedrücht, dann...
  begin
    ReleaseCapture; // "Maus an akt. Form binden"
    copyimage.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); // Panel verschieben
  end;

   end;
end;
da war aber ursprünglich ein Panel eingetragen, damit funktionierts dann auch, aber beim Image funktionierts nicht, da passiert dann einfach - nix. ?

Kann ich dieses API-Kommando auf das Image nicht anwenden ?

Gruß Matthias
Matthias
Das Leben ist eines der härtesten.
  Mit Zitat antworten Zitat