Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.03.2011, 19:54   #1
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,206
Вопрос RxLib. Нажатие на заголовок колонки

Добрый вечер! Возник вопрос по указанным компонентам. Как собственно отследить нажатие на заголовке колонки? В RxGrid-e есть событие
Код:
procedure TForm1.RxDBGrid2TitleBtnClick(Sender: TObject; ACol: Integer;
  Field: TField);
begin

end;
думаю, что это оно отвечает за нажатие на заголовок. Но как узнать на какой было нажато? Например, мне надо чтобы по первому нажатию на колоке Column[0] выполнялся один код, а по второму нажатию на заголовок этой же колонки выполнялся второй другой код. Можно увидеть хотя бы для одной колонки пример такого кода? Заранее спасибо.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 11.03.2011, 20:02   #2
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
По умолчанию

1.
Код:
procedure TForm1.RxDBGrid2TitleBtnClick(Sender: TObject; ACol: Integer;
  Field: TField);
begin

end;
2. Заведи счетчик нажатий для колонки:
Код:
...
var AmClickArr: array of Byte;
...
SetLength(AmClickArr, RxDBGrid2.ColCount); <--Под руками нет Rx-компонентов, потому может и не  RxDBGrid2.ColCount
//Обнуление элементов
...
procedure TForm1.RxDBGrid2TitleBtnClick(Sender: TObject; ACol: Integer;
  Field: TField);
begin
  AmClickArr[ACol]:=AmClickArr[ACol]+1;

  case AmClickArr[ACol] of
    1:Begin .... end;
    2:Begin .... end;
    ...
  End;
end;
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

Последний раз редактировалось AlDelta; 11.03.2011 в 20:09.
AlDelta вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Установка rxlib-2.7.6 / rxlib-2.7.7 в Delphi 7 athlant64 Компоненты Delphi 20 26.06.2012 13:07
Сортировать при нажатии на заголовок колонки Shouldercannon Общие вопросы Delphi 3 10.03.2011 14:38
Долгое нажатие клавиши в KeyDown как одно нажатие marina15056 Общие вопросы Delphi 7 16.08.2009 00:22
RxLib KREGI Компоненты Delphi 4 14.06.2009 22:07
Rxlib SERG1980 Компоненты Delphi 3 23.10.2007 13:13