Перейти к содержанию
Fire Monkey от А до Я
  • 0

При динамическом создании объектов, они всегда поверх всех.


pavellyba

Вопрос

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 - это кнопка и она должна быть всегда сверху.

Но этого не происходит. Новые ячейки перекрывают ее. Так же при листании ячейки закрывают верхнюю панель!

 

Как это исправить?

Ссылка на комментарий

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...