在TreeView添加子节点闪烁的问题,我觉得又不会有人来回答了,delphi版啊?诶

在click事件里边添加从数据库里得到的记录
代码如下是写在TreeView的click事件里边的
Screen.Cursor := crHourGlass; { Show hourglass cursor }
with Datamodule1.cdsExt do
begin
Active := False;
Close;
DataModule1.sktExt.AppServer.KmGet0(inttostr(PKmRec(Node.data).CC));
Open;
First;
While Not Eof do
begin
New(PNodeDate);
PNodeDate.CC := FieldByName('Km_cc').AsInteger;
PNodeDate.UC := FieldByName('Km_Uc').AsInteger;
PNodeDate.cName := Trim(FieldByName('Km_Name').AsString);
PNodeDate.Code := Trim(FieldByName('Km_code').AsString);
PNodeDate.Lb := FieldByName('Km_Lb').AsInteger;
PNodeDate.Zj := Trim(FieldByName('Km_zj').AsString);
PNodeDate.Info := Trim(FieldByName('Km_Info').AsString);
PNodeDate.Lb_Name := Trim(FieldByName('LbName').AsString);
PNodeDate.ATTR := FieldByName('KM_Attr').AsInteger;
Ptn := TreeView1.Items.AddChildObjectFirst(Node,FieldValues ['Km_Name'],PNodeDate);
if PNodeDate.ATTR and $1 = 0 then //增加临时为空的子项目
TreeView1.Items.AddChildObjectFirst(Ptn,FieldValues['Km_Name'],Nil);
Next;
end;
end;
Screen.Cursor := crDefault;