Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c