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

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

哪位网友能给个示例？

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 [0..15] of TiLedRound;
implementation
{$R *.dfm}
procedure TFrmMain.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to 15 do
begin
iled[i]:=TiLedRound.Create(Self);
iled[i].Parent:=Self;
iled[i].Left:=10+i*40;
iled[i].Top:=10;
iled[i].Width:=33;
iled[i].Height:=33;
iled[i].ActiveColor:=$00aa00+i*10;
iled[i].Show;
end;
Timer1.Enabled:=True;
end;
procedure TFrmMain.Timer1Timer(Sender: TObject);
var
i:integer;
begin
for i:=0 to 15 do
iled[i].Active:=not iled[i].Active;
end;
procedure TFrmMain.Button2Click(Sender: TObject);
var
i:Integer;
begin
Timer1.Enabled:=False;
for i:=0 to 15 do
iled[i].Free;
end;
end.

复制代码

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

阿莫论坛20周年了！感谢大家的支持与爱护！！

本帖子中包含更多资源