技巧分享：计算机二级考试DELPHI基础开发技巧

　　◇[DELPHI]取得TMemo 控件当前光标的行和列信息到Tpoint中

　　1.function ReadCursorPos(SourceMemo: TMemo): TPoint;

　　var Point: TPoint;

　　begin

　　point.y := SendMessage(SourceMemo.Handle,EM_LINEFROMCHAR,SourceMemo.SelStart,0);

　　point.x := SourceMemo.SelStart-SendMessage(SourceMemo.Handle,EM_LINEINDEX,point.y,0);

　　Result := Point;

　　end;

　　2.LineLength:=SendMessage(memol.handle,EM-LINELENGTH,Cpos,0);//行长

　　◇[DELPHI]读硬盘序列号

　　function GetDiskSerial(DiskChar: Char): string;

　　var

　　SerialNum : pdword;

　　a, b : dword;

　　Buffer : array [0..255] of char;

　　begin

　　result := "";

　　if GetVolumeInformation(PChar(diskchar+":\"), Buffer, SizeOf(Buffer), SerialNum,

　　a, b, nil, 0) then

　　Result := IntToStr(SerialNum^);

　　end;

　　◇[INTERNET]CSS常用综合技巧

　　1。P:first-letter { font-size: 300%; float: left }//首字会比普通字体加大三倍。

　　2。//连接一个外部样式表

　　3。嵌入一个样式表

　　4。 //内联样式

　　Arial//SPAN接受STYLE、CLASS和ID属性

　　DIV可以包含段落、标题、表格甚至其它部分

　　5。CLASS属性

　　//定义见3。

　　6。ID属性

　　//定义见3。

　　7。属性列表

　　字体风格:font-style: [normal italic oblique];

　　字体大小:font-size: [xx-small x-small small medium large x-large xx-large larger smaller <长度> <百分比>]

　　文本修饰:text-decoration:[ underline overline line-through blink ]

　　文本转换:text-transform:[none capitalize uppercase lowercase]

　　背景颜色:background-color:[<颜色> transparent]

　　背景图象:background-image:[ none]

　　行高:line-height: [normal <数字> <长度> <百分比>]

　　边框样式:border-style: [ none dotted dashed solid double groove ridge inset outset ]

　　漂浮:float: [left right none]

　　8。长度单位

　　相对单位:

　　em (em,元素的字体的高度)

　　ex (x-height,字母 "x" 的高度)

　　px (像素,相对于屏幕的分辨率)

　　绝对长度:

　　in (英寸,1英寸=2.54厘米)

　　cm (厘米,1厘米=10毫米)

　　mm (米)

　　pt (点,1点=1/72英寸)

　　pc (帕,1帕=12点)