如何讓文本作爲我的拖動光標？

Question

在兩個組件之間拖放文本時，是否有一種簡單的方式顯示我拖動的文本作爲拖動光標？

Answer 1

要從列表框中拖動一個項目，並顯示其文本表示與拖動光標一起：

type 
    TTextDragObject = class(TDragControlObjectEx) 
    private 
    FDragImages: TDragImageList; 
    FText: String; 
    protected 
    function GetDragImages: TDragImageList; override; 
    end; 

{ TTextDragObject } 

function TTextDragObject.GetDragImages: TDragImageList; 
var 
    Bmp: TBitmap; 
begin 
    if FDragImages = nil then 
    begin 
    FDragImages := TDragImageList.Create(Control); 
    Bmp := TBitmap.Create; 
    try 
     Bmp.Width := Bmp.Canvas.TextWidth(FText); 
     Bmp.Height := Bmp.Canvas.TextHeight(FText); 
     Bmp.Canvas.TextOut(0, 0, FText); 
     FDragImages.Width := Bmp.Width; 
     FDragImages.Height := Bmp.Height; 
     FDragImages.SetDragImage(FDragImages.Add(Bmp, nil), 0, 0); 
    finally 
     Bmp.Free; 
    end; 
    end; 
    Result := FDragImages; 
end; 

{ TForm1 } 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    ControlStyle := ControlStyle + [csDisplayDragImage]; 
    ListBox1.ControlStyle := ListBox1.ControlStyle + [csDisplayDragImage]; 
end; 

procedure TForm1.ListBox1StartDrag(Sender: TObject; 
    var DragObject: TDragObject); 
var 
    List: TListbox absolute Sender; 
begin 
    DragObject := TTextDragObject.Create(List); 
    if List.ItemIndex > -1 then 
    TTextDragObject(DragObject).FText := List.Items[List.ItemIndex]; 
end;