pavellyba
-
Постов
12 -
Зарегистрирован
-
Посещение
Сообщения, опубликованные pavellyba
-
-
Сам нашел решение:
(listbox1.ItemByIndex(listbox1.ItemIndex) as tnode).FEdit.Text
-
Создал класс объекта:
type TNode = class(TListboxItem) FImage: TImage; FEdit: Tedit;
Добавляю этот объект в ListBox
listbox1.AddObject(Node);
Вопрос - Как получить теперь доступ к этим объектам?
Что-то типо Listbox1.Items[Listbox1.ItemIndex].Fedit.Text
-
Единственный способ, создавать собственный объект. А это значит самому писать прокрутку. А это муторно - вот и пытался, так разрулить
-
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 - это кнопка и она должна быть всегда сверху.
Но этого не происходит. Новые ячейки перекрывают ее. Так же при листании ячейки закрывают верхнюю панель!
Как это исправить?
-
-
Как скопировать текст в буфер обмена? Пишу прогу для Android
-
Как удалить смс на Android устройстве? Читать смс умею, отправлять умею, а как их удалять все найти не могу
-
Как создать собственный жест?
-
Пишу программу для Android, не могу сохранить в формате *.bmp. Пишет "error saving bitmap failed". Что делать? Очень нужно сохранить именно в BMP
-
А для Делфи?
-
А как регулировать качество сохранения?!
C++Builder 10 Доступ к элементам стиля
в Доступ к элементам стиля
Опубликовано