Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на Delphi

Выпуск № 126
от 12.01.2003, 20:10

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 419
Отправлено ответов: 800
Активность: 190.9 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Артём Шегеда
Статус: Профессиональный
Общий рейтинг: 116.67
URL: Пристанище неодинокого программиста
[Подробней >>]
Necro
Статус: Доверительный
Общий рейтинг: 109.68
[Подробней >>]
Idle Sign
Статус: Опытный
Общий рейтинг: 147.94
URL: Blind Team
[Подробней >>]
 
Jadd
Статус: Профессиональный
Общий рейтинг: 143.93
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 406. 1) Я хочу сделать процедуру, которая добавляла-бы новый Item (с заданной иконкой (ImageIndex:=0)), к... (ответов: 1)
Вопрос № 407. Вот в Listbox1 есть свойство Itemindex, содержащее числовое значение выделенного элемента: MediaPlay... (ответов: 2)
Вопрос № 410. Здравствуйте! Сестра уехала учится в Германию, купила там комп с клавой без русских букв. Решил напи... (ответов: 1)
Вопрос № 411. В Delphi 6, 5 были компоненты от NetMasters "FastNet". В Delphi 7 этих компонентов нет. На... (ответов: 2)

Вопросов: 4, ответов: 6


 Вопрос № 406

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 с примерами?



Вопрос отправлен: 08.01.2003, 13:13
Отправитель: pcgamer

[Следующий вопрос >>] [Список вопросов]

Отвечает Артём Шегеда

Доброе время суток, pcgamer!

А справку по 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?
(В СПРАВКЕ Я ЭТОГО НЕ НАШЕЛ)



Вопрос отправлен: 08.01.2003, 15:13
Отправитель: pcgamer

[Следующий вопрос >>] [Список вопросов]

Отвечает Артём Шегеда

Добрый день, pcgamer!

Плохо искал...
Если тебе нужно текстовое представление текущей отмеченной ноды, то достаточно обратиться так:

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 - не срабатывает.



Вопрос отправлен: 08.01.2003, 23:32
Отправитель: Konstantin (ka17@mail.kz)

[Следующий вопрос >>] [Список вопросов]

Отвечает Idle Sign

Добрый день, 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 баксов. Не подскажите, где можно скачать подобную версию бесплатно или что еще можно сделать(за искучением другого компонента).



Вопрос отправлен: 08.01.2003, 23:52
Отправитель: Great Lesh

[Следующий вопрос >>] [Список вопросов]

Отвечает Jadd

Добрый день, 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.

© 2002 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (38)
C / C++ (28)
Perl (4)
Delphi (21)
Pascal (23)
Basic / VBA (11)
Java / JavaScript (7)
PHP (5)
MySQL / MSSQL (5)
Пользователю
Windows 95/98/Me (36)
Windows NT/2000/XP (28)
"Железо" (33)
Поиск информации (17)
Администратору
Windows NT/2000/XP (13)
Linux / Unix (15)
Юристу
Гражданское право (8)
Семейное право (5)
Трудовое право (4)
КоАП (3)

Отправить вопрос всем экспертам выбранной рассылки.




Яндекс цитирования

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное