DBGrid的拖放问题:设为dmAutomatic,则点击无法移动记录,设为dmManual则在记录上点击时无法响应MouseDown事件,请问哪位大侠能解决
---------------------------------------------------------------
这是我在网上找的代码,经测试非常不错:
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
TDBGrid(Sender).BeginDrag(False);
end;
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source is TDBGrid;
end;
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
AnItem: TTreeNode;
I: Integer;
S: String;
begin
with Sender as TTreeView do
begin
AnItem := GetNodeAt(X, Y);
with Source as TDBGrid do
begin
S := '';
for I := 0 to Columns.Count - 1 do
S := S + Columns[I].Field.AsString + ' ';
end;
Items.AddChild(AnItem, S);
AnItem.Expand(True);
end;
end;
分享到:
相关推荐
自动调整delphi中dbgrid大小,对dbgrid中根据文本值自动调整单元格的大小, 自动调整delphi中dbgrid大小,对dbgrid中根据文本值自动调整单元格的大小
Delphi 改变DBgrid控件选中时的单元格颜色,一般在默认状态下,DBgrid在行被选中时是深蓝色的,本程序将改变这个深蓝色为用户自定义颜色。操作方法很简单:当选中DBgrid任意行时,点击上部的任意颜色值,此时就已经...
Delphi美化DBGrid控件表头、格线及颜色等,纯Delphi代码..rar
Delphi2007典型开发实例--在DBGrid中插入下拉组合框源代码!
delphi 对dbgrid的添加修改删除数据操作 sql数据库
将Delphi的DBGrid列表导出到Excel文件
Delphi 中DBGrid用法,Pascal语言
Delphi中DBGrid数据分行/拆行/多行显示
delphi dbgrid+clientdataSet实现的动态配置dbgrid显示列类,输入一个xml文件,单保存即可把dbgrid中所有列保存到xml中,还可以拖动,修改是否显示,显示宽度。
delphi 自带的DBGrid控件,导出EXCEL
Delphi 使DBGrid支持鼠标滚轮,测试前请确保程序已连接好数据库,否则会有很长一段时间反应,读取的数据会显示在DBGrid控件中,请在DBGrid组件中滚动鼠标滚轮,可将整个列表上下滚动,便于浏览数据,这个功能在一些...
解决delphi关于dbgrid和webbrowser的焦点冲突的问题
delphi 将DBGrid的数据导出到Exceldelphi 将DBGrid的数据导出到Excel
Delphi演示如何一次删除网格数据表dbgrid中的多条记录,小技巧不过挺实用,希望对大家的Delphi编程有所帮助。以下是实现一次删除多条记录的相关代码供参考: if DBGrid1.SelectedRows.Count >1 then s:= '真的要...
Delphi DbGrid导出到Excel
Delphi DBGrid表头美化实例!小弟我在认真研读了站内各位先进的文章后,偶有小得,特抛砖引玉(例子非常的简单,希望大大们原谅晚辈我经常拿无知当个性),DBGrid是显示资料的主要手段之一。但是DBGrid缺省的外观未免...
Delphi内DBGrid使用CheckBox功能一般有两种方法,最简单的就是使用第三方控件,如TDBGridEh,使用非常方便,唯一的缺点就是编译出的文件大,大概要大500KB那个样子。另外一种相对简单的方法就是使用DBCheckBox与...
dbgrideh 实现有条件合并单元格的例子 内含修改的dbgrideh 4.2控件
Delphi源码,数据库应用,DBGrid 纯Delphi代码实现美化DBGrid,不少朋友都会发现,DBGrid缺省的外观样式实在有些单调或缺少创意,用在自己的软件中,美观性实在不敢恭维,但是不用又不行,必竟DBGrid是Delphi中最为...
Delphi中的DBGrid如何实现使用鼠标滚轮上下:首先,往窗体上加入一个ApplicationEvents组件,此组件位于additional选项卡内。