摘要：
原理见http://202.38.73.222/~pjf/blog/archives/000040.html
代码如下：
============form1.dfm==============
object form1: tform1
left = 192
top = 107
width = 396
height = 261
caption = form1
colo......
摘要：
unit unit1;
interface
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 = class(tform)
button1: tbutton;
memo1: tmemo;
......
Excel 常用 枚举常量 列表
excel 常用 枚举常量 列表 【程序编程相关:
delphi实现批量缩略图生成工具开发代】 【推荐阅读:
ShadowStar CodeFast 】 【扩展信息:
巧用DBGrid控件的Sort属性实现“】 // // type library items // // sheettype xlchart = -4109; xlworksheet = -4167; // wbatemplate xlwbatworksheet = -4167; xlwbatchart = -4109; // page setup xlportrait = 1; xllandscape = 2; xlpapera4 = 9; // format cells xlbottom = -4107; xlleft = -4131; xlright = -4152; xltop = -4160; // text alignment xlhaligncenter = -4108; xlvaligncenter = -4108; // cell borders xlthick = 4; xlthin = 2; enum msolinedashstyle { msolinedashstylemixed = -2, msolinesolid = 1, msolinesquaredot = 2, msolinerounddot = 3, msolinedash = 4, msolinedashdot = 5, msolinedashdotdot = 6, msolinelongdash = 7, msolinelongdashdot = 8 }; enum msolinestyle { msolinestylemixed = -2, msolinesingle = 1, msolinethinthin = 2, msolinethinthick = 3, msolinethickthin = 4, msolinethickbetweenthin = 5 }; enum msoarrowheadstyle { msoarrowheadstylemixed = -2, msoarrowheadnone = 1, msoarrowheadtriangle = 2, msoarrowheadopen = 3, msoarrowheadstealth = 4, msoarrowheaddiamond = 5, msoarrowheadoval = 6 }; enum msoarrowheadwidth { msoarrowheadwidthmixed = -2, msoarrowheadnarrow = 1, msoarrowheadwidthmedium = 2, msoarrowheadwide = 3 }; enum msoarrowheadlength { msoarrowheadlengthmixed = -2, msoarrowheadshort = 1, msoarrowheadlengthmedium = 2, msoarrowheadlong = 3 }; enum msofilltype { msofillmixed = -2, msofillsolid = 1, msofillpatterned = 2, msofillgradient = 3, msofilltextured = 4, msofillbackground = 5, msofillpicture = 6 }; enum msogradientstyle { msogradientmixed = -2, msogradienthorizontal = 1, msogradientvertical = 2, msogradientdiagonalup = 3, msogradientdiagonaldown = 4, msogradientfromcorner = 5, msogradientfromtitle = 6, msogradientfromcenter = 7 }; enum msogradientcolortype { msogradientcolormixed = -2, msogradientonecolor = 1, msogradienttwocolors = 2, msogradientpresetcolors = 3 }; enum msotexturetype { msotexturetypemixed = -2, msotexturepreset = 1, msotextureuserdefined = 2 }; enum msopresettexture { msopresettexturemixed = -2, msotexturepapyrus = 1, msotexturecanvas = 2, msotexturedenim = 3, msotexturewovenmat = 4, msotexturewaterdroplets = 5, msotexturepaperbag = 6, msotexturefishfossil = 7, msotexturesand = 8, msotexturegreenmarble = 9, msotexturewhitemarble = 10, msotexturebrownmarble = 11, msotexturegranite = 12, msotexturenewsprint = 13, msotexturerecycledpaper = 14, msotextureparchment = 15, msotexturestationery = 16, msotexturebluetissuepaper = 17, msotexturepinktissuepaper = 18, msotexturepurplemesh = 19, msotexturebouquet = 20, msotexturecork = 21, msotexturewalnut = 22, msotextureoak = 23, msotexturemediumwood = 24 }; enum msopatterntype { msopatternmixed = -2, msopattern5percent = 1, ...
下一页 摘要：
delphi中实现汉字拼音声母查询,unit代码如下：unit unit1;
interface
uses windows, messages, sysutils, classes, graphics, controls, forms, dialogs, stdctrls;
type tform1 = class(tform) listbox1: tlistbox; listbox2: t......
