Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 3
Регистрация: 02.06.2013
Сообщений: 139
1

Панель ярлыков на Delphi

08.10.2014, 19:52. Показов 879. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В общем, нужно создать панель ярлыков с возможностью добавления значков и редактирования их путей.
На картинке:
1)Панель ярлыков
2)Редактирование путей
Например, хотим мы для нужного нам значка указать путь до файла, двойным щелчком мы вызываем Edit, чтобы с помощью OpenDialog'a указать путь, жмем "Готово" и Edit скрывается, а путь сохраняется в ини-файл.
Одинарным щелчком (щелчок один раз) по значку у нас срабатывает ShellExecute и запускается файл, который указан в Edit.Вот и проблемка, сейчас опишу.
Двойной щелчок:
Pascal
1
2
3
4
5
6
ID:=ID+1; //переменная типа Integer
Edit_tmr.Enabled:=true; // таймер, который показывает Edit
 
//GetUserFromwindows - функция, с помощью которой мы узнаем имя пользователя
Ini:=TIniFile.Create('C:\Users\'+GetUserFromWindows+'\Desktop\DockPanel\Path.ini');
Ini.WriteInteger('ID:'+IntToStr(ID),'yourID',ID);
Вид инифайла такой:
[ID:1]
yourID=1
path=C:\ProgramFiles\Aimp3\aimp3.exe - эта строчка появляется при нажатии кнопки "Готово"

Кнопка "Готово":
Pascal
1
2
3
Ini:=TIniFile.Create('C:\Users\'+GetUserFromWindows+'\Desktop\DockPanel\Path.ini');
Ini.WriteString('ID:'+IntToStr(ID),'Path',Path_edit.Text); //строчка с путем в ини - файле
Edit_tmr.Enabled:=true; //с помощью переключателей мы убираем Edit, но это не важно
То есть, у каждого Image свой ID и путь.Вопрос в том, как сделать так, чтобы Image "узнавал" какой ID ему принадлежит.Ведь Image'ей много, и каждый должен знать какой ID ему принадлежит, чтобы при одинарном клике ShellExecute запускал соответствующий путь.

Панель ярлыков на Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2014, 19:52
Ответы с готовыми решениями:

Панель для ярлыков на рабочем столе
Всем привет хочу сделать такую панельку для ярлыков . Чтоб по нажатию на кнопку "Игры" выезжала...

Delphi и сенсорная панель
Здравствуйте, хочу написать программу(справочник) для сенсорного киоска, в delphi 7. Сложно ли...

Как исправить панель в Delphi XE
Вот такое у меня случилось Как исправить?

Delphi 7. Как свернуть формы в панель задач?
Доброго времени суток! У меня такой вопрос: "Как сделать, чтобы форма, не являющаяся главной при...

5
726 / 478 / 130
Регистрация: 24.12.2008
Сообщений: 3,924
09.10.2014, 02:08 2
У Image как и у большинства компонентов есть такой параметр как tag вот ему и присваивай ид
0
1 / 1 / 3
Регистрация: 02.06.2013
Сообщений: 139
11.10.2014, 16:47  [ТС] 3
Цитата Сообщение от Игорь[Igor] Посмотреть сообщение
У Image как и у большинства компонентов есть такой параметр как tag вот ему и присваивай ид
не понял

Добавлено через 10 минут
Цитата Сообщение от Игорь[Igor] Посмотреть сообщение
У Image как и у большинства компонентов есть такой параметр как tag вот ему и присваивай ид
__________________
Вопрос то в том, чтобы при следующем запуске все сохраненное в ини считывалось.То есть, я присвоил путь какому-то значку, закрыл программу, открыл, и при нажатии на этот значок заданный мною путь срабатывал.
0
726 / 478 / 130
Регистрация: 24.12.2008
Сообщений: 3,924
11.10.2014, 18:05 4
Ну так и считывай? Что мешает?
0
1 / 1 / 3
Регистрация: 02.06.2013
Сообщений: 139
13.10.2014, 19:20  [ТС] 5
Цитата Сообщение от Игорь[Igor] Посмотреть сообщение
Ну так и считывай? Что мешает?
tag постоянен?
0
726 / 478 / 130
Регистрация: 24.12.2008
Сообщений: 3,924
13.10.2014, 20:09 6
Tag это переменная
0
13.10.2014, 20:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.10.2014, 20:09
Помогаю со студенческими работами здесь

Delphi IDE. Добавить команду на панель ToolBar
Добрый день. Имеется Delphi XE2. Как добавить на панель кнопок (ToolBar) определенную команду из...

Панель ярлыков открытых Word-овских документов
Доброе время суток! У меня в Office 2010 в Wordе в "старой установке" ниже ленты инструментов была...

Создание ярлыков для папок из списка и перемещение ярлыков в заданную папку
Здравствуйте! Уважаемые программисты, прошу помочь с автоматизацией следующей задачи. Есть большая...

Панель задач и большая часть окон не реагируют ни на мышь, ни на сенсорную панель
Собственно, проблема описана в заголовке. Раньше такого не было, время от времени реагирует кстати,...

Почему панель задач Windows 7 напоминает Dock панель Mac OS X
Эта "superbar" - то есть панель задач, известна своими функциональными возможностями переключения...

Как убрать панель пуска и панель с названием программы?
как убрать панель пуска и панель с названием проги хочу сделать типа windows 8 отметил на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru