关于股票软件的键盘精灵！

Question

关于股票软件的键盘精灵,谁给段完整代码，谢！
分不够再加：）

Answer 1

画一个Form，摆上一堆按钮，然后keybd_event()

Answer 2

我只做过键盘控件和APP，所以我问你要什么功能

Answer 3

表面看来是一个EDIT和一个STRINGGRID，当键入数字或字母时弹出带有前面两个控件的窗体。
它通过键入EDIT的数字或字母进行过滤并显示在STRINGGRID上。并且STRINGGRID的第一行响应ENTER键。
他过滤的两个文件（深圳，上海）的格式为
000001  深发展A 
000002  万科A

当输入0，那么所有0打头的将都显示在STRINGGRID上，并且STRINGGRID的第一行响应ENTER键。
当输入W，那么所有发音头个为W，将都显示在STRINGGRID上。
随着输入数字或字母的增多，也就是条件的增加，查询的也越精确。分不够可加！！！

Answer 4

http://www.stock2000.net:89/exponent/step1/2/1-2-14.htm

Answer 5

to hezchuan168(开心果) 哪是个股经的截图呀！有代码吗，谢：）

Answer 6

windows的帮助索引就是这个原理...小研究一下.. 

Answer 7

估计包含股票代码的那个数据库,除了有股票代号(600001)字段外,应该还有股票简码字段(sfz),我以前用vb做了一个超市商品检索的键盘精灵,就是把这些代码统统加到了数据库里.

Answer 8

给你一个函数，解决你的问题procedure SearchByPYIndexStr(Const SourceStrs:TStringList;Const PYIndexStr:string;Const IType:Integer; Box:TListBox);
label NotFound;
var
  i, j   :integer;
  hzchar :string;
begin
  box.Items.Clear;
  for i:=0 to SourceStrs.Count-1 do
    begin
      for j:=1 to Length(PYIndexStr) do
        begin
          if Length(SourceStrs[i])=0 then goto NotFound;
          hzchar:=SourceStrs[i][j];
          if PYIndexStr[j] <> hzchar
          then goto NotFound;
        end;
        if (IType=0)or((IType=1)and(codes[integer(sourcestrs.Objects[i])][1]='*'))or((IType=2)and(codes[integer(sourcestrs.Objects[i])][1]='^')) then
         box.Items.Addobject(SourceStrs[i],sourcestrs.Objects[i]);
NotFound:
    end;
end;

Answer 9

喜欢玩证券分析软件的朋友可以看看
http://www.stockviews.info/Test/Index.htm   （大小写敏感的，建议直接拷贝到IE的地址框中）
现在只支持通视卡，本人正在与有关数据提供公司商量合作事宜，以后可以直接使用网络来传送数据。