自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 Mouse

Mouse.CursorPos.X   Mouse.CursorPos.Y

2009-10-20 01:31:00

阅读数 376

评论数 0

原创 ListView_Registry

var reg: TRegistry; KeyList: TStringList; intIdx: Integer; Itm: TListItem; s: string; begin try KeyList := TStringList.Create; re...

2009-10-19 02:06:00

阅读数 358

评论数 0

原创 ListView 写入到指定行列Demo

vars:string;i:integer;ListItem:TlistItem;beginListitem:=listview1.Items.Add;listitem.Caption:=牛年大吉;listitem.SubItems.Add(牛);listitem.subitems.Add(气);...

2009-10-18 23:33:00

阅读数 593

评论数 1

原创 onshow

procedure TForm1.FormShow(Sender: TObject);begin  form2.ShowModal;end;procedure TForm2.Timer1Timer(Sender: TObject);beginclose;end;procedure TForm2.F...

2009-10-18 02:24:00

阅读数 396

评论数 0

原创 Registry and AdvstringGrid

var sBuf: array[1..1024] of byte; begin sBuf[1] := 128; sBuf[2] := 00; sBuf[3] := 00; sBuf[4] := 00; sBuf[5] := 00; sBuf[6] := 126; s...

2009-10-18 02:05:00

阅读数 614

评论数 0

原创 GetSystemDirectory

varsBuf:array[0..Max_path] of char;beginGetSystemDirectory(sBuf,Max_path);showmessage(sBuf);showmessage(copy(sBuf,1,3));end;varsBuf:array[0..Max_path...

2009-10-18 02:01:00

阅读数 449

评论数 0

提示
确定要删除当前文章?
取消 删除