1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Label1.Caption := 'X: '+IntToStr(X);
  Label2.Caption := 'Y: '+IntToStr(Y);

  Repaint;
  Accept := True;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Label1.Caption := 'X: '+IntToStr(X);
  Label2.Caption := 'Y: '+IntToStr(Y);

  Repaint;
  Accept := True;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:

procedure TForm1.ControlMouseDown( Sender: TObject;
                                  Button: TMouseButton;
                                  Shift : TShiftState;
                                  X, Y  : Integer);

begin
  if (CB_DS_Cfg.Checked) AND (Sender is TWinControl) then
  begin
    Draging := True;
    SetCapture(TWinControl(Sender).Handle);
    GetCursorPos(oldPos);
    if ((Sender is TComboBox) or (Sender is TEdit)) and
       (TWinControl(Sender).Parent = PanelDS)         then
    begin      // Label holen u. DragObj zuweisen!
      DragObj := TWinControl(GetControl( 'L_'+TWinControl(Sender).Name , Vertrieb.PanelDS ));
    end;
  end;
end; (*ControlMouseDown*)

procedure TForm1.ControlMouseMove( Sender: TObject;
                                  Shift : TShiftState;
                                  X, Y  : Integer);

const
  minWidth  = 20;
  minHeight = 10;
var
  newPos   : TPoint;
  frmPoint : TPoint;
begin
  if Draging then
  begin
    with TWinControl(Sender) do
    begin
      GetCursorPos(newPos);

      if ssShift in Shift then   // in Ctrl und Shift ändern
      begin //resize
        Screen.Cursor := crSizeNWSE;
        frmPoint := ScreenToClient(Mouse.CursorPos);
        if frmPoint.X > minWidth then Width := frmPoint.X;
        if frmPoint.Y > minHeight then Height := frmPoint.Y;
      end
      else //move
      begin
        Screen.Cursor := crDrag;        // crSize
        Left := Left - oldPos.X + newPos.X;
        Top  := Top  - oldPos.Y + newPos.Y;
        if DragObj <> Nil then
        begin
          DragObj.Left := DragObj.Left - oldPos.X + newPos.X;
          DragObj.Top  := DragObj.Top  - oldPos.Y + newPos.Y;
        end;
        oldPos := newPos;
      end;
    end;
  end;
end; (*ControlMouseMove*)

procedure TForm1.ControlMouseUp( Sender: TObject;
                                Button: TMouseButton;
                                Shift : TShiftState;
                                X, Y  : Integer);
begin
  if Draging then
  begin
    Screen.Cursor := crDefault;
    ReleaseCapture;
    Draging := False;
    DragObj := Nil;
    // In Grid eintragen !!!
    Screen.Cursor := crDefault;
  end;
end; (*ControlMouseUp*)                    

1:
2:
3:
4:
5:
6:
7:

type
  TMyComboBox = class(TComboBox)
  published
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
  end;                    

1:
2:
3:

implementation
var
  MyComboBox: TMyComboBox;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type
  TMyComboBox = class(TComboBox)
  published
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
  end;
....
procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TMyComboBox]);
end;