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.