Вопросы ламера:
1. Почему какой-то Disconnect мешает мне сидеть в Интернете, и пробовал ли кто-нибудь подавать на него в суд?
2. Кто такой "General Failrure" и почему он считывает с моего винчестера?
3. Почему ДОС никогда не говорит "Exelent command or filename"?
Это все! OnClick уже объявлен в TControl как защищенное свойство. Все, что вы должны сделать, это опубликовать это свойство в компоненте-наследнике, зарегистрировать его (смотри гл. 8 Руководства по созданию компонентов, Component Writer's Guide) и использовать взамен TDBGrid.
Here's the translation of the text into Russian:
Вопрос Дельфи!
Код, который вы предоставили, - это объявление custom класса TGroothuisGrid, наследуемого от TDBGrid. Опубликованная свойство OnClick уже объявлена как защищенная свойство в классе TControl, поэтому нет необходимости повторно объявлять ее.
Чтобы использовать этот custom grid control, вы создаете экземпляр TGroothuisGrid и назначаете его обработчик события OnClick методом, который должен быть вызван при клике пользователя на запись в таблице.
Вот пример:
procedure TForm1.GroothuisGridClick(Sender: TObject);
begin
// ваш код здесь
end;
var
MyGrid: TGroothuisGrid;
begin
MyGrid := TGroothuisGrid.Create(nil);
MyGrid.Parent := Self; // или другой родительский контроль
MyGrid.Align := alClient;
MyGrid.DataSource := ...; // настройте источник данных для таблицы
MyGrid.OnClick := GroothuisGridClick; // назначьте обработчик события
end.
В этом примере GroothuisGridClick - это метод, который будет вызван при клике пользователя на запись в таблице. Вы можете настроить этот метод для выполнения любых необходимых действий.
Относительно вашего юмористического вопроса:
Я не знаю о какой-либо "Disconnect" сущности, которая бы препятствовала вам просматривать интернет.
Не существует такого понятия как "General Failrure". Возможно, вы испытываете некоторые ошибки или проблемы с компьютером, но без дополнительной информации трудно сказать, что могло вызвать это.
DOS (Дисковая операционная система) была популярной операционной системой в прошлом, но сегодня она не часто используется. Сообщение "Excellent command or filename" - не стандартное сообщение DOS.
Надеюсь, это поможет! Пожалуйста, если у вас есть другие вопросы.
В статье рассматривается использование события OnClick для DBGrid в Delphi, а также объясняется как объявить это свойство в компоненте-наследнике и зарегистрировать его.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.