Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить нажатие правой кн.мыши на заголовке DBGrid? [D5, Paradox]

Orion © (2002-06-19 22:17:00)
Как реализовать в DBGrid"e чтобы при нажатии правой кн.мыши по заголовку колонок (TColumnTitle) вызывалось нужное мне действие?

Orion (2002-06-21 20:12:00) [1]
Понятно, большое сэнкс!

MishGan (2002-06-20 20:11:00) [2]
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-20 19:49:00) [3]
2Turalyon
Спасибо за ответ, но это как раз не то, что мне нужно( только по правой кнопке).

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

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

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

Lusha (2002-06-20 10:13:00) [4]
Если именно правой, то обратитесь к обработчикам OnMouseDown и OnMouseUp... Ну, и методу MouseToCell до кучи...

Turalyon (2002-06-20 08:13:00) [5]
У DBGrid-а есть событие onTitleClick это то, что тебе нужно.
Дальше смотришь
if Column.FieldName = "MyField" then ...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »