drag move in scrollbox

[Bummi]

Ich verwende TMS nicht, aber wenn Du die Scrollbars weglässt, könnte das Bild IMHO auch auf einem Panel o.ä. liegen und der Code reduziert sich auf:

Delphi-Quellcode:

procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   FX := X;
   FY := Y;
end;

procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then
    begin
     Image.Left := Image.Left - FX + X;
     Image.Top  := Image.Top - FY + Y;
    end;
end;

[Spectre]

wo deklariere ich FX/FY, und als was ohne ne fehlermeldung zu bekommen?

hier
"procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FX := X;
FY := Y;
end;"

gibts sonst nen error bezüglich FX/FY

[Medium]

Am besten als private Felder deines Formulares, da sie ja in dessen Methoden übergreifend verfügbar sein müssen.

[Spectre]

??

als : X bzw : Y ?? da ist ne fehlermeldung vorprogrammiert und den privates

[Bummi]

Delphi-Quellcode:

  TForm1 = class(TForm)
// .....
  private
    { Private-Deklarationen }
    FX,FY:Integer;
  public

    { Public-Deklarationen }
  end;

[Spectre]

ahhh, sorry danke.

geiler code! funktioniert perfekt, nur flackert es ziemlich, obwohl ich doublebuffered:=true auf dem formular und dem panel habe. wenn ich es ins formCreate für das image selbst setze flackert es nur noch umso mehr :O

kann ich das irgendwie lösen?

[Bummi]

Kenn ich nur wenn man sich direkt auf einem Tabsheet befindet, im Zweifelsfalle ein Panel mit Doublebuffered als Parent für das Image verwenden.