ExSystem·许子健的专栏_ExSystem_CSDN博客-控件使用,日记本,新作专栏[iPowerFlashPlayer<暂名>]领域博主

原创我的新博客http://blog.csdn.net/ExSystem 本博客不再更新，谢谢！

我的新博客：http://blog.csdn.net/ExSystem本博客不再更新，谢谢！

2008-08-30 21:00:00 813

原创 [想法]用TreeNodes和Frame制作设置面板

[想法]用TreeNodes和Frame制作设置面板现在可以用来Computer的时间越来越少了……（主要是寒假作业做不完）在做iPowerFlashPlayer的“选项设置”功能，我的初步想法是要实现这种选项设置的东西-Winamp里面就有：下面给出粗略的声明：Type TFrameClass = Class Of TFrame; TBasePreference =

2006-02-03 20:02:00 1428

原创 [更新-下载]iPowerFlashPlayer 2.0.1.21 -build 20060129

iPowerFlashPlayer 2.0.1.21我制作的Flash播放器[暂定名]主要功能：1.完整的播放控制功能　［播放、暂停、停止、快进（参数可以设置）、快退（参数可以设置）、单帧前进、单帧后退］2.完整的缩放功能　［放大/缩小/100%］　［无边框/拉伸/全部显示］　［以后会有：全屏幕显示］3.完整的画面对齐功能4.可设定背景　［颜色/图片］5.播放列表功能　［目前有：新建/

2006-01-29 10:35:00 1882

原创为你的CSDN Blog添砖加瓦！

只要在【管理｜设置｜配置｜静态新闻/声明】的文本框内输入如下内容，然后更改红色字体部分即可！计数器你可以去申请一个，地址为http://www.xcinfo.ha.cn，然后把???替换为你的用户名。欢迎光临我的Blog！联系方式：MSN：abc@msn.comQQ：????请注明您在CSDN的用户名！E-mail：abc@cba.com转载请注明源文章出

2004-08-13 16:01:00 2019

原创我的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 2010 2

呵呵，大家好！这是我的第一篇在Blog上的日记… 我最近正在写代码，其实是在做一个Flash播放器，名字暂时叫［iFlashPlayer v2.0］，你也许会问为什么是2.0版的，因为以前，就是大约一年前，我也做过个FlashPlayer，本来是去参加比赛（初中时的比赛多多……呵呵，不过就只得过1次市二等奖，其它是三等奖2个，而且两个是网站制作，还有一个是Access“应用程序”），由于时间仓促，

2004-07-28 16:49:00 1946

原创如何做出像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 2228 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 4608 2

原创移动无标题栏窗口

一般情况下，移动一个窗体需要将鼠标放置在标题栏上才能拖动窗体，为什么非要使用标题栏呢？其实我们可以使用一个巧妙的方法来实现将鼠标放置在窗体上按下就可拖动窗体，下面先看实现代码。在Form1的“Private”部分声明过程：在private部分加入下列代码：procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;在程序

2004-07-21 11:14:00 2035

原创如何控制系统音量，但不能调用控制面板？

　　可以先编写一个控制音量的类，然后在窗体中Uses这个类，加入两个TrackBar【分别为左右声道，Min:=0;Max=255】与两个CheckBox【用于设置是否静音和两声道音量同步】，然后编写代码就可以了。 //--[Yoyoworks]---------------------------------------------------------------- //工程名称：prjPo

2004-07-14 14:14:00 2423

原创获得Memo、RichEdit的光标位置

获得Memo、RichEdit的光标位置：procedure TForm1.Button1Click(Sender: TObject);var Row, Col : integer;begin Row := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); Col := CustEdit.SelStar

2003-09-10 11:24:00 2678