当控件A被拖动到控件B的上方而没有放下时,触发控件B的OnDragOver事件
解决方案 »
- delphi 的 Image 显示透明图片在更换位图图片的时候闪烁:
- ||||||||复旦大学老师给我出的题目|||请教|||||||||关于多线程
- 如何解决DrawGrid或StringGrid重画的问题,急等
- 问个问题~!论坛的大哥大姐们请进~
- 我如何获取树的枝叶信息。
- 分部式系统如果不联机,如何保持数据一致?
- 請教clientsocket的兩個函數
- 关于update问题 先谢谢
- delphi 关于fastreport的问题
- 每日一问!!!!!!送分300
- 菜鸟提问:pascal语句中program Test(input, output)的input和output分别是什么?
- 急待点拨 执行外部应用程序(带参数)
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var idx:Integer;
begin
if (Source = ListBox2) then
Accept := True
else if (Source = ListBox1) then
begin
idx:=ListBox1.ItemAtPos(Point(X, Y), True);
if idx<>DragItem then Accept := False;
end;
end;
ListBox1DragOver是有控件拖动到ListBox1上时产生的。
有控件拖动到ListBox1上---------------->ListBoxDragOver