🚀 go-pugleaf

������: skywalker (``), ����: Delphi
��  ��: ����DecisionGrid ������
����վ: ��ˮ˼Դվ (Tue Dec 23 14:06:43 1997) , ת��

�������
��Ǹ��������Unixʹ�ò��������ֲ�����BBS��д���ģ���̵�����û�������
С���������£��ҵ�һ��������ʹ����DecisionGrid component����0�л�0��
��������Ҽ�ᵯ��һ���˵�������'Drill in'һ�д��֡��ͻ�һ��֮�£�
��ŭ��˵����ʲô�ϱ�������ֱ�����ش����һ�����Ϣ����ʹ֮Do nothing,
����һ�������Σ����ڳ����У����ڱ��е����Ҽ�λ�?Ԫ��ֱ�����ؽ�
��һ����Ҳ�����ˡ���λ�����и��У���ӭָ�̣�������л���ˡ�

==  DecisionGrid��Delphi3��'Decision Cube'����

�Ұ����Լ�����ij���������棬ϣ�����������ٴθ�л����

unit DecisionGrid1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
  Grids, mxgrid;

type
  TDecisionGrid1 = class(TDecisionGrid)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure wndproc(var message:Tmessage);override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Tsinghua', [TDecisionGrid1]);
end;
procedure TDEcisionGrid1.wndproc(var message:Tmessage);
//������д�ģ����������һ�
begin
     if message.msg=WM_RBUTTONDOWN then
     exit;

     inherited wndproc(message);
     end;
end.

--
�� ��Դ: �й�ƴ�BBSվ [bbs.ustc.edu.cn]