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,补充一下：程序可以编译运行，但无法实现上述目标
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
T
300分还不能回答以上问题, 要多少分才行?(0分)
回复
0
查看
83
tom12345
T
T
300分还不能回答以下问题, 要多少分才行?(0分)
回复
0
查看
61
tom12345
T
M
在大富翁论坛有人回答问题后，我怎样才能看到答案？ (10分)
回复
3
查看
88
ligia
L
M
在大富翁论坛有人回答问题后，我怎样才能看到答案？ (10分)
回复
3
查看
105
山水之间
山
顶部