http://www.pudn.com/downloads171/sourcecode/windows/detail791686.html unit Unit1; interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, gdipapi, gdipobj, Menus, StdCtrls;  type   TForm1 = class(TForm)…

http://www.cnblogs.com/pchmonster/archive/2012/01/07/2316012.html 最为一个巩固之前有关窗体和对象的有关知识,下面就建立一个简单的MDI示范程序,这个程序的功能是打开和保存图形文件(包括位图.图标等),为了完成这个任务,我们有一个大概的计划,计划内容如下: (1)建立主窗体(一个MDI父窗体),包括菜单. (2)为[File | Open…] 和[File | Save…]菜单选项编写代码. (3)为Windows菜单上的Casca…

求一个线程和主界面的交互的演示代码求一个线程和主界面的交互的演示代码.线程和主界面处于两个Unit.线程中的user中不能引用主窗口.我只是想学习一下,线程和主界面交互的方法.去网上查了好几天资料,能查到的都是user中引用主窗口的方法.据说可以通过别的方法实现,求大神指点下了.跪求~~~ ------解决方案--------------------就用DELPHI自带的DEMO.DELPHI 7 中目录如下:C:\Program Files\Borland\Delphi7\Demos\Thre…

DIOCP组件(Delphi IOCP)代码阅读之ADO内存表 代码中有 class procedure TADOTools.loadFromStream(pvDataSet: TCustomADODataSet; pvStream: TStream); var AR:_Recordset; begin AR:=_Recordset(CoRecordset.Create); pvStream.Position:=0; AR.Open(TStreamAdapter.Create(pvStream)…

一.About Mysql 1.Mysql 优点 体积小.速度快.开放源码.免费 一般中小型网站的开发都选择 MySQL ,最流行的关系型数据库 LAMP / LNMP Linux作为操作系统 Apache或Nginx作为 Web 服务器 MySQL作为数据库 PHP作为服务器端脚本 都是免费或开放源码软件,不用花一分钱就可以建立起一个稳定.免费的网站系统 2.登陆MySQL 登陆:mysql –h 主机名 -u 用户名 –p 注销:quit; 修改密码:mysqladmin –uroot –p…

namespace 窗体的浮动及隐藏{    partial class Form1    {        /// <summary>        /// 必需的设计器变量.        /// </summary>        private System.ComponentModel.IContainer components = null; /// <summary>        /// 清理所有正在使用的资源.        /// </summ…

delphi 动态绑定代码都某个控件 http://docwiki.embarcadero.com/CodeExamples/Berlin/en/Rtti.TRttiType_(Delphi)Button16第一次是绑定代码,第二次就是执行 procedure TForm2.Button16Click(Sender: TObject); var aMethod:tMethod; begin aMethod.Code:=self.MethodAddress('Button1Click'); aMe…

将目录下面所有的 .cs 文件合并到一个 code.cs 文件中,写著作权复制代码时的必备良药 @echo off echo 将该目录下所有.cs文件的内容合并到一个 code.cs 文件中! pause dir /ad/s/b > folderPath.txt md codeTemp for /f "tokens=1* delims=:" %%i in ('type folderPath.txt^|findstr /n ".*"') do (copy %%j…

type  TMainWindow = packed record    ProcessID: THandle;    MainWindow: THandle;  end;  PMainWindow =^ TMainWindow; function IsMainWindow(AHandle: THandle): Boolean; begin   Result :=(GetWindow(AHandle, GW_OWNER) = 0) and (IsWindowVisible(AHandle));…

假设类库或winform项目为A,另一个winform项目为B.那麽在A中添加一个接口,里面有一个Show方法,然后在B中写一个类b继承这个接口,并重写这个方法,具体内容为弹出某个窗体.然后在A中另一个类a中实例化B中的b类,并把它赋给A中的接口,然后调用接口的Show方法就可以弹出B中指定的窗体. 需要注意的是项目A和项目B需要互相引入对方的EXE或DLL文件. 转自:http://blog.csdn.net/a1027/article/details/2766396 以下为代码部分: nam…