要求鼠标点击dbgrid的每一个单元行 出现一个响应事件 实现查询!!
dbgrid 已经连接显示有数据
谢谢各位帮忙!
dbgrid 已经连接显示有数据
谢谢各位帮忙!
解决方案 »
- indy10 TIdTcpServer TIdTcpClient 多客户端传输数据问题
- Delphi 开发AutoCAD
- delphi 2006的"install component"怎么没了,这没dpk的控件还怎么装啊?
- 散分了,用上了擦CDMA手机,高兴
- 急救啊!~~在delphi中如何得到SQL_select sum()的结果?
- 关于直接利用adoquery往数据库的表里面赋值
- 如何获取某个表的各列的名称和字段类型?
- 请问怎样作屏幕保护程序?
- 关于水晶报表CRPE32.dll文件的调用,
- 如何动态生成TabSheet到PageControl上
- 如何取得TChart控件中Series点与点之间的距离
- ???delphi7.0装在winn2000server上为何找不到Qreport面版???
行可以从鼠标移动获得
用鼠标拖动其中的一行到另一行,就能实现这两行数据的交换,应该怎么实现呢?
DBGrids, Controls, Classes;type
TEDBGrid = class(TDBGrid)
private
FOnMouseDown: TMouseEvent;
FOnMouseUp: TMouseEvent;
protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:
Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:
Integer); override;
published
Property OnMouseDown : TMouseEvent read FOnMouseDown write
FOnMouseDown ;
Property OnMouseUp : TMouseEvent read FOnMouseUp write FOnMouseUp ;
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Data Controls',[TEDBGrid]);
end;procedure TEDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin
inherited MouseDown(Button,Shift,X,Y);
if Assigned(FOnMouseDown) then
FOnMouseDown(Self,Button,Shift,X,Y);
end;procedure TEDBGrid.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
inherited MouseUp(Button,Shift,X,Y);
if Assigned(FOnMouseUp) then
FOnMouseUp(Self,Button,Shift,X,Y);
end;
end.
如果你有特殊的要求,但是对于你上面的要求,我看不明白,能不能说得清楚一点啊?