Hi,
Das onMouseDown Ivent vom Image würde ich das onMouseDown Ivent des Panels zuweisen und dann folgenden Code hinzufügen:
Delphi-Quellcode:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
if Sender is TImage then
TWinControl(TImage(Sender).Parent).Perform(WM_SYSCOMMAND, $F012, 0)
else
TWinControl(Sender).Perform(WM_SYSCOMMAND, $F012, 0);
end;