右键点击DBGrid的标题栏如何得到对应的字段名？
答案:2 悬赏:30 手机版
解决时间 2021-04-13 21:39
- 提问者网友：wodetian
- 2021-04-12 21:19
右键点击DBGrid的标题栏如何得到对应的字段名呢？急！！！！
最佳答案
- 五星知识达人网友：孤独的牧羊人
- 2021-04-12 21:58
DBGrid一般用于DELPHI，在DELPHI中如下实现：
在OnMouseDown事件中实现以下代码：
procedure TForm1.DBGridEx1MouseDown(Sender: TObject; Button:
TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
iCol: Integer;
begin
with DBGridEx1 do
begin
iCol := MouseCoord(X, Y).X;
if (iCol > 0) and (iCol <= Columns.Count) then
Caption := Columns.Items[iCol - 1].FieldName;
end;
end;
在OnMouseDown事件中实现以下代码：
procedure TForm1.DBGridEx1MouseDown(Sender: TObject; Button:
TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
iCol: Integer;
begin
with DBGridEx1 do
begin
iCol := MouseCoord(X, Y).X;
if (iCol > 0) and (iCol <= Columns.Count) then
Caption := Columns.Items[iCol - 1].FieldName;
end;
end;
全部回答
- 1楼网友：从此江山别
- 2021-04-12 22:46
期待看到有用的回答！
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯