TImage verschieben?

[mlspider]

Wie könnte man zur Laufzeit die Image-Kompo verschieben?

Dieser Code funkioniert bei Button und Co, nicht bei der Image-Kompo:

Delphi-Quellcode:

procedure TCover.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 TWincontrol(sender).perform(WM_LBUTTONUP, 0, 0);
   TWincontrol(sender).Perform(WM_SysCommand,SC_MOVE+2,2);
end;

Im MouseDown-Event von Image1, habe ich die Procedur vom MouseDown-Event des Buttons zu stehen.

[TStringlist]

Wahrscheinlich hast du es mit deinem Typ-Casten in Richtung TWinControl schon richtig angedeutet: Nötig für diese Methode könnte gut immer mindestens ein TWinControl sein. Eine Image-Kompo ist aber nur ein TGraphicControl. In der OH heißt es diesbezüglich z.B.: "...da Lightweight-Steuerelemente keine Windows-Bildschirmobjekte kapseln,...", ...was wohl also heißt, dass ein TImage kein typisches Bildschirmobjekt ist und demzufolge auch nicht auf eine solche Weise verschoben werden kann.

Ergo wird dir wahrscheinlich nichts anderes übrig bleiben, als im Image1MouseDown die zu diesem Zeitpunkt aktuellen X/Y-Koordinaten der Maus extra festzuhalten, sowie auch die Left/Top-Koordinaten des Image selbst. Anschließend kannst du dann bei jedem folgenden Image1MouseMove-Visit die Differenz zu diesen anfänglichen Maus-Koordinaten in eine dementsprechende Positionsänderung des Image (=Image1.Left/Top-Änderung) umzusetzen.

[mlspider]

Und genauso habe ich es mittlerweile gelößt. Jeweils einen Butten der beim MouseDown-Event einen Timer anspicht und dessen Timerereignis eine Left/Top - Verschiebung vornimmt.

MouseUp-Event setzt den Timer wieder auf False.(Nur zur Ergänzung)

Gleiches habe ich mit der Größenänderung von Image erreicht. (Hier wiederum: Heigth/Width)

Trotzdem gut recherchiert. Auf das selbe Ergebnis bin ich jetzt auch gekommen.

[Hawkeye219]

Hallo mlspider,

Die Schweizer kommen ohne Timer aus: klick

Gruß Hawkeye

[mlspider]

Natürlich noch besser. Danke!