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