1) Я хочу сделать процедуру, которая добавляла-бы новый Item (с заданной иконкой (ImageIndex:=0)), к существующему объекту List(TTreeView). procedure TForm1.ad(text:string); var node: TTREENODE; begin node:=Ttreenode.create(nil); node.ImageIndex:=0; list.Items.Add(node,text); end;
procedure TForm1.FormCreate(Sender: TObject); begin list.ParentCtl3D:=false; list.Ctl3D:=false; ad('123'); end; Но так, как я работаю с TTreeView впервый раз, то написал какую-то билиберду, кторая к тому же не хочет рабтать. Выдает ошибку. Исправьте, plz. 2) У кого-нибудь есть нормальное описание TTreeView с примерами?
А справку по Delphi VCL читать пробовал? В частности, "TTreeNodes.Add" example.
with TreeView1.Items.Add(nil, 'Новая нода') do ImageIndex := 0; end;
Ответ отправлен: 08.01.2003, 13:41 Отправитель: Артём Шегеда
Вопрос № 407
Вот в Listbox1 есть свойство Itemindex, содержащее числовое значение выделенного элемента: MediaPlayer1.FileName:='D:mp3'+ListBox1.Items[ListBox1.ItemIndex]+'.mp3' Как сделать то же самое но с компонентом TTreeView? (В СПРАВКЕ Я ЭТОГО НЕ НАШЕЛ)
Плохо искал... Если тебе нужно текстовое представление текущей отмеченной ноды, то достаточно обратиться так:
if TreeView1.Selected<>nil then MediaPlayer1.FileName:='D:\mp3\'+TreeView1.Selected.Caption+'.mp3';
А если тебе нужен порядковый номер ноды (нафига?), то так:
if TreeView1.Selected<>nil then MediaPlayer1.FileName:='D:\mp3\'+IntToStr(TreeView1.Index)+'.mp3';
Ответ отправлен: 08.01.2003, 16:05 Отправитель: Артём Шегеда Отвечает Necro
Доброе время суток, pcgamer! MediaPlayer1.FileName:='D:\mp3\'+TreeView1.Selected.Text+'.mp3';
Ответ отправлен: 08.01.2003, 16:05 Отправитель: Necro
Вопрос № 410
Здравствуйте! Сестра уехала учится в Германию, купила там комп с клавой без русских букв. Решил написать ей виртуальную клаву. Где-то нашел вот такой код: SendMessage(form1.RichEdit1.Handle, WM_CHAR, Ord('а'), 0); //(для - а) Вот только он работает у меня лишь в Windows 98, в Windows XP вместо букв нечитаемые символы. Подскажите код, чтобы работал в Windows XP и Windows 2000. И как можно эмулировать нажатие Enter и Tab? Для Backspace я написал так: sendmessage(form1.RichEdit1.Handle,WM_KEYDOWN ,8,0); - работает, а в случае с Enter и Tab - не срабатывает.
Добрый день, Konstantin! ===== Pro bono publico, no bloody panico! ===== 1) Для верности используй шестнадцатеричные коды клавиш (e.g. 'а' - $E0); 2) "Нечитаемые" - это соответсвие твоей 'a' в данном конкретном шрифте (i.e. шрифт, скорее всего без кириллицы). 3) Для эмуляции см. виртуальные коды клавиш (VK_), к тому же проверь в РичЕдите выставление свойств на табуляцию и перевод каретки. ПиС: ты бы ей лучше наклейки на клавиши купил, или клаву выслал :), впрочем, можно и отдельно клавиши... Ответ отправлен: 09.01.2003, 12:01 Отправитель: Idle Sign
Вопрос № 411
В Delphi 6, 5 были компоненты от NetMasters "FastNet". В Delphi 7 этих компонентов нет. На сайте NetMasters можно купить новую версию компонентов, но это стоит 200 баксов. Не подскажите, где можно скачать подобную версию бесплатно или что еще можно сделать(за искучением другого компонента).
Добрый день, Great Lesh! Да забей ты на них. Возьми описалово из MSDN програзма на WinSock и пиши сам. Так и структуру всего этого поймешь. Ответ отправлен: 09.01.2003, 03:21 Отправитель: Jadd Отвечает Idle Sign
Здравствуйте, Great Lesh! ===== Pro bono publico, no bloody panico! ===== Из любого платного можно при желании сделать бесплатный. рекомендую прочитать статью с www.reversing.net от RedPlait'а (ели не ошибаюсь) под названием "Исследование компонентов Delphi" (опять же, если не ошибаюсь). А вообще, тебе никто не мешает дернуть компоненты из предыдущих версий. ПиС: но, конечно, много честнее и благороднее отдать им 200 баксов. Ответ отправлен: 09.01.2003, 12:02 Отправитель: Idle Sign
Форма отправки вопроса
Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook"
и "Microsoft Outlook Express". В программе The Bat!
подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте,
что в некоторых браузерах могут стоять запреты на открытие других
окон, а также "чрезмерное" кэширование данных,
при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet
Explorer 5.0+ или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.