修改GRID.pas
//在TCustomGrid.SetColWidths事件改为: procedure TCustomGrid.SetColWidths(Index: Longint; Value: Integer); begin   if FColWidths = nil then     UpdateExtents(FColWidths, ColCount, DefaultColWidth);   if Index >= ColCount then InvalidOp(SIndexOutOfRange);   if Value <> PIntArray(FColWidths)^[Index + 1] then   begin     if Value < 12 then Value := 30;   //新增        ResizeCol(Index, PIntArray(FColWidths)^[Index + 1], Value);     PIntArray(FColWidths)^[Index + 1] := Value;     ColWidthsChanged;   end; end;

如何让Edit控件的外观呈现下划线的样子？
其实很简单，只要设置Edit的几个属性就行了：

BevelEdges
  |_ beLeft = False;
  |_ beTop = False;
  |_ beRight = False;
  |_ beBottom=True; //就是下面那根横线了

BevelInner=bvNone;
BevelKind =bkSoft;
BevelOuter=bvRaised;
BorderStyle=bsNone;
ParentColor=True;

向ComboBox发送一条CB_GETDROPPEDSTATE信息：
If SendMessage(ComboBox1.Handle, CB_GETDROPPEDSTATE, 0, 0) = 1 then begin   {你的代码} end;

对XML文档操作的ASP实现（指定节点文本的增加、删除、修改、查看）

网上有位网友问：
请哪位大哥帮我解决一下问题，我在做一个商城的工行网上支付的功能，但是每次工行的系统都提示错误，（错误信息代码：32158），但是我就是找不到错在什么地方，请大家帮我找找错在什么地方，谢谢诶
原问题在这里：http://topic.csdn.net/u/20081030/19/30732157-ea32-409f-b8d5-d9022df6992d.html
这是网友提交出错的代码：