怎么样设置TDBGRID 当前行某字段的焦点？

XXXXXXXX 2007-04-10 03:17:10

...全文

303 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

withcsharp 2007-04-10

打赏
举报

SelectedIndex 本来就可以
用DBGrid1.Options := DBGrid1.Options + [dgAlwaysShowSelection]就可以不用DBGrid1.SetFocus

lihuasoft 2007-04-10

打赏
举报

这样也可以：

procedure TForm1.Button1Click(Sender: TObject);
begin
TDrawGrid(DBGrid1).Col := 3; //第3列
DBGrid1.SetFocus;
end;

哈哈，结贴

XXXXXXXX 2007-04-10

打赏
举报

谢谢

lihuasoft 2007-04-10

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
begin
DBGrid1.Fields[5].FocusControl;// Fields[5]就是第6列
DBGrid1.SetFocus;
end;

XXXXXXXX 2007-04-10

打赏
举报

没有得到正确结果

withcsharp 2007-04-10

打赏
举报

object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 136
Top = 200
Width = 320
Height = 120
DataSource = DataSource1
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Button1: TButton
Left = 568
Top = 216
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object ADODataSet1: TADODataSet
Parameters = <>
Left = 232
Top = 72
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 232
Top = 128
end
end

withcsharp 2007-04-10

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls;

type
TForm1 = class(TForm)
ADODataSet1: TADODataSet;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
ADODataSet1.FieldDefs.Add('F1', ftString, 20);
ADODataSet1.FieldDefs.Add('F2', ftString, 20);
ADODataSet1.CreateDataSet;
ADODataSet1.Open;
for i := 1 to 100 do
ADODataSet1.AppendRecord([inttostr(i), 'data']);
ADODataSet1.First;
DBGrid1.Options := DBGrid1.Options + [dgAlwaysShowSelection];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Locate('F1', '66', [loCaseInsensitive]);
DBGrid1.SelectedIndex := 1;
end;

end.

2019ICPC 南京网赛 F. Greedy Sequence 标签难想的暴力前言我的csdn和博客园是同步的，欢迎来访danzh-博客园~ 这题读题好费劲... 简明题意读题太费劲了。给定序列a[]，现在需要你构造n个序列:$s_1-s_n$ 每个序列$s_i[1]=i$，然后对于每个s序列，相邻的两个数在a[]序列中的下标差不超过k。现在每个序列需要字典...

https://nanti.jisuanke.com/t/41303 #include<bits/stdc++.h> using namespace std; const int maxn=1e5+5; int max(int a, int b) { return a>b ? a : b; } int tree[4 * maxn]; int Pos[maxn]; void...

The Preliminary Contest for ICPC Asia Nanjing 2019 F.Greedy Sequence 题目链接 You’re given a permutation aa of length n(1≤n≤105)n (1 \le n \le 10^5)n(1≤n≤105). For each i∈[1,n]i\in [1,n]i∈[1,n], construct a sequence sis_isi by the following rules: si[1]=is

题意：给出n个整数，构造s1，s2，s3...sns1，s2，s3...sns1，s2，s3...sn，sisisi满足五个条件 1、s1[i]=is1[i]=is1[i]=i 2、对于1<j<=n对于1<j<=n对于1<j<=n，si[j]<si[j−1]si[j]<si[j-1]si[j]<s...

hdoj 3916 贪心 http://acm.hdu.edu.cn/showproblem.php?pid=3916 解: 比如一个序列2 3 4 3 3 1 如何拆成门函数分量使得长度尽量平均呢? 直观的想法是在消的过程中使序列尽量平均。首先想到是左边第一