◇[DELPHI]取得TMemo 控件當(dāng)前光標(biāo)的行和列信息到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。 //內(nèi)聯(lián)樣式

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

　　DIV可以包含段落、標(biāo)題、表格甚至其它部分

　　5。CLASS屬性

　　//定義見3。

　　6。ID屬性

　　//定義見3。

　　7。屬性列表

　　字體風(fēng)格: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 ]

　　文本轉(zhuǎn)換:text-transform:[none capitalize uppercase lowercase]

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

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

　　行高:line-height: [normal <數(shù)字> <長度> <百分比>]

　　邊框樣式: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 (點(diǎn),1點(diǎn)=1/72英寸)

　　pc (帕,1帕=12點(diǎn))