500' 求类似用友财务控件，记账凭证那个dbgrid (100分)

求类似用友财务控件，记账凭证那个grid
当grid某个cell获得焦点时，如货币列获得焦点时会显示编码（101），如果失去焦点，则显示人民币；
请大家帮个忙，很急
或者提供思路我自己做一个，

怎么没人回答，分太少了吗？ 可以加分[]

自己画啊，，，，DBGrid1DrawColumnCell

可以在grid事件里面编程解决

有两种解法，第一你用DELPHI的自己的表格控件做一个CELL组件呀，虽然不是太好做，但也不太难做。
第二，你自己买一套CELL组件呀，才二千多元吗

谢谢大家的回答,
大家用过用友的软件吗,不时很容易实现的[]

[] 我正在做这个控件，不过确实很麻烦，也很难的

第二，你自己买一套CELL组件呀，才二千多元吗
太cheap了，要买就要买二万的。

记账凭证的那个GRID不是
那个不是cell组件吧

我觉得是自己做的控件，如果那个grid里面的cell获得焦点，有一个小按钮能弹出一个form进行选择。我用过cell，好像不能实现这样的功能，我再研究看看，

难道那个记账凭证的控件真是cell5.1？

用友的软件里面的好像是用一个个自己画出来的

用友的凭证不是有cell或grid做的，他们是用一个个的文本框组成的，delphi中做凭证的有用ehlib做的还不错

我觉得他们应该有这样的控件,不需要自己画的，我正在做这个控件，真是挺麻烦的 [!]

我已经搞定了

自己写了一个控件，用dbgrid+Tmymemo(memo+bitbtn) //不过Tmymemo不是很好
当在memo里面写text时候，bitbtn变没了，不过按下去还存在，只不过被覆盖了
当重新刷新时候又可以，大概是这样：
TmyMemo = class(TMemo)
private
FBitbtn:TBitbtn;
Flist:Tstringlist;
Fmydbgrid:Tmydbgrid;
FstrSQL: string; //需要从MyMemo弹出的语句

public
constructor Create(AOwner: TComponent); override;


begin
inherited;
self.Height :=58; //设置Memo的height;
self.Width :=128; //设置Memo的width;
self.Visible :=true;

self.FBitbtn:=TBitbtn.Create(nil);
self.FBitbtn.Parent :=self;
self.Visible :=true;
self.FBitbtn.Glyph.LoadFromFile('find.bmp');

self.FBitbtn.Top := 30 ; //距离 Memo的顶端
self.FBitbtn.Left :=100 ; //距离 Memo的左边
self.FBitbtn.Width :=18;
self.FBitbtn.Height :=18;
self.FBitbtn.Caption :='...';
self.FBitbtn.Visible :=true;
self.FBitbtn.OnClick := self.btnClick; //!!!!

// self.BringToFront ; //设置TDBMemo排在TBitbtn的前面

谁帮我看看？[]

我做的控件还是有问题
哪位能给我想想办法？[]