VCL中的Shape是个很不错的控件，可以选择几种图形，以满足我们的需求，但有时候就是觉得它的可选图形少了一点，比如我们想要一个三角形，它却没有。于是就想到来扩展一下这个控件，名为ShapeEx。其实扩展的功能不多，只是增加了一些图形。而类也并不是继承自TShape，而是继承自TGraphicControl，这样可以让我们彻底看看图形控件的做法。Tshape也是继承自TGraphicControl。而我们的扩展控件功能是基于Shape的扩展，所以当然里面的代码几乎取之TShape，只是加了一些扩展图形的代码，但又有什么关系呢，VCL源码是最好的学习资源，我们何不取之用之。
很多东西我们已经在上面说过了，这里不多说了，我要直入图形控件的重点。图形控件不是封装Windows的控件，而是Delphi自己画出来的，那么它肯定有一个画控件的函数。这个函数就是:
Paint;
看一下VCL源码，可以知道它定义在TGraphicControl。中：
procedure Paint; virtual;
这是一个虚函数，那么它的实现是怎么样的呢，点击看它的实现如下：
procedure TGraphicControl.Paint;
begin
end;
里面什么码也没有，这个很容易理解，因为它不可能知道他的子类的图形是什么样子的。所以设为虚函数，由它的子 ......
這個界面是用PB做的，delphi如何設實現呢，想用dbControlGrid來實現(好像也做不到)，
問題是如何實現不同生產類別顯示出來的方式不一樣
......
概要
自去年CodeGear被英巴卡迪诺（Embarcadero Technologies）收购后，大家对Delphi的未来发展非常关心。近日，InfoQ中文站有幸对David I进行了独家专访，以了解更多关于Delphi的相关信息。
个人简介
David Intersimone（简称David I），英巴卡迪诺负责开发者关系的副总裁和首席宣传官（Chief Evangelist）。David负责与开发者社区开展密切合作，确保CodeGear的战略产品规划满足广大开发者与开发团队的需求。
David本人是一位出色的软件开发者，充分发挥了开发者在软件业界的重要性。23年前，David作为产品服务经理加入到Borland，曾经担任过工程/开发类职位，创建了开发者关系部门。在加入Borland之前，他曾是Softsel Computer Products（即现在的Merisel公司）的产品服务经理。
David拥有加利福尼亚州州立理工大学的计算机科学学士学位。
David您好，很高兴接受InfoQ中文站的采访，您能给我们介绍一下您自己吗？
好的，我是David Intersimone，大家都叫我David I，现在是负责开发者项目和关系的副总裁、首席布道师，帮助全世界的开发者使用我们公司的各种产品。
您来中国已经很多次了，这次来给大家带来了什么新鲜的信息呢？
我这次过来主要是来访问一些 ......
这是一个实例：
procedure TMainForm.Button1Click(Sender: TObject);
var
arr:array of array of string;
begin
setlength(arr,2,3);
arr[1,2]:='this is a test';
setlength(arr,0,0);
setlength(arr,4,5);
showmessage(arr[1,2]);
end;
声明一个二维数组的方法是用 array of array of 类型 这很贴近人们的思维方式。同理可推出三维数组的声明方法为 array of array of array of 类型
对二维数组大小的调整仍然使用SetLength函数，第一个参数是数组名称，第二个参数是最靠近数组名称那个维度的大小，第三个参数是远离数组名称的维度的大小，以此类推。
在以上的例子中还有一个特别之处。就是声明了一个大一点范围的二维数组以后，如果对数组重新分配大小，并且这个新的大小是小于原来数组的，那么，大的二维数组与小的二维数组之间相差的部分将会被清除。即便是马上将数组大小调整回来甚至更大，都不能使这些数据回来。这个和Delphi中提供的TStringGrid控件不一样。对TStringGrid的行列数量进行调整后，原来的数据都不会丢失，除非使用TStringGrid.Rows.Clear;
另外，Delphi中还允许设置非矩阵型的动态数组� ......
一．编写 RC 脚本文本
用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下：
AVI 无声动画
BITMAP 位图文件
CURSOR 光标文件
ICON 图标文件
WAVE 声音文件
以上所列均为标准资源类型，也可以给资源自定义一个类型，如：“mytype”。不过两者在调用方式上有些不同。
二．根据 RC 脚本文件编译成 RES 资源文件
在命令提示符中输入以下内容： brcc32 FileName.rc //注：brcc32.exe在DelphiX\Bin目录中
三．在Delphi单元中加入资源文件
将生成的 RES 资源文件复制到相应程序所在的目录中，在单元文件中的“{$R *DFM}”后面加上“{$R FileName.res}”，编译后资源文件就被包含在可执行文件中了。
说明：如果嫌2、3两步麻烦，可以采用更简便的做法，即：将 RC 文件直接添加到项目中，在编译Delphi项目时，会自动编译该资源文件。
四．资源文件调用示例
（1）存取资源文件中的位图
//RC: testBmp bitmap res\te ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口：
ExcelApp.Visible := True;
2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add;
4) 打开已存在的工作簿：
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表：
ExcelApp.WorkSheets[2].Activate;
或
ExcelApp.WorksSheets[ 'Sheet2' &nb ......
最新文章 : delphi