var i,ind:integer;
Sel : TListBoxItem;
Node : array of TWebBrowser;
sr:tstringlist;
begin
for I := 1 to 10 do begin
ListBox1.BeginUpdate;
Sel := TListBoxItem.Create(nil);
setlength(Node,length(Node)+1);
ind:=length(Node)-1;
Node[ind] := TWebBrowser.Create(nil);
Node[ind].Align := TAlignLayout.Client;
Node[ind].CanFocus:=false;
Node[ind].HitTest:=false;
Node[ind].Parent:=Sel;
Node[ind].ClipParent:=true;
sr:=tstringlist.Create;
sr.Text:='<!DOCTYPE html><html><head></head><body scroll="no">'+'Тестовое сообщение '+inttostr(i);
sr.Text:=sr.Text+'<br></body></html>';
Node[ind].LoadFromStrings(sr.Text,'http://chat.message');
sr.Free;
Node[ind].SendToBack;
Sel.AddObject(Node[ind]);
Sel.Height:=64;
Sel.Parent:=panel2;
Sel.SendToBack;
ListBox1.AddObject(Sel);
ListBox1.EndUpdate;
end;
image1.BringToFront;
image1 - это кнопка и она должна быть всегда сверху.
Но этого не происходит. Новые ячейки перекрывают ее. Так же при листании ячейки закрывают верхнюю панель!
Как это исправить?