Passion
(LiuXiao)
管理员
UID 359
Digest Posts
19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline
|
|
是在CnPaletteEnhancements.pas 中实现的,代码如下:
procedure TCnPaletteEnhanceWizard.UpdateComponentPalette(AMultiLine: Boolean);
begin
if Assigned(ComponentPalette) then
begin
if ComponentPalette.MultiLine <> AMultiLine then
begin
ComponentPalette.MultiLine := AMultiLine;
if AMultiLine then
begin
ComponentPalette.OnResize := ResizeComponentPalette;
ComponentPalette.OnResize(ComponentPalette);
end
else
ComponentPalette.OnResize := nil;
end;
end;
end;
关键是控制ComponentPalette这个TTabControl的MultiLine属性。当它被设置成True时,需要手工调用一次OnResize事件让其重画并且调整窗体等大小。
|
|
|