//文字在窗体上水平来回移动procedure TForm1.Timer1Timer(Sender: TObject);{ Timer1.Interval:=10;}beginif label1.Left+label1.Width>0 thenlabel1.Left:=label1.Left-2el...
分类：
移动开发 时间：
2014-07-29 21:46:52
阅读次数：
228
//array应用 DayOfWeek星期几判断procedure TForm1.Button1Click(Sender: TObject);vardays:array[1..7] of string;todayIs:string;begindays[1] := '日 ';days[2] := '一...
分类：
其他好文 时间：
2014-07-29 21:44:22
阅读次数：
306
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var node: TTreeNode;
begin if Boolean(TreeView1.GetNodeAt(X,Y...
分类：
其他好文 时间：
2014-07-29 21:39:32
阅读次数：
244
//动态创建组件TEditprocedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);varEdit:TEdit;beginEdit:=Tedit.Cr...
分类：
其他好文 时间：
2014-07-29 21:30:22
阅读次数：
242
//刷新系统桌面
//方法1 uses ShlObj; SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); --------------------------------------------------------------...
分类：
其他好文 时间：
2014-07-29 21:14:42
阅读次数：
253
//关闭计算器 procedure TForm1.Button1Click(Sender: TObject); var HWndCalculator: HWnd; begin HWndCalculator := FindWindow(nil, '计算器'); // 查找计算器句柄 if HWndCa...
分类：
其他好文 时间：
2014-07-29 21:11:22
阅读次数：
186
//这样就是左键单击mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );// 按下mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );//弹起//这样就是双击了!mouse_event( MOUSEEVENTF_LE...
分类：
其他好文 时间：
2014-07-29 20:56:02
阅读次数：
179
//Canvas 在Image控件中绘制文字procedure TForm1.Button1Click(Sender: TObject);beginimage1.Canvas.Font.Size:= 72; //设置文字大小image1.Canvas.TextOut(1,1,'Delphi'); /...
分类：
其他好文 时间：
2014-07-29 20:54:42
阅读次数：
187
{turn monitor off}SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2); //关闭显示器{turn monitor on}SendMessage(Application.Handle, WM_SYSCO...
分类：
其他好文 时间：
2014-07-29 20:51:22
阅读次数：
274
对于一直用Oracle的我，今天可是非常诧异，MySQL中同一个函数在不同数量级上的性能居然差距如此之大。 先看表ibmng(id,title,info) 唯一 id key索引title 先看看两条语句： select * from ibmng limit 1000000,10 sele...
分类：
数据库 时间：
2014-07-29 20:42:52
阅读次数：
269
