代码之家 › 专栏 › 技术社区 › Gregor Brandt

Delph/Builder随图像拖放,图像在离开控件时消失

vcl c++builder delphi

Gregor Brandt · 技术社区 · 14 年前

我有一个实现拖放的树控件。我使用一个重写的onStartDrag()来获取我自己的TdragObjectex,它在拖动时显示一个图像。这在树控件中非常有效,但是一旦我离开树控件,图像就会消失。但光标仍保留。

我试图实现OnDragover,以重置图像,但这似乎不起作用。

有什么线索吗?我使用的是C++Builder 2010,但是Delphi也会做同样的事情。

更新: 找到在表单控件中的每个控件上设置csDisplayDragImage,并且表单本身解决了此问题。有没有一些自动的方法让CSDisplayDragImage在整个表单中设置,而不是在为每个项目创建时手动设置?

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ControlStyle << csDisplayDragImage;
    RMU->ControlStyle << csDisplayDragImage;
    Button1->ControlStyle << csDisplayDragImage;
}

2 回复 | 直到 14 年前

Sertac Akyuz 14 年前

如果我记得正确,您必须在控件的“controlStyle”中包含[csDisplayDragImage]标志,当某个控件被拖动到该控件上时,您希望看到拖动图像。

更新:设置DragObject的“AlwaysShowDragImages”会使拖动图像显示在整个桌面上。

Gregor Brandt 14 年前

显然,要显示拖动图像的每个控件都需要 csDisplayDragImage control style 集合。您可以使用一个简单的函数将该标志添加到控件及其所有chillen中:

void AddDisplayDragImageStyle(TControl* ctl)
{
  ctl->ControlStyle << csDisplayDragImage;
  TWinControl* win = dynamic_cast<TWinControl*>(ctl);
  if (win)
    for (int i = 0; i < win->ControlCount; ++i)
      AddDisplayDragImageStyle(win->Controls[i]);
}

让窗体本身调用它: AddDisplayDragImageStyle(this) .

推荐文章

maf-soft · 如何将TTabControl的每个选项卡置于其自己的单元中/使用TFrame而不是选项卡?

6 年前

relayman357 · 从函数修改TEdit对象属性

6 年前

Lotfi · 如何将TCollectionItem的2次派生类添加到TOwnedCollection?

6 年前

kevin · 串行通信Arduino C++Builder

7 年前

Max Kielland · C++Builder如何将控制台应用程序转换为VCL控制台应用程序?

7 年前

WobblyBob · 鼠标光标下的标识组件不适用于TImage控件

7 年前

Adriaan Jutte · 无法使用LockBox3解密XXTEA加密的字符串

7 年前

zig · 为什么CM\U CONTROLLISTCHANGE对间接父控件执行?

7 年前

DrWael · TPageControl:如何防止更改样式属性

8 年前

Peter · 重写VCL类/组件保护方法-如何编码和使用?

8 年前