Bild Zoomen

[bitsetter]

Hallo,

du könntest ja das Event der Scrollbox benutzen. Das Problem ist nur, dass durch das Image in der Scrollbox diese keinen Focus bekommt und dadurch das Event nicht ausgelöst wird. Durch setzen des Focuses könnte man das abändern.

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Scrollbox1.SetFocus;
end;