Delphi中控件的动态创建
网上搜集资料 参考写的代码 实现控件的动态创建 完整代码如下：
(实现界面)
-------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TControlClass =class of TControl ;
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
ControlClassArry: array[0..2]of
TControlClass= (TMonthCalendar,TMemo,TColorBox) ;
var
i:integer;
ControlObj:TObject ;
begin
for i:=0 to controlcount-1 do
if (Controls[i] is TMonthCalendar) or (controls[i] is TMemo)
or (Controls[i] is TColorBox) then
Controls[i].Free ;
ControlObj:= TControlFactory.create(self,ControlClassArry[RadioGroup1.ItemIndex]);
Label1.Caption :=ControlObj.ClassName ;
if (ControlObj is TMemo) then TMemo(ControlObj).Lines.Add('测试成功！');
if (ControlObj is TColorBox) then TColorBox(ControlObj).ItemIndex :=2;
end;
end.
-------------------
2009-11-04
相关文档：
1) Error loading midas.dll 没有注册midas.dll 运行RegSver32.exe midas.dll
2)Result := GetProcAddress(FGDIPlusLibrary, PChar(ProcName));编译 出现这样的问题，应该是设置方面的问题，Project->Options->Complier->Hugestrings 钩上就ok了！
3) TCheckListBox有个itemEnable ......
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/maozefa/archive/2009/10/28/4737584.aspx
图像缩放是最常用的图像处理，在图像拉伸和取得图像略图中都要用到。图像缩放质量的好坏与图像像素插值方式有关，本文定义了常用的3种插值方式，即临近插值、线性插值和双立方插值方式：
view plaincopy to clipboardpr ......
ListView1.Items 为标准 Tlistitems类
ListView1.Items
(1)赋值
with ListView1.Items.Add do
begin
Caption:=caption; //添加第一项
SubItems.add(aaaaa); //添加后面数据
SubItems.add(1234);
SubItems.add(1234);
end; //一定要使用WITH结构.
(2)取值
listview1.Items.Item[i].Caption 取得某条数据标题
l ......
delphi全局变量的定义与赋值主要有下面几种方法：
1.
全局变量的初始化
在最后结束的end.之前,增加initialization关键字,然后加入对全局变量的初始化,这样就可以初始化全局变量了.不论在interface还是在implementation部分的全部变量,都可以这么来初始化
//省略前面的interface, uses, type.
var
i: Integer;
......
CSDN论坛中，经常看到有关截屏的贴。所谓截屏，指的是获取屏幕，或者屏幕上某个窗口上的信息，并将其转换为图像的操作。为此，也写了几个Windows下的“截屏”函数：
过程定义：
// 获取Canvas有效区域内的图像数据。必须用FreeImageData释放数据结构
// 应调用ImageEmpty检查返回数据� ......
