mbleft bei Image wird bei dragmode=automatic nicht erkannnt?

[mirage228]

Vielleicht hilft Dir das ja?

Delphi-Quellcode:

var
  IsDown: Boolean;
begin
  IsDown := GetKeyState(VK_LBUTTON) < 0;
end;

Oder du setzt den DragMode auf Manual und beginnst das Draggen manuell über BeginDrag.

Viele Grüße