MBevel
MLabel
MImage
MPanel
MTabbedNoteBook
MDBGrid
MSpeedButton
MBitbtn
MDBkey
MListBox
MSQLtable
MGroupBox
MHBkey
MFormProperty
MRadioGroup
MpageControl
MprogressBar
如果有谁知道这个控件包,或者用过这其中的一个控件,请告诉我。100分为谢!

解决方案 »

  1.   

    TMSPACK 托马斯组控件
    www.51delphi.com
    www.playicq.com
      

  2.   

    TO: syxx(永不妥协) 
    我找过了,没有找到!
    并且用的是GOOGLE,你确定是这个名字吗?
    能不能详细一点对我说这套组件在哪里我很急的
      

  3.   

    TMSPACK 托马斯组控件
    好象有点不太对,因为这个控件的第一个字母应该是M而不应该是TM
      

  4.   

    http://search.cpan.org/author/RCS/同样用GOOGLE。
      

  5.   

    好象有点不太对,因为这个控件的第一个字母应该是M而不应该是TM
      

  6.   

    天心ERP FAS2000  就是用的这个吧
      

  7.   

    TO karl(多功能算术逻辑运算单元):
    是吗?我也不知道这个控件是哪里的,是和一个网友讨论的。
    这个控件看来你是用过了,能说一下吗?
    如果你能提供给我最好不过了,我找了很久了。
      

  8.   

    这个包没地方下载,这些东西怎么能提供下载呢?
    www.attn.com.cn
      

  9.   

    unit Button;interfaceuses
      SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
      Forms, Dialogs, StdCtrls;type
      MButton = class(TButton)
      private
        { Private declarations }
        FCaptionID:Word;
        FHintID:Word;
      protected
        { Protected declarations }
        procedure Loaded; override;
      public
        { Public declarations }
      published
        { Published declarations }
        Property CaptionID:Word read FCaptionID write FCaptionID default 0;
        Property HintID:Word read FHintID write FHintID default 0;
      end;
    implementation
    uses MSystem,Form,Language;procedure MButton.Loaded;
    var
      str:string;
    begin
      inherited Loaded;
      if not (csDesigning in ComponentState) then
      case LanguageID of
       2:  begin Font.Name:='Times New Roman';
                 Font.Size:=9;
                 //Font.Style:= fsBold;
    //             Font.Style:=[];
           end;
      end;
      if CaptionID >= StartID then
      begin
        str:= MForm(Owner).LoadFormStr( CaptionID );
        if str <> '' then Caption:=str;
      end;
      if HintID >= StartID then
      begin
        str:= MForm(Owner).LoadFormStr( HintID );
        if str <> '' then
        begin
          Hint:=str;
          ShowHint:=True;
        end;
      end;
    end;end.
    把分给我好了!
      

  10.   

    TO snake_eye(黄昏深处的白骨盾牌) 
    这些东东我也有,
    我的是FAS版本的,
    很想向前辈们学习一下ERP软件的精华。另外我觉得界面可以自己设计是一个不错的创意
    最近我正把这种构想用到我个人所做的一个物流软件中。那些东东我是有的。
    FAS版本是最全的了。里面的两个子文件夹里的FAS.EXE是可以运行到帐套建立完毕的。
    我想假以时日,如果真的找不到控件的话,我会尝试通过DFM文件还原。
    应该说是求知若渴吧!
      

  11.   

    to snake_eye(黄昏深处的白骨盾牌) 
    我想问一下你们这些天心的前辈,MFormProerty、MDBkey、MSQLTable,这三个控件是从哪继承的,多了哪些属性和方法。
      

  12.   

    snake_eye(黄昏深处的白骨盾牌)
    if you give me answer.
    i must finish this note.
    i want to make friend with you and other fas's friend.
      

  13.   

    发送者 karl 发送时间 2003-3-28 21:26:11 删除  回复  
    内容 楼主在上海吗?我也是上海的,和天心FAS系统有什么关系吗?该控件包我没有用过,我是通过反编译FAS系统(仅做研究)知道的,有兴趣可以一起研究一下 
      

  14.   

    TO KARL:
    可以一起研究!
      

  15.   

    不就是几个控件吗?有什么神秘的?
        把对应的控件继承一下,类名以M开头,再加几个属性就行了。
    天心ERP FAS2000东西很难弄啊,我手上一堆类名以M开头控件。