300分还不能回答以下问题, 要多少分才行?(0分)

  • 主题发起人 主题发起人 tom12345
  • 开始时间 开始时间
T

tom12345

Unregistered / Unconfirmed
GUEST, unregistred user!
300分还不能回答以下问题, 要多少分才行?
 
什么问题??在哪里???~~~
 
呵呵, 回答问题不等于帮你做。 给了你解题思路还给了关键代码还解决不了?
随便说说, 明明是100分的题,哪有300分?
 
只要能回答, 我可以再加200分
 
问题在哪儿???
 
当dbgrid内的一个列改变时, 如何使 edit 也跟着改变.
也就是说,在dbgrid的一个列内每击一下键盘(字母和数字),edit 都跟着改变.
 
一般情况下
在DBGRID的keyPress里面写事件,
然后
EDIT1.TEXT:=dbgrid1.InplaceEditor.Text;
就行了
 
输入第二个字符后, edit1才开始显示, 能否解决这个问题?
 
dbgrid1那有inplaceeditor这个东西
你的贴子在那里
我帮你实现
 
就在当最前一页
 
这个问题我不是给了答案了嘛,我测试通过了的,还有问题?
 
在Onchange事件上也加上嘛
 
nicklung,你说的方法根本不行,请认真看题目的要求
 
实在不行,拦截键盘对dbgrid的消息,然后更新肯定OK了
 
king.gray,能给出完整的代码吗?
 
倒。 还没解决呀?
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Edit1: TEdit;
procedure DBGrid1ColEnter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure GridTxtChange(Sender: TObject);
end;

...
implementation
type
TMyGrid=class(TCustomGrid);
TMyEdit=class(TInplaceEditor);
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
with TMyGrid(DBGrid1) do
begin
if InplaceEditor=nil then
ShowEditor;
if InplaceEditor<>nil then
TMyEdit(InplaceEditor).OnChange := GridTxtChange;
end;
end;

procedure TForm1.GridTxtChange(Sender: TObject);
begin
Edit1.Text := TEdit(Sender).Text;
end;
 
Another_eYes, 编译错误:Undeclared identifier: 'TinplaceEditor'
 
不好意思打错了: TInplaceEdit
 
Another_eYes:不好意思,还是不行。
 
Another_eYes,补充一下:程序可以编译运行,但无法实现上述目标
 
后退
顶部