Thema: Delphi Bild Zoomen

Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Bild Zoomen

  Alt 5. Mai 2007, 12:44
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;
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat