摘要： 窗体的最大最小值 透明度 this.Opacity 颜色 this.BackColor = Color.AliceBlue; 禁止窗体关闭： private void Form1_FormClosing(object sender, FormClosingEventArgs e) { e.Cancel = true; } 阅读全文

摘要： 阅读全文

摘要： 如何 resize forms independent of screen resolution? The following code comes to us via Peter Jagielski, a former Borland engineer, and myself. Peter is responsible for the SetSize procedure, which does... 阅读全文

摘要： 一、windows server 2003 3790版本识别RTM=release to manufacture （公开发行批量生产）是给硬件制造商的版本！是送去压盘的,不是拿去卖的。OEM=Original Equipment Manufacturer只能全新安装， 和RTM差不多，只是称呼不同而已。RTL=retail（零售）正式零售版,可以升级或者全新安装。VLK=Volume Licens... 阅读全文

摘要： USE中加上Windows,SysUtils,Dialogs,{$R *.res}varmyMutex:HWND;beginmyMutex:=CreateMutex(nil,false,'docotrFind2011');if WaitForSingleObject(myMutex,0)<>wait_TimeOut thenbegin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end else showmessage('程序已运行，请不要重复 阅读全文

摘要： exe.name Extractfilename(application.exename) 路径加程序名：application.exename 阅读全文

摘要： procedure TForm1.Image1Click(Sender: TObject);//能用过程var S:TObject;begin S:=FindComponent('Timer'+inttostr(TImage(Sender).Tag));//Timer控件 ，名称为 Timer1---到 －－－Timer9 if Assigned(s) then ///利用TImage(Sender).Tag查找到 begin if TTimer(s).Enabled then begin TImage(Sender).Picture.Assign(image8.Picture 阅读全文

摘要： Free counters 阅读全文

摘要： 等写完了再贴上来 阅读全文

摘要： 实现 QQ面板的两个功能 ：1.接近屏幕边缘时，自动隐藏。2. 收缩式面板；一。自动隐藏：procedure TForm1.WMMOVING(var Msg: TMessage);begin inherited; with PRect(Msg.LParam)^ do begin Left := Min(Max(0, Left), Screen.Width - Width); Top := Min(Max(0, Top), Screen.Height - Height); Right := Min(Max(Width, Right), Screen.Width); Bottom := Min(M 阅读全文