Draggen und klicken bei einem Objekt beides ermöglichen

[Hawkeye219]

Hallo Benjamin,

vielleicht kannst du in der Behandlungsroutine für das Ereignis OnMouseMove den gewünschten Effekt erzwingen:

Delphi-Quellcode:

procedure TDemoForm.Panel1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  C: TControl;
begin
  C := Sender as TControl;

  if (csLButtonDown in C.ControlState) then
    begin
      C.ControlState := C.ControlState - [csLButtonDown];
      C.BeginDrag (False);
    end;
end;

Gruß Hawkeye