MouseUp Event mit gedrückter rechter Maustaste

[BerndS]

Das geht mit SetCapture/ReleaseCapture.

Delphi-Quellcode:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = TMouseButton.mbRight then
    SetCapture(sbx1.Handle);
  ...
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = TMouseButton.mbRight then
    ReleaseCapture;
  ...
end;