- 博客(2)
- 资源 (14)
- 收藏
- 关注
原创 两行代码实现两个或者多个窗体的磁性吸附
两行代码即可实现....两个窗体的磁性依附,,个人感觉非常好用![code=Delphi(Pascal)][/code]procedure TForm1.Timer1Timer(Sender: TObject);begin FORM2.Left:=form1.Left+form1.Width; form2.Top:=form1.Top;end; 就这两行代码.....
2008-09-12 16:59:00
801
原创 取excel,access表名,列名
/取所有表名procedure TForm1.FormCreate(Sender: TObject);var tep:integer; Tname:Tstring;begin Opendialog1.Execute; ADOConnection1.ConnectionString:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=+Opendialo
2008-09-07 16:12:00
519
渐变式弹出式消息框,实现了窗体渐变,窗体停靠,鼠标经过自动弹出
2010-01-16
一套超炫的控件,个人感觉不用皮肤了...
2009-01-17
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人
RSS订阅