2008 年 12月 4 日随笔档案 - 水若冰

2008年12月4日

摘要：自画TlistView带进度条的Item TListView的Item条一般是由系统自画的，但电驴就实现了自画，使之看起来很漂亮，我们用DELPHI也可以实现！首先要引用CommCtrl单元，这是TListView底层控制单元：usesCommCtrl;//画状态条procedure DrawSubItem(LV: TListView; Item: TListItem; SubItem: Inte... 阅读全文

posted @ 2008-12-04 19:56 水若冰阅读(8925) 评论(1) 推荐(3) 编辑

delphi发送邮件

摘要：控件smtp: TIdSMTP;MgeSend: TIdMessage;代码procedure TForm1.Button1Click(Sender: TObject);begin SMTP.Host:='smtp.163.com'; smtp.Username:='zhm001x@163.com'; smtp.Password:='paswrd'; smtp.Port:=25; smtp.Con... 阅读全文

posted @ 2008-12-04 15:12 水若冰阅读(5567) 评论(6) 推荐(0) 编辑