L
lcl_003
Unregistered / Unconfirmed
GUEST, unregistred user!
我动态的创建了一个窗体的多个实例
var
chartview:array of Tchartview;
count:byte;
begin
count := high(chartview1)-low(chartview1)+1;
SetLength(chartview1,count+1);
chartview1[high(chartview1)] := Tchartview.Create(self);
chartview1[high(chartview1)].show;
end;
窗体里有个timer
然后我在线程里判断如果存在几个实例就让它们的timer都启动
procedure mythread.seechartview();
var
i:byte;
begin
for i:=0 to high(chartview1) do
begin
if chartview1<>nil then //但没判断到这里就出错
chartview1.Timer1.Enabled:=true;
end;
end;
但是我在启动线程之前必须创建一个窗体实例才不会出错,if chartview1<>nil then
好象没用啊,我想得到的结果是如果没有一个实例存在那就什么也不做,如果存在那就让它
的timer启动,该怎么写?
var
chartview:array of Tchartview;
count:byte;
begin
count := high(chartview1)-low(chartview1)+1;
SetLength(chartview1,count+1);
chartview1[high(chartview1)] := Tchartview.Create(self);
chartview1[high(chartview1)].show;
end;
窗体里有个timer
然后我在线程里判断如果存在几个实例就让它们的timer都启动
procedure mythread.seechartview();
var
i:byte;
begin
for i:=0 to high(chartview1) do
begin
if chartview1<>nil then //但没判断到这里就出错
chartview1.Timer1.Enabled:=true;
end;
end;
但是我在启动线程之前必须创建一个窗体实例才不会出错,if chartview1<>nil then
好象没用啊,我想得到的结果是如果没有一个实例存在那就什么也不做,如果存在那就让它
的timer启动,该怎么写?