论坛首页 › 电脑综合 › Iocomp的图形控件如何动态创建和删除？

acer 发表于 2010-2-9 10:56:34

Iocomp的图形控件如何动态创建和删除？

哪位网友能给个示例？

hitler 发表于 2010-2-9 11:11:25

搭车问一个问题，如果程序用了iocomp控件，如何发布？
不想让客户自己装盗版iocomp。

wychao 发表于 2010-2-9 12:03:33

回复【1楼】hitler
-----------------------------------------------------------------------

打个包，试试

hitler 发表于 2010-2-9 12:15:38

晕，楼上没用过iocomp的别进来添乱。

ysoni 发表于 2010-2-9 13:06:18

.Create(Object)、.Free两函数

acer 发表于 2010-2-9 16:15:15

Delphi么？

knigh 发表于 2010-2-10 08:46:05

DELPHI用Create创建，Free释放

acer 发表于 2010-2-17 18:21:28

谢谢

jjry 发表于 2010-3-1 18:25:30

两位能说明白点吗？跟打哑谜似的，小弟实在看不懂啊～～～

eworker 发表于 2010-3-29 10:06:26

关注

zlei 发表于 2010-3-29 10:40:58

)Procedure Tform1.Button2click(Sender:Tobjet);

　　2)Var

　　3) Button:Tbutton;

　　4) Begin

　　5) Button:Tbutton.cerate(self);

　　6) Button.parent=panel1;

　　7) Button.lleft=0;

　　8) Button.top=0;

　　9) Button.caption:='OK';

　　10) End；

yinnianlong 发表于 2012-4-3 09:21:00

关注。。。。。。。。。。

mimikankan 发表于 2012-4-3 11:31:03

unit UnitMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, iComponent, iVCLComponent, iCustomComponent, iLed,
iLedRound, ExtCtrls;

type
TFrmMain = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
FrmMain: TFrmMain;
iled:array of TiLedRound;
implementation

{$R *.dfm}

procedure TFrmMain.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to 15 do
begin
    iled:=TiLedRound.Create(Self);
    iled.Parent:=Self;
    iled.Left:=10+i*40;
    iled.Top:=10;
    iled.Width:=33;
    iled.Height:=33;
    iled.ActiveColor:=$00aa00+i*10;
    iled.Show;
end;
Timer1.Enabled:=True;
end;

procedure TFrmMain.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to 15 do
    iled.Active:=not iled.Active;
end;

procedure TFrmMain.Button2Click(Sender: TObject);
var
i:Integer;
begin
Timer1.Enabled:=False;
for i:=0 to 15 do
    iled.Free;
end;

end.

查看完整版本: Iocomp的图形控件如何动态创建和删除？