2016年2月4日
自定义窗体(二)
摘要： //汉字窗体 procedure TForm1.btn1Click(Sender: TObject); var r: HRGN; begin r := CreateEllipticRgn(0, 0, 300, 300); SetWindowRgn(handle, r, true); DeleteOb 阅读全文
posted @ 2016-02-04 22:04 我爱土豆 阅读(107) 评论(0) 推荐(0)
自定义窗体(一)
摘要： //椭圆窗体 procedure TForm1.btn1Click(Sender: TObject); var r: HRGN; begin r := CreateEllipticRgn(0, 0, 300, 300); SetWindowRgn(handle, r, true); DeleteOb 阅读全文
posted @ 2016-02-04 22:02 我爱土豆 阅读(155) 评论(0) 推荐(0)
带进度条的ListView
摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ImgList; type TForm 阅读全文
posted @ 2016-02-04 20:26 我爱土豆 阅读(1196) 评论(0) 推荐(0)
改变Edit内容的对齐方式
摘要： SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or Es_right); 阅读全文
posted @ 2016-02-04 13:27 我爱土豆 阅读(278) 评论(0) 推荐(0)