- 博客(6)
- 收藏
- 关注
RSS订阅原创 我的Blog的CSS设置…
body { font-size : .9em; font-family : Verdana, Geneva, Arial, Helvetica, sans-serif; margin : 0px;} a:visited,a:active,a:link { color: Navy; text-decoration : none;} a:hover { border:1px solid #0080
2004-07-29 09:48:00
2207
2
原创 20040728 我的第一篇网络日记…
呵呵，大家好！这是我的第一篇在Blog上的日记… 我最近正在写代码，其实是在做一个Flash播放器，名字暂时叫［iFlashPlayer v2.0］，你也许会问为什么是2.0版的，因为以前，就是大约一年前，我也做过个FlashPlayer，本来是去参加比赛（初中时的比赛多多……呵呵，不过就只得过1次市二等奖，其它是三等奖2个，而且两个是网站制作，还有一个是Access“应用程序”），由于时间仓促，
2004-07-28 16:49:00
2059
原创 如何做出像Foxmail、MSN的消息窗体的效果
Procedure TForm1.FormCreate(Sender: TObject);Begin Form1.Top := Screen.Height; Form1.Left := Screen.Width - Form1.Width; SysTmrTimer.Enabled := True;End; Procedure TForm1.SysTmrTimerTimer(Sender: T
2004-07-23 22:36:00
2321
3
原创 动画显示窗体
procedure TForm1.FormCreate(Sender: TObject);begin AnimateWindow(Handle,2000{速度：2秒},AW_BLEND);{ AW_HOR_POSITIVE = $00000001; AW_HOR_NEGATIVE = $00000002; AW_VER_POSITIVE = $00000004; AW_VER_NEGATI
2004-07-23 22:32:00
4734
2
原创 移动无标题栏窗口
一般情况下，移动一个窗体需要将鼠标放置在标题栏上才能拖动窗体，为 什么非要使用标题栏呢？其实我们可以使用一个巧妙的方法来实现将鼠标放置 在窗体上按下就可拖动窗体，下面先看实现代码。在Form1的“Private”部分声明过程： 在private部分加入下列代码：procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;在程序
2004-07-21 11:14:00
2126
原创 如何控制系统音量，但不能调用控制面板？
可以先编写一个控制音量的类，然后在窗体中Uses这个类，加入两个TrackBar【分别为左右声道，Min:=0;Max=255】与两个CheckBox【用于设置是否静音和两声道音量同步】，然后编写代码就可以了。 //--[Yoyoworks]---------------------------------------------------------------- //工程名称：prjPo
2004-07-14 14:14:00
2541
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人