Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

Как получить нажатие правой кн.мыши на заголовке DBGrid?   Найти похожие ветки 

 
Orion ©   (2002-06-19 22:17) [0]

Как реализовать в DBGrid"e чтобы при нажатии правой кн.мыши по заголовку колонок (TColumnTitle) вызывалось нужное мне действие?


 
Turalyon ©   (2002-06-20 08:13) [1]

У DBGrid-а есть событие onTitleClick это то, что тебе нужно.
Дальше смотришь
if Column.FieldName = "MyField" then ...


 
Lusha ©   (2002-06-20 10:13) [2]

Если именно правой, то обратитесь к обработчикам OnMouseDown и OnMouseUp... Ну, и методу MouseToCell до кучи...


 
Orion ©   (2002-06-20 19:49) [3]

2Turalyon
Спасибо за ответ, но это как раз не то, что мне нужно( только по правой кнопке).

2Lusha
OnMouseDown я пробовал использовать, но не получается. Пробовал такой вариант:

procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if TColumnTitle(Sender) <> nil
then // ... действие
end;

Но в этом случае почему-то действие выполняется и на титуле, и на остальном поле компонента. Может как-то можно это обойти?


 
MishGan   (2002-06-20 20:11) [4]

2 Orion
>>if TColumnTitle(Sender) <> nil
так низзя
Ну я когда то делал так:

procedure TXXXX.GridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Cell: TGridCoord;
TitleClickFl: boolean;
begin
if Button = mbRight then
begin
Cell := Grid.MouseCoord(X,Y);
TitleClickFl:=(Cell.Y=0) and (dgTitles in Grid.Options);
if TitleClickFl then
begin
// <<-------------------
end;
end;
end;



 
Orion ©   (2002-06-21 20:12) [5]

Понятно, большое сэнкс!



Страницы: 1 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
3-47097
id_privin
2002-06-20 19:55
2002.07.15
Загрузка данных в Oracle


4-47864
Rn
2002-05-10 07:51
2002.07.15
формат ресурсов


1-47252
Skywalker
2002-06-27 12:13
2002.07.15
Алгоритм деления


3-47156
AFROLOV
2002-06-18 14:04
2002.07.15
Как записать в базу данных строку содержащую символ (


6-47641
Serd_hhc
2002-05-04 15:27
2002.07.15
Как узнать свою рабочую группу..