飘动的五星红旗--delphi小程序
Written by spirit on 2008年4月24日这几天学校为了迎接奥运会,举行了一场运动会,我没参加,呆在宿舍没啥事,用delphi写了一个桌面小程序"飘动的五星红旗",来表达一下我的爱国之心。^_^
程序的实现方式为:利用image组件调用一个gif图片,隐藏窗体边框,隐藏任务栏图标,实现窗体透明.....
| 浏览:
|Posted in » 程序源码 分享知识,分享快乐--点点滴滴的积累记录着未来珍贵的回忆~
这几天学校为了迎接奥运会,举行了一场运动会,我没参加,呆在宿舍没啥事,用delphi写了一个桌面小程序"飘动的五星红旗",来表达一下我的爱国之心。^_^
程序的实现方式为:利用image组件调用一个gif图片,隐藏窗体边框,隐藏任务栏图标,实现窗体透明.....
| 浏览:
|Posted in » 程序源码 从win2k系统开始,ms就在操作系统中加入了一些API,利用这些api可以实现窗体(form)的半透明。
具体代码如下:
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
const
WS_EX_LAYERED=$80000;
AC_SRC_OVER=$0;
AC_SRC_ALPHA=$1;
...
| 浏览:
|Posted in » 程序源码 一句就能实现隐藏任务栏图标的功能:在form的create 事件中加入下面一行代码
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
但不要忘了在uses 里面加入 ShellApi 哟~~~
| 浏览:
|Posted in » 程序源码 好像有一句话这么说:真正的程序员用c,聪明的程序员用Delph。受了这句话的启发,这段时间在自学delphi,准备当个聪明的程序员^_^ 。
今天下午没课,就用delphi编了一个小程序,很简单的入门小程序,就是定义2个按钮,利用onmousemove事件让按钮隐藏、可见。高手不要见笑哟。
程序源码如下:
var
Form1: TForm1;
implementation
{$R *.dfm}
...
| 浏览:
|Posted in » 程序源码 目前正在学习《数据库系统概论》第四版,可网上还没有第4版的答案,只有找第三版的凑合一下了,其实3版和4版查不多的。本着有知识大家共同学习的观点^_^,分享给大家。本书是教育部“高等教育面向对世纪教学内容和课程体系改革计划”的研究成果,是面向21世纪课程教材和教育部高等学校计算机科学与技术学科“九五”规划教材。 本书是在第二版基础上修订而成的,与第二版相比较,在整体结构上进行了适当的调整,增加了数据库新技术方面的内容。全书内容包括:数据库模型、数据库...
| 浏览:
|Posted in » 程序源码 让Editplus支持汇编语言语法高亮显示,editplus php高亮转自 A.TNG(阿唐)的博客最近在看汇编,发现好多知识都还给老师了,得恶补回来。写了几行代码,发现SourceInsight感觉好不爽,还是用回最喜欢的Editplus。不过突然发现ep不支持汇编语言的语法高亮显示,很是郁闷,心想,如此强大的ep怎能如此弱,找了找ep的各个设置,发现在:工具-〉参数设置-〉文件-〉设置和语法 中有个可以设置语法高亮显示的选项,里头已经有了:cpp css html java js jsp ...
| 浏览:
|Posted in » 程序源码 此代码借鉴了网上的一些网友的代码,又加上了一些诸如不重复抽奖之类的改进。大概思路如下: 1.将所有的的抽奖数据(这里为手机号码)存入数组中。 2.使用random 函数随机产生该数组的INDEX 3.使用setInterval 函数以极短的时间间隔产生该数组随机INDEX所对应的手机号码,并显示。 4.使用removeEleAt(index)函数删除随机产生过的手机号码。并且重新组织生成剩
| 浏览:
|Posted in » 程序源码
| 浏览:
|Posted in » 程序源码 pascal的多多项式相加的代码:var sia:array [1..200,1..2] of integer; sc:char; sii,si,si1,si2:integer; s,s1:byte; ss1,ss2,ss3:string; ft:text; begin fillchar(sia,sizeof(sia),#0); s:=0; assign(ft,'lineb.in')
| 浏览:
|Posted in » 程序源码 多项式相加程序代码(C语言) ,供那些c语言初学者参考。#i nclude<stdio.h>#i nclude<malloc.h>#i nclude<stdlib.h>#define LEN sizeof(node)typedef struct polynode{ int coef; int exp; struct
| 浏览:
|Posted in » 程序源码 一个简单的复制代码,能够实现开机的自动运行。源代码如下:#include <windows.h>int WINAPI WinMain(HINSTANCE hThisInstance, HINSTANCE hPrevInstance, LPSTR lpszArgument, int nFu
| 浏览:
|Posted in » 程序源码