delphi
AWEI1972
这个作者很懒,什么都没留下…
展开
-
stringgrid 显示imagelist里面的图片
以前是用Dev的cxgrid可以很方便地根据数据库里某个字段值显示ImgList里的图片,但现在由于要做三层,三层里的主从表不太好控制,所以改由非感知表格控件。 把imagelist里面的图片通过getbitmap,保存到一个TBItMap变量中,然后利用stringgrid的canvas属性,draw到相应的cell当中。当然,代码要在stringgrid的onDrawCell事件中处理。代码转载 2013-01-30 10:26:54 · 1855 阅读 · 0 评论 -
delphi webbrowser 模拟表单提交
procedure TForm9.PINGLUN(Title,Content,YD:string); var frw:IHTMLDocument2; TT1,TT2,TT3:IHTMLInputElement; LIst:IHTMLElementCollection; ListTexty:IHTMLOptionButtonElement; K:I原创 2013-04-01 09:32:24 · 1051 阅读 · 0 评论 -
delphi Webbrowser 获取网页源代码
uses MSHtml funct Get_html(WEB:TWebbrowser):string; var IHTML:IHTMLElement; begin if Assigned(WEB.Document) then begin IHTML := (WEB.Document AS IHTMLDocument2).body; whi原创 2013-04-01 09:24:10 · 1320 阅读 · 0 评论