在StringGrid中实现下拉框功能

q;jQ*nS'eP0http://dev-club.esnai.com/club/bbs/showEssence.asp?id=2258851Testing软件测试网'_1X ` P0ou~m1^

独孤九剑于 2003-1-17 11:40:27

5D;]+ii'\Y051Testing软件测试网4e0A:J e9\ w nE3~
TStringGrid 实现下拉框比较常见的思路是在TSringGrid中嵌入一个TComboBox ，51Testing软件测试网2w#z/T&E+sJs
思路虽然简单，但开发起来却很麻烦，而且有时会出现不愿看到的效果。

z|z PGpk {Xt0还有一种更巧的方法，是Delphi未公开的。51Testing软件测试网*Vz m$CX"SC
51Testing软件测试网*M!u{{#Q
先看两个Delphi提供的VCL：
%_Iq&FK!Z3b'G0
#e sS3f'Tn |3Kk%m0TInplaceEdit 是Delphi 提供的一个未公开的控件，只能内嵌于TCustomGrid
#x,MGF-\ry0         中使用，TStringGrid 单元格的编辑功能就是由该控件实现的。
SSD0ujgz5sf#R:z%F0
i2YHI5Hj7z%[-z0TInplaceEditList 是TInplaceEdit的子控件，该控件实现了下拉框和带省略号
J;bk+X%N[&n'sk"ee0         的按钮的功能，也是只能在TCustomGrid 中使用。51Testing软件测试网.u+d2eP$i o-[3q
         OnEditButtonClick 事件，按钮按下时触发该事件。
.~~Sl4f;M0k"E0         OnGetPickListitems 事件，下拉框弹出前触发该事件，在该事件的处
9H#F)B
^xsq0         理中可以改变下拉框的内容。
@@-w@AXi^0         
Au"F.r-bV4cDU*|0
9m^KT zsBh)G0TEditStyle =(esSimple, esEllipsis, esPickList)。
m2dC%@Q ZC%q{0         编辑器类型，esSimple 普通类型，esEllipsis 带省略号按钮类型，51Testing软件测试网iz[MR Y-z
         esPickList 下拉框类型。
1r4P;j9VU u R0         51Testing软件测试网T&Ce0^sJJHsA*OO
TCustomGrid ，看一下它的两个protected函数:51Testing软件测试网gug/c _Z~a
       FInplaceEdit: TInplaceEdit;
$W0ov7a3[K(M2z!{0         FInplaceEdit 是TCustomGrid的编辑器。
P ^
ZD+B#UU]0         
8S-Y;jB*]%X/Z|pJ0       Function GetEditStyle(ACol, ARow: Longint): TEditStyle; dynamic;
+c)ea\W.v%k0       获取给定单元格的编辑器属性。51Testing软件测试网4C7Rq?E
       51Testing软件测试网7o5`4b/B
u}%Ta.]
       Function CreateEditor: TInplaceEdit; virtual;51Testing软件测试网!bs~7xw,j
       TCustomGrid  创建编辑器。51Testing软件测试网I3h;q8e }Xpm"J
       
)^"}q ii0       TCustomGrid 只对这两个函数作了最基本的实现，其源代码如下：
b!rU9xrR0            51Testing软件测试网 [8LU&gd
      function TCustomGrid.CreateEditor: TInplaceEdit;51Testing软件测试网
jAkA+P`9K
a!z
      begin51Testing软件测试网~u6Z? wWMe?1j
                  Result := TInplaceEdit.Create(Self);
%Fa$Qe@-w'tX0      end;51Testing软件测试网-g)o!bHo{ obV1|
            51Testing软件测试网(to1h Tv
      function TCustomGrid.GetEditStyle(ACol, ARow: Longint): TEditStyle;
w-mW.iU4ZI3z0      begin51Testing软件测试网cK2pO#w3Qs
           Result := esSimple;
pU(vjq0      end;51Testing软件测试网4k4BsiK Z N oj
51Testing软件测试网CgF\6R4T/E-M
      TStringGrid 没有改变这两个函数，因此TStringGrid没法用TInplaceEditList51Testing软件测试网9u0drA?-Md#k(^
      实现下拉框功能 。
cAg
a$l\{3Zw[0      51Testing软件测试网zD(Ns+o#o
      51Testing软件测试网$Do]D7W*P9j
实现原理：
.]f7@2V^B\D0      TStringGird 第一次进入编辑状态前由CreateEditor 创建编辑器，在编辑器
#G+?R5p|
W3kB0      显示前会访问TCustomGrid.GetEditStyle 函数，并由该函数的返回值决定编51Testing软件测试网 r"gM!]O0]+}R
      辑器类型。对于TInplaceEditList而言，如果GetEditStype 返回esEllipsis ，
7a]ZUF0      就是具有按钮功能的编辑器，如果返回值是esPickList ，就是下拉框类型的编51Testing软件测试网[+ih9U3?8@
      辑器，并在显示之前触发OnGetPickListitems事件。因此在TStringGrid的子控
t*r:U
H4W&J0      件中重新实现这两个函数，首先使CreateEditor创建的编辑器为TinplaceEditList51Testing软件测试网bP j:W A:hh
      型的，然后在GetEditSyle函数中引出OnGetEditStyle事件，在应用环境中决定编
e"b"pQk6ScC0`0      辑的类型。51Testing软件测试网[MsG4X,~
O
      51Testing软件测试网}@j/G.O
51Testing软件测试网7k,c,`-Rhw


[E;RuQ,^/_0
C'[L)A%\a$k4^X+t I051Testing软件测试网])\p
Ppa1?4j
unit DropListGrid;
6}z,f3x$W!Cr.?0
sl_te"EF$C'q"HH0interface
C3zx;o4d i^051Testing软件测试网%UuiQ4KJI
uses
D$d;e.fUcZ]0  Windows, Messages, SysUtils, Classes, Controls, Grids,Forms;51Testing软件测试网:D CmN
}O
51Testing软件测试网kw4[,H1i/f;_B
type
yXx YR7yyD0  TOnGetEditStyle = procedure(ACol, ARow: Integer;var EditStyle:TEditStyle) of Object;
e,w"q!T vB+v0O$^xS(W0  TOnGridEditButtonClick=procedure(Sender:TObject;ACol,ARow:Integer)of Object;51Testing软件测试网w"WotURF4y*z6o
  TDropListGrid = class(TStringGrid)51Testing软件测试网h*l,\0fP9h"K
  private51Testing软件测试网E V4r9Dh!Ci
    { Private declarations }51Testing软件测试网%m+m
]`UK
    FButtonWidth: Integer;51Testing软件测试网gt!d2p7Q9Y p}
    FDropDownRows: Integer;
5VCy1p}8ND*Vn0    FOnEditButtonClick: TOnGridEditButtonClick;51Testing软件测试网Z]+Sb/e
    FOnGetPickListitems: TOnGetPickListItems;
J;A;T[6[AG9e!R0    FOnGetEditStyle: TOnGetEditStyle;51Testing软件测试网2XJ \\
lN
    procedure setFButtonWidth(const Value: Integer);
ORe;Mz/Co0    procedure setFDropDownRows(const Value: Integer);51Testing软件测试网%E7rE"`*Pf
    procedure SetFOnEditButtonClick(const Value: TOnGridEditButtonClick);51Testing软件测试网!OQ%];Op#J?,Q[x
    procedure SetFOnGetPickListitems(const Value: TOnGetPickListItems);51Testing软件测试网i;s6E E5@-J6b"d
    procedure SetOnGetEditStyle(const Value: TOnGetEditStyle);
@*n\+w)JtENk0    procedure ButtonClick(Sender: TObject);51Testing软件测试网j N3a l+E0Wp
    procedure GetPickListitems(ACol, ARow: Integer; Items: TStrings) ;
.A)krI)W_6Mp^051Testing软件测试网NI+X2b0bQ2K.{ n
  protected                     //TInplaceEditList
Fu(u+cn$O\L/T_6h0    { Protected declarations }51Testing软件测试网F3{U%\'y.efE
     function CreateEditor: TInplaceEdit;override;51Testing软件测试网B*L
nY5Q/`zf JB
     function GetEditStyle(ACol, ARow: Longint): TEditStyle; override;

Wfh!oZy'f0  public
[7bk%C'D@X;hb0    { Public declarations }
*v(hc/c'dT3P0     destructor Destroy; override;51Testing软件测试网/|,j'c(pl'rQ?
  published
|a9_Lr0    { Published declarations }51Testing软件测试网&N0g;V e&KV kf
    property ButtonWidth: Integer read FButtonWidth write setFButtonWidth;
n[i:Gj!c2h.b0    property DropDownRows: Integer read FDropDownRows write setFDropDownRows;
v0c UwFXX0    property OnEditButtonClick: TOnGridEditButtonClick read FOnEditButtonClick51Testing软件测试网^D.~-Tp\)[
      write SetFOnEditButtonClick;
*FOk0\8dO0    property OnGetPickListitems: TOnGetPickListItems read FOnGetPickListitems51Testing软件测试网K5lpT9q*Y#Dh-MY a
      write SetFOnGetPickListitems;51Testing软件测试网:Q&j;K}x X2n
    property OnGetEditStyle:TOnGetEditStyle read FOnGetEditStyle write SetOnGetEditStyle;
&y-~i2aC6u(r
\)N"Q0
LAn9o_.a+?C1y0  end;51Testing软件测试网tR~5C }s+f

m H%xg kj}0procedure Register;
]Tb6J.u1?051Testing软件测试网`l4nW,Z
implementation51Testing软件测试网he*Tq%Dx
51Testing软件测试网-VXv,]C0QT,fy
procedure Register;
#m;Np9vD/R0begin51Testing软件测试网Z4Y3Lim}tO
  RegisterComponents('SelfVcl', [TDropListGrid]);51Testing软件测试网tL:Ov;O.O
end;
"R|x%D-ax0
:E)j%ZH1L]_9j^;LD0{ TDropListGrid }
'[%a&zQ5lh0

[f O;e _0procedure TDropListGrid.ButtonClick(Sender: TObject);
i*rD5R1lb2a g&oU0begin51Testing软件测试网usr7uc4ZHW r6i S
   if Assigned(FOnEditButtonClick) then
4l-[aU8b)UZ_U0      FOnEditButtonClick(Self,Col,Row);51Testing软件测试网)d3@6MQ;C @
end;
V?_X6hw"K(y8?(Z;`nN0
#RA!AM[%Fq0function TDropListGrid.CreateEditor: TInplaceEdit;
Z8u u1N)[:Mk Qw0begin51Testing软件测试网{n U)x,k8J5WF6fq
   Result := TInplaceEditList.Create(Self);51Testing软件测试网
O^W C:i{s"t
   result.Parent:=Self;
7G)Ye
`/lPTj$I4X0   with TInplaceEditList(result)do
*yb5]f8P9e+k4C0   begin
9K"U2k s2x6C0      Font:=Self.Font;51Testing软件测试网'w*I1p&c5nf/T,k
      if FButtonWidth>0 then
.D&|Y-wm0         ButtonWidth:= FButtonWidth;51Testing软件测试网1?bC K(u8u
      if FDropDownRows>0 then
bIL(~%kV,ai)y$Y%W,w0         DropDownRows:=FDropDownRows;
.tp.|$~yA0      OnEditButtonClick:=ButtonClick;51Testing软件测试网mvJz8V!|}P"{
J
      OnGetPickListitems:=GetPickListitems;51Testing软件测试网Qmf;P{3\n
   end;
7A{s@mE'Tx[0
t3bp7D:\*c'Q0end;
8rU+Q ]R{StH051Testing软件测试网x u |!A!ss"K
destructor TDropListGrid.Destroy;51Testing软件测试网8Z-Q#dPqk.f+S
begin51Testing软件测试网A(H2T E f@{JD
   if InplaceEditor<>nil then
*v ~WmV0      if TInplaceEditList(InplaceEditor).PickListLoaded then51Testing软件测试网4x^r:AEV5q
         TInplaceEditList(InplaceEditor).PickList.Items.Clear;
c|6yX!l
y)l0   inherited;
3f"W}b-VK-I,DB0end;
i N?0Sj$`*m Eqesting软件测试网KlN;L a
function TDropListGrid.GetEditStyle(ACol, ARow: Integer): TEditStyle;51Testing软件测试网
|(`^C
`+q$v7et$?
begin
;tD#I@A}V6n0   result:=inherited GetEditStyle(ACol, ARow);51Testing软件测试网QG(]QkZ
   if Assigned(FOnGetEditStyle) then51Testing软件测试网.FU^ioXR
      FOnGetEditStyle(ACol,ARow,result);51Testing软件测试网A.{G
R(mG k2q
end;51Testing软件测试网8^8G.b$bn*jT
51Testing软件测试网.vfRC]0yLY
procedure TDropListGrid.GetPickListitems(ACol, ARow: Integer;51Testing软件测试网|X-J$sJ9B Z7M
  Items: TStrings);
o~'I/KWQ_0begin51Testing软件测试网-|}t R)RO2\
   if Assigned(FOnGetPickListitems) then51Testing软件测试网'~s r[JO
      FOnGetPickListitems(ACol,ARow,Items);
4V)bDwN0end;
|Ji"a+X.b051Testing软件测试网R`9q2}-s{%C
procedure TDropListGrid.setFButtonWidth(const Value: Integer);
"|%RvNP0Kz'G1p"{0begin
_5|/~{*n
n0[T\0  FButtonWidth := Value;51Testing软件测试网TO0p |:F|
  if InplaceEditor<>nil then51Testing软件测试网OP1^[WWi
     TInplaceEditList(InplaceEditor).ButtonWidth:=Value;
pG[] cmtO0end;51Testing软件测试网9C*`m.b)D|Gf6Bh

tqtPGg9~U3Z-|0procedure TDropListGrid.setFDropDownRows(const Value: Integer);51Testing软件测试网-h3P$a"{FNN x0Y_
begin51Testing软件测试网
L[T$s?"WG4v:z|
  FDropDownRows := Value;51Testing软件测试网 z
Wqb!P5]
  if InplaceEditor<>nil then51Testing软件测试网$Z|s)ppAP
     TInplaceEditList(InplaceEditor).DropDownRows:=Value;51Testing软件测试网7d rcRLl5F5l%b
end;51Testing软件测试网;`t8gF&f
51Testing软件测试网;|u~ pwhU
procedure TDropListGrid.SetFOnEditButtonClick(const Value: TOnGridEditButtonClick);
*k9BDGd,tnZ\0begin51Testing软件测试网F,n2bi X6H,a7fX
  FOnEditButtonClick := Value;
%^ nQxmj}n%j0end;51Testing软件测试网6}%@c?:j6@r
^Qf
51Testing软件测试网,^&m|r'l:{x
procedure TDropListGrid.SetFOnGetPickListitems(51Testing软件测试网5p1B.o7M8t.V[2M7b3I
  const Value: TOnGetPickListItems);
U$?N9xf+RF0begin
+]U3J;?8~)b u0  FOnGetPickListitems := Value;
P
i]a(tG Z.Dm051Testing软件测试网;D0?"{&D3?w?6M)u
end;51Testing软件测试网#G%HDh3Dar
51Testing软件测试网^E l9P5[R
51Testing软件测试网 k7z2r/k
Q4F&w-k sv
procedure TDropListGrid.SetOnGetEditStyle(const Value: TOnGetEditStyle);
9RXc~$p%g(H%WJ0begin51Testing软件测试网kCLx)^,rd w l
   FOnGetEditStyle := Value;
+piQJ#I2@,a0end;
m C#`4O#mmd D051Testing软件测试网;^.B'THJQUg"U
51Testing软件测试网n{9\E7|0F'n
end.

+C*pb }HMg0 51Testing软件测试网.E&GG3k9Y

RD[1H,Bcp$D}
z2]s0 

==============下面是我生成SelVcl的过程

1、在delphi中新建一个component

2、将以上代码张贴到新建单元中

;o|U'Y1x9mS G03、编译生成一个Pas文件在Lib目录下

4、通过install component加入到SelVcl

|+nNJ,@/C_05、新建一个工程，在SelVcl页中使用该控件

Y+Z|9F:o,?
p"w~7`nba06、设置属性：goEditing:=true;

3|_u|pgaL07、在OnGetEditStyle事件中写EditStyle:= esPickList;

c6{r;nM/Yn0调试可以看到，在点击网格进入编辑状态后，就会显示下列按钮51Testing软件测试网1i5j'fka7m w-U^2\-g