1

下面的代码使控件（例如标签）在拖动操作时显示拖动图像。

我的问题是我不想在拖动开始时立即显示拖动图像，我希望在鼠标位于控件的特定边界时显示图像 - 例如。在标签的右半部分。

到目前为止，我还没有找到解决方案 - 图像会立即显示（除非我修改 VCL 源）。在放弃 VCL 拖放实用程序并滚动自定义捕获鼠标之前，我很欣赏在这一点上获得所需行为的任​​何技巧。

这是为标签启用拖动图像的示例伪代码。 

{ turn on dragging }
Label1.DragMode := dmManual;
Label1.ControlStyle := Label1.ControlStyle + [csDisplayDragImage];

type 
  // VCL needs this for getting drag images..
  TMyDragObject = class(TDragControlObject)
  protected
    function GetDragImages: TDragImageList; override; 
  end;

function TMyDragObject.GetDragImages: TDragImageList;
begin
  Result := Form1.ImageList1;
end;             

procedure TForm1.Label1MouseDown(...);
begin
  { start the dragging manually }
  Label1.BeginDrag(False, 4); // the problem area! image is shown instantly at here!
end;

procedure TForm1.Label1StartDrag(Sender: TObject; var DragObject: TDragObject);
var b : TBitmap;
begin
  ImageList1.Clear;
  DragObject := TMyDragObject.Create(self);

  b := TBitmap.Create;
  try
    b.Width := ImageList1.Width;
    b.Height := ImageList1.Height;
    b.LoadFromFile('/path/to/image');
    ImageList1.Add(b, nil);
  finally
    b.Free;
  end;
end;

procedure TForm1.Label1MouseMove(...);
begin
  if X > Label1.Width div 2 then // right half
    // ??? - do show the drag image
  else
    // ??? - no drage image should be shown
end;
4

3 回答 3

1

将名为 b 的 TBitmap 设为全局变量并删除该行

ImageList1.Add(b, nil);

来自 Label1StartDrag 过程并将其放置在 OnDragOverProcedure 中。这将允许 ImageList1 保持空白，直到鼠标移动了指定的四个像素

Label1.BeginDrag(False, 4);

于 2009-09-09T21:41:10.500 回答
0

Label1.DragMode := dmAutomatic;

您是否尝试过使用 dmManual？您应该编写更多代码，但您可以更改更多过程。

顺便说一句，你为什么要改变标准行为？您的用户可能期望该标准，如果程序的行为不同，他们可能会感到沮丧。

于 2009-03-19T14:43:35.190 回答
0

正如该主题的沉默所暗示的那样，我想我想要的对于默认的 VCL 拖放实用程序来说有点过头了。

无论如何，为了获得想要的效果 - 即对拖动操作有更多的控制，这里有一种方法涉及捕获鼠标和手动处理消息：

  SetCapture(Handle);
  try
    while GetCapture = Handle do 
       { Process messages like mouse move, click, etc..
         ie. Change the drag image when the control under cursor changes.. } 
  finally
    if Handle = GetCapture then
      ReleaseCapture;
  end;
于 2009-04-05T23:20:17.150 回答