Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Drag&Drop-Problem

   
    by Bummi, 24. Feb 2014
  etwas in der Art?
  
  procedure TFormx.PanelyMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  begin
  if Button=mbLeft then
  TPanel(Sender).BeginDrag(false,20);
  end;