DBGrid - прокрутка scroll

@4aynik · Регистрация: 17.08.2009

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

Не подскажите в DBGrid возможна прокрутка по списку с помощью Scroll'a (колеса) мыши?

Скока лазил - не нашёл... пришёл к выводу, что невозможно.

@АНК · 31.08.2009, 11:35

Сообщение от 4aynik

На эту строчку ругается:
: TForm(Owner)

ну ругается компилятор на

Сообщение от 4aynik

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)

а сама ошибка сообщает, что (цитата из справки Builder'а)

A function with this name and type was previously supplied a function body.
A function body can only be supplied once.

т.е. функция с этим именем и типом уже есть...

@4aynik · 31.08.2009, 17:07 **[ТС]**

Sasha, я ничо не понял)

АНК, а как это устранить?

@Sasha · 01.09.2009, 11:31

Ты мне проект можешь скинуть я погляжу что там

@АНК · 01.09.2009, 11:52

Когда в Builder'е создаем форму, то он сам вставляет в Unit1.cpp и Unit1.h конструктор.
В Unit1.cpp это выглядит так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

Вот в этот конструктор и надо вставить

C++
1
Application->OnMessage = OnApplicationMessage;

а не писать его заново.

@4aynik · 03.09.2009, 14:04 **[ТС]**

Sasha, не могу!

AHK, имеешь ввиду Application->OnMessage = OnApplicationMessage; вставить в тело вот этого - __fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)

??????????

@Sasha · 03.09.2009, 14:16

Да, именно так надо и делать как говорит АНК,

@4aynik · 03.09.2009, 23:11 **[ТС]**

Всё, понял, как надо, всё получилось, благодарю за помощь!

@rozalski · 27.08.2011, 10:51

Сообщение от Sasha

Зайди к себе на профиль я тебе вчера ссылку сбрасывал

можно мне тоже такую ссылку

@Sasha · 27.08.2011, 12:08

Сообщение от rozalski

можно мне тоже такую ссылку

Зачем тебе ссылка делай как написано у меня во 2 посте и будет тебе счастье.

@rozalski · 27.08.2011, 12:19

Все дело в том, что я не очень понимаю что делать

Если просто вставляю приведенный во 2 посте код билдер матерится на строке

C
1
Application->OnMessage = OnApplicationMessage;

Как я понял из последующих постов необходимо создавать собственное событие, а вот с эти уже проблемы. Подскажите поподробнее как это все сделать, заранее благодарен.

@Sasha · 27.08.2011, 12:52

в h-файле пропиши вот такое

C++
1
2
public:     // User declarations
           void __fastcall OnApplicationMessage(TMsg & Msg, bool & Handled);

Ну а потом можешь спокойно переносить мой код, но уже в cpp-файл

@rozalski · 29.08.2011, 20:17

Спасибо все получилось

@4aynik · 17.10.2011, 15:11 **[ТС]**

Недавно снова использовал этот метод, только другой в программе. После компиляции почему то шрифт везде изменился на жирный... Обратно можно как то его изменить программно (кодом)?

@Sasha · 17.10.2011, 17:44

А ты уверен, что утебя проблемы со шрифтом из-за этого метода?

@4aynik · 18.10.2011, 08:24 **[ТС]**

Ну вот после добавления этого метода текст изменился на жирный везде...

У Screen есть свойство вроде Fonts

C++
1
Screen->Fonts

Вот может это как то поменять и поможет, но не знаю на какое значение ставить...

@Omsk31 · 30.05.2020, 20:17

В Embarcadero 7 версия и выше колёсико в Gride работает.
Есть дополнения ex вроде, с расширенными возможностями в grid.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@4aynik 0 / 0 / 0 Регистрация: 17.08.2009 Сообщений: 161

	DBGrid - прокрутка scroll 24.08.2009, 13:52. Показов 14577. Ответов 35 Метки нет (Все метки) Не подскажите в DBGrid возможна прокрутка по списку с помощью Scroll'a (колеса) мыши? Скока лазил - не нашёл... пришёл к выводу, что невозможно. 0

@4aynik 0 / 0 / 0 Регистрация: 17.08.2009 Сообщений: 161
	31.08.2009, 17:07 [ТС]
	Sasha, я ничо не понял) АНК, а как это устранить? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	01.09.2009, 11:31
	Ты мне проект можешь скинуть я погляжу что там 0

@4aynik 0 / 0 / 0 Регистрация: 17.08.2009 Сообщений: 161
	03.09.2009, 14:04 [ТС]
	Sasha, не могу! AHK, имеешь ввиду Application->OnMessage = OnApplicationMessage; вставить в тело вот этого - __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) ?????????? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	03.09.2009, 14:16
	Да, именно так надо и делать как говорит АНК, 1

@4aynik 0 / 0 / 0 Регистрация: 17.08.2009 Сообщений: 161
	03.09.2009, 23:11 [ТС]
	Всё, понял, как надо, всё получилось, благодарю за помощь! 0

@rozalski 11 / 11 / 9 Регистрация: 26.08.2011 Сообщений: 177
	29.08.2011, 20:17
	Спасибо все получилось 0

@4aynik 0 / 0 / 0 Регистрация: 17.08.2009 Сообщений: 161
	17.10.2011, 15:11 [ТС]
	Недавно снова использовал этот метод, только другой в программе. После компиляции почему то шрифт везде изменился на жирный... Обратно можно как то его изменить программно (кодом)? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	17.10.2011, 17:44
	А ты уверен, что утебя проблемы со шрифтом из-за этого метода? 0

@Omsk31 0 / 0 / 0 Регистрация: 30.05.2020 Сообщений: 2
	30.05.2020, 20:17
	В Embarcadero 7 версия и выше колёсико в Gride работает. Есть дополнения ex вроде, с расширенными возможностями в grid. 0