Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
 Аватар для cyberGlod
13 / 11 / 2
Регистрация: 11.10.2023
Сообщений: 138

Дата в поле StringGrid в определенном столбце

05.11.2023, 16:40. Показов 1163. Ответов 38
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Приветствую всех!

Вопрос вот такого плана:
Имеется StringGrid, в него заносятся разные данные и в том числе дата. Всё это заносится через отдельное окно, в котором расположен компонент DateTimePicker. При редактировании (включено goEditing) дат₽ изменяется как обычный текст в ячейке.
А возможно ли «прикрутить» к событию выделения или начала редактирования ячейки в определенном столбце чтобы открывался календарь (как у DateTimePicker) и в нем устанавливалась дата из ячейки, а после выбора другой даты - установить эту дату в ячейке???

Если такое возможно, то прошу подсказать как (желательно с примером в виде кода). Заранее благодарю.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
05.11.2023, 16:40
Ответы с готовыми решениями:

DateTimePicker: Как можно сделать, чтобы выбранная дата сохранилась в определенном столбце БД?
Помогите пожалуйста разобраться с компонентом DateTimePicker. Как можно сделать, чтобы выбранная дата сохранилась в определенном столбце...

Необходимо сложить ячейки в столбце Stringgrid и вывести в другой Stringgrid
Необходимо сложить ячейки в столбце Stringgrid и вывести в другой Stringgrid Количество столбцов и строк задается пользователем

Как подсчитать сколько раз в столбце "Дата" встречается текущая дата компьютера
Есть база данных Access использую элементы DataSet,BindingSource,TableAdapter. Как подсчитать сколько раз в...

38
Нарушитель
10897 / 5831 / 1289
Регистрация: 12.03.2015
Сообщений: 26,909
05.11.2023, 21:16
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от Пытливый Посмотреть сообщение
Пиво - обязательный и необходимый катализатор качественного кода, но при превышении необходимой нормы, качественный код на утро может превратится в "какой дебил это написал?"
Меру знать надо.

Добавлено через 2 минуты
Цитата Сообщение от Пытливый Посмотреть сообщение
качественный код на утро может превратится в "какой дебил это написал?"
Недавно мне пришлось подпиливать свой же проект 15-летней давности. Я такой кринж словил, когда код читал - не передать словами. И пиво там совсем не виновато.
1
242 / 208 / 36
Регистрация: 19.02.2021
Сообщений: 1,431
05.11.2023, 22:45

Не по теме:

Цитата Сообщение от Verevkin Посмотреть сообщение
И пиво там совсем не виновато.
Пиво имеет накопительный эффект. Пьёшь с зимы - летом косячишь.


0
Нарушитель
10897 / 5831 / 1289
Регистрация: 12.03.2015
Сообщений: 26,909
05.11.2023, 23:07
Цитата Сообщение от Constcat Посмотреть сообщение
Пиво имеет накопительный эффект. Пьёшь с зимы - летом косячишь.
Пиво имеет накопительный эффект. Пьёшь весь день - всю ночь бессонница.
0
06.11.2023, 01:29

Не по теме:

Цитата Сообщение от Пытливый Посмотреть сообщение
Пиво - обязательный и необходимый катализатор качественного кода
Но со временем (с возрастом) этот катализатор утрачивает во многом свои полезные свойства. И частые естественные отвлечения от рабочего процесса начинают преобладать :)
Приходится переходить на 40°. А там свои проблемы. :)

0
Нарушитель
10897 / 5831 / 1289
Регистрация: 12.03.2015
Сообщений: 26,909
06.11.2023, 01:32
Цитата Сообщение от northener Посмотреть сообщение
Но со временем (с возрастом) этот катализатор утрачивает во многом свои полезные свойства. И частые естественные отвлечения от рабочего процесса начинают преобладать
Приходится переходить на 40°. А там свои проблемы.
Так бывает не только с программистами. Надо меру знать.
0
06.11.2023, 02:32

Не по теме:

Цитата Сообщение от Verevkin Посмотреть сообщение
Так бывает не только с программистами. Надо меру знать.
Но только настоящие программисты, программисты по натуре, могут правильно определить эту меру. :)

0
 Аватар для cyberGlod
13 / 11 / 2
Регистрация: 11.10.2023
Сообщений: 138
06.11.2023, 11:05  [ТС]
Хотел бы уточнить кое-какой момент по моему первоначальному вопросу.
При старте приложения, вне зависимости на что я установил фокус - все равно левая верхняя (не fixed) ячейка выделяется. И при клике на неё - происходит вход в редактирование ячейки (TDateTimePicker не срабатывает), но если кликнуть в первый раз по отличной от той выделенной ячейки, то всё прекрасно работает.

Для меня не принципиально и я могу дату перекинуть на второй столбец, но хотелось бы понят на будущее - как решить эту проблему?

Заранее благодарю.

Добавлено через 2 часа 32 минуты
И еще кое-что: Как правильно вопрос Гуглу задать, чтобы выяснить - Как программно «распахнуть» TDateTimePicker для выбора дня недели? Нужно чтобы по клику на ячейке грида сразу распахивался.

Заранее благодарю.
0
 Аватар для Beltar
1085 / 523 / 43
Регистрация: 05.05.2022
Сообщений: 3,740
06.11.2023, 11:56
Я недавно захотел сделать простейшую прогу для подсчета очков в настольных играх, конкретно, для "Зельеварения" в том виде, в котором я их записываю (2+3+8+). Я взял TStringGrid. Обычно, я его не использую, TListView для отображения табличных данных удобнее и функциональнее. После небольшой гачи-мучи возни, с тем, чтобы понять, как в нем вообще отловить окончание редактирование ячейки (у него событие на каждый символ, но на окончание ввода нет), я пришел к решению, просто сделать отдельную форму редактирования. С экранной клавиатурой, чтобы можно было чисто мышкой работать. При таком подходе на эту форму можно запихнуть, что угодно, ее можно показывать, где угодно, и это может быть проще, чем бороться хитрыми способами с криво сдизайненным стринггридом.

А TDateTimePicker программно развернуть, ну погуглите "как программно развернуть TDateTimePicker" или даже в нем самом поищите, скорее всего делается через Perform какого-то Message'а.
0
Нарушитель
10897 / 5831 / 1289
Регистрация: 12.03.2015
Сообщений: 26,909
06.11.2023, 12:19
Цитата Сообщение от cyberGlod Посмотреть сообщение
При старте приложения, вне зависимости на что я установил фокус - все равно левая верхняя (не fixed) ячейка выделяется. И при клике на неё - происходит вход в редактирование ячейки (TDateTimePicker не срабатывает), но если кликнуть в первый раз по отличной от той выделенной ячейки, то всё прекрасно работает.
Пока исходник не покажешь, никто не угадает, в чём проблема, патамушта телепатов тут неть.
Цитата Сообщение от Beltar Посмотреть сообщение
скорее всего делается через Perform какого-то Message'а.
Чото я час уже по исходнику лазию и никак не соображу.
Вот так не работает:
Delphi
1
2
3
4
5
6
7
8
9
10
procedure TFormMain.ButtonOpenClick(Sender: TObject);
var
  hdr: TNMHdr;
begin
  if not Picker.DroppedDown
    then begin
           hdr.code:= DTN_DROPDOWN;
           Picker.Perform(CN_NOTIFY, 0, LPARAM(@hdr));
         end;
end;
Обработчик CN_NOTIFY вызывается, но календарь не дропится. Ковыряю дальше.
Цитата Сообщение от cyberGlod Посмотреть сообщение
Как программно «распахнуть» TDateTimePicker
Автор, ты уверен, что это тебе точно надо?
0
Модератор
4153 / 2362 / 814
Регистрация: 15.11.2015
Сообщений: 9,498
06.11.2023, 12:30
Зачем в ячейку пихать DateTimePicker? Может, лучше MonthCalendar показать в нужном месте?
0
 Аватар для cyberGlod
13 / 11 / 2
Регистрация: 11.10.2023
Сообщений: 138
06.11.2023, 13:04  [ТС]
> Пока исходник не покажешь, никто не угадает, в чём проблема, патамушта телепатов тут неть.

Исходники показать не смогу, потому что на компьютере нет интернета (сижу тут с телефона).
Для бОльшего понимания: включите в опциях goEditing, тогда можно редактировать ячейку. Так вот - если нажать на выделенную ячейку, то переходим в редактирование ячейки (логично, ведь события OnSelectCell не наступает - ячейка уже выделена). Хотелось бы это как-то побороть. Опять таки - если для этого нет решения - то и плевать.

> Зачем в ячейку пихать DateTimePicker?

Есть список (стрингГрид), он заполняется вручную. Бывает промахиваюсь при заполнении и ставлю не ту дату - тыкаю по ячейке с неверной датой и справляю (так сказать «по быстрому»).
«Разворачивать» его хотел ТОЛЬКО для ускорения процесса. В принципе - если решения нет, то и не сильно страшно.
0
Нарушитель
10897 / 5831 / 1289
Регистрация: 12.03.2015
Сообщений: 26,909
06.11.2023, 13:14
Цитата Сообщение от cyberGlod Посмотреть сообщение
Исходники показать не смогу, потому что на компьютере нет интернета (сижу тут с телефона).
Ну я пошёл тогда дела делать. Дел полно.
Дальше - сам давай.
0
 Аватар для cyberGlod
13 / 11 / 2
Регистрация: 11.10.2023
Сообщений: 138
06.11.2023, 13:29  [ТС]
И так сильно помогли, идите, конечно, же с Богом.
0
 Аватар для Пытливый
3765 / 2272 / 706
Регистрация: 29.05.2013
Сообщений: 9,622
06.11.2023, 17:13
Я выкрутился из проблемы выделенной ячейки очень просто. Для грида выставляется флаг goEditing в False и только когда происходит нажатие клавиши в выделенной ячейке или двойной клик, то флаг goEditing переводится в True. После редактирования, т.е. Esc или Enter флаг goEditing снова выставляется в False.
0
Нарушитель
10897 / 5831 / 1289
Регистрация: 12.03.2015
Сообщений: 26,909
06.11.2023, 17:32
Цитата Сообщение от Пытливый Посмотреть сообщение
Я выкрутился из проблемы выделенной ячейки очень просто.
Я выкрутился по-другому — лет 15 юзаю TVirtualStringTree и бед не знаю.
0
 Аватар для Пытливый
3765 / 2272 / 706
Регистрация: 29.05.2013
Сообщений: 9,622
06.11.2023, 17:58
Цитата Сообщение от Verevkin Посмотреть сообщение
Я выкрутился по-другому — лет 15 юзаю TVirtualStringTree и бед не знаю.
Это сторонний компонент, хоть и бесплатный, не по спортивному его использовать
0
Нарушитель
10897 / 5831 / 1289
Регистрация: 12.03.2015
Сообщений: 26,909
06.11.2023, 18:08
Цитата Сообщение от Пытливый Посмотреть сообщение
Это сторонний компонент, хоть и бесплатный
Ты в курсе, что этот сторонний компонент участвует в самой IDE? Давно уже. Не включён он в стандартные, вероятно, по причине GNU GPL.
Цитата Сообщение от Пытливый Посмотреть сообщение
не по спортивному его использовать
Зачем я должен мучаться? Важен конечный результат, а не вот это вот всё. Я использую дофига сторонних компонентов, у меня нет времени на изобретение велосипедов - зарплата от этого не прибавится, а дедлайн можно и просрать.
0
242 / 208 / 36
Регистрация: 19.02.2021
Сообщений: 1,431
06.11.2023, 18:43
Цитата Сообщение от Verevkin Посмотреть сообщение
Я использую дофига сторонних компонентов, у меня нет времени на изобретение велосипедов - зарплата от этого не прибавится, а дедлайн можно и просрать.
Везет тебе, что ты под MacOS не пишешь...
0
Нарушитель
10897 / 5831 / 1289
Регистрация: 12.03.2015
Сообщений: 26,909
06.11.2023, 18:44
Цитата Сообщение от Constcat Посмотреть сообщение
Везет тебе, что ты под MacOS не пишешь...
Кто на что учился.



Я пошутил.
Я не учился на программиста, я САПР закончил. Просто так получилось, случайно.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.11.2023, 18:44

Поле Дата, как вывести только год в отдельное поле?
Как из поля Дата вывести только год, т.е. допусти в поле значение 25.05.2010, а нужно что бы выводило только 2010? За ранее благодарен.

Поиск поля в определенном столбце.
Добрый вечер. Подскажите пожалуйста, как в Delphi(Подключение через ADOTable) мне узнать значение у поля - "pole" в таблице -...

Замена символов в определенном столбце
Собственно кто подскажет как сделать замену в определенном столбце (по его названию) цифр, допустим надо заменить цифры 16 и 18 на 0

Поиск в определенном столбце DataGridView
Подскажите, как осуществить поиск в определенном столбце DataGridView, конкретно в 6-м. for (int i = 0; i < dataGridView1.RowCount;...

Поиск в определённом столбце листа
Есть код. Работает без Option Explicit. Как правильно определить переменные C и first? Private Sub BTN_FIND_IN_COLUMN_PART_Click() ...


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

Или воспользуйтесь поиском по форуму:
39
Ответ Создать тему
Новые блоги и статьи
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru