Y
yifawu
Unregistered / Unconfirmed
GUEST, unregistred user!
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
段
段荣誉
Unregistered / Unconfirmed
GUEST, unregistred user!
可设定readonly为true,如不想改数据的话。
Y
yifawu
Unregistered / Unconfirmed
GUEST, unregistred user!
可是我还要 Edit 表啊！
Y
yifawu
Unregistered / Unconfirmed
GUEST, unregistred user!
并且我还要用 table.insert 语句插入记录！
L
liuly
Unregistered / Unconfirmed
GUEST, unregistred user!
用DBGridEh吧，很简单就搞掂
Y
yifawu
Unregistered / Unconfirmed
GUEST, unregistred user!
我可没有DBGridEh,并且已经用上了DBGrid ，难到用DBGrid 就没有办法吗？
我想给表格增加一 keydown 事件,当按下向下光标键时，此时 var 的值为
40， 用del(key,40)退回此键，可是不知道什么时候用它？
我想给表格增加一 keydown 事件,当按下向下光标键时，此时 var 的值为
40， 用del(key,40)退回此键，可是不知道什么时候用它？
蒋
蒋劲刚
Unregistered / Unconfirmed
GUEST, unregistred user!
将DataSource的AutoEdit 属性设为False,需要修改时用Table.Edit;
Y
yifawu
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么没有能回答此问题？
Y
yifawu
Unregistered / Unconfirmed
GUEST, unregistred user!
能否将记录做上书签？
W
www
Unregistered / Unconfirmed
GUEST, unregistred user!
用下面的办法:
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if table1.RecNo=table1.RecordCount then key:=0;
end;
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if table1.RecNo=table1.RecordCount then key:=0;
end;
W
www
Unregistered / Unconfirmed
GUEST, unregistred user!
刚才错了，应该这样:
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=Vk_down then if table1.RecNo=table1.RecordCount then key:=0;
end;
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=Vk_down then if table1.RecNo=table1.RecordCount then key:=0;
end;
W
wumeng
Unregistered / Unconfirmed
GUEST, unregistred user!
给表格增加一 keydown 事件,判断，然后key:=0;
应该可以。
应该可以。
L
liuly
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_DOWN then
begin
key := 0;
Table1.Next;
if Table1.Eof then Table1.Cancel;
end;
end;
Shift: TShiftState);
begin
if key = VK_DOWN then
begin
key := 0;
Table1.Next;
if Table1.Eof then Table1.Cancel;
end;
end;
J
jqw
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_DOWN then
begin
key := #0;
Table1.Prior;
end;
end;
Shift: TShiftState);
begin
if key = VK_DOWN then
begin
key := #0;
Table1.Prior;
end;
end;
S
shkk
Unregistered / Unconfirmed
GUEST, unregistred user!
If dbgrid1.focued then
在 dbgrid1.dbdate.beforeinsert事件中: Abort;
在 dbgrid1.dbdate.beforeinsert事件中: Abort;
M
mech
Unregistered / Unconfirmed
GUEST, unregistred user!
要使其不自动增加记录，只是屏蔽DOWN键是不行的。
因为TAB，INSERT键都可以增加记录。
如果只有菜单或按键才能加记录，可以这样。
1.在FORM的PRIVATE中设一标志,区分是不可以
增加.
CANINSERT:BOOLEAN
2.在TABLE或其它数据集的BEFOREINSERT中加入以
下代码:
IF NOT CANINSERT
ABORT;
3.在菜单的命令中
CANINSERT:=TRUE;
TABLE1.APPEND;
CANINSERT:=FALSE;
因为TAB，INSERT键都可以增加记录。
如果只有菜单或按键才能加记录，可以这样。
1.在FORM的PRIVATE中设一标志,区分是不可以
增加.
CANINSERT:BOOLEAN
2.在TABLE或其它数据集的BEFOREINSERT中加入以
下代码:
IF NOT CANINSERT
ABORT;
3.在菜单的命令中
CANINSERT:=TRUE;
TABLE1.APPEND;
CANINSERT:=FALSE;
J
jobsxy
Unregistered / Unconfirmed
GUEST, unregistred user!
应该是mech的方法，在Table的事件onNewRecord或BeforeInsert过程中处理，
而不是DBGRID的按键事件
而不是DBGRID的按键事件
W
wjiachun
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
Similar threads
- 回复
- 4
- 查看
- 4K