Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Gegenteil von OnMouseMove?

    Delphi
    by Sprint, 25. Aug 2009
  Mit SetCapture und ReleaseCapture. Dafür benötigst du aber ein Control mit Handle. Und das hat
  TImage nun mal ja nicht. Kannst aber das TImage auf ein TPanel packen.
  
  procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  begin
  if (X < 0) or (Y < 0) or (X > TPanel(Sender).Width) or (Y > TPanel(Sender).Height) then
  begin
  ReleaseCapture;
  ...