Кто подскажет про (Grid)

[chingiz]

Нужно щелчком ПРАВОЙ клавиши мыши по шапке Grida узнать по какой колонке нажали. Подскажите пожалуйста как это можно сделать!!??

[pu4koff]

Сообщение от Александр Чиндяев

Нужно щелчком ПРАВОЙ клавиши мыши по шапке Grida узнать по какой колонке нажали. Подскажите пожалуйста как это можно сделать!!??

для DBgrid что-то в этом роде:
if button = mbRight then if dbgrid1.MouseCoord(X,Y).Y = 0 then ShowMessage(inttostr(dbgrid1.MouseC oord(X,Y).X));

[chingiz]

Я наверное сразу некорректно задал вопрос. Вобщето по удару правой клавиши мне нужно узнать Column.FieldName, но за ответ большое спасибо, я думаю пригодится!

[pu4koff]

кстати, чего-то не написал, что надо на KeyDown вешать это
ну чтобы найти Column.FieldName надо:
if (button = mbRight)and(dbgrid1.MouseCoord(X,Y) .Y = 0)
then ShowMessage(dbgrid1.columns[dbgrid1.MouseCoord(X,Y).X-1].FieldName)
зы. могу ошибаться, тк. писал прямо здесь, но принцип такой

[chingiz]

Спасибо, мысль уловил. Завтра попробую, потом скажу что получилось, сегодня башка уже не варит. Спокойной ночи, я пошол спать.

[chingiz]

УРА!!!!! получилось, я прыгаю до потолка от восторга, а как тут не прыгать, две недели ломал голову над этой задачей перелопатил горы литературы как в бумажном так и в электронном виде (кстати нет ничего лучше обыкновенной книги, которую можно полистать руками) а решение то буквально в двух строчках !!!!!!!
Вот что у меня получилось - все отлично работает
************************
procedure TFGeneralForm.GridMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//Если нажата правая клавиша мыши на шапке Grid
if (Button = mbRight)and(Grid.MouseCoord(X,Y).Y = 0)then //то
//Если нажали над колонками, а не по левой оконтовке Grida - а то прога глючит
if Grid.MouseCoord(X,Y).X >0 then //то
begin
//Появляется меню редактирования поля в таблице БД
Grid.PopupMenu:=PopupMenu2;
//Глобальной переменной UsColumnFieldName := имя редактируемого поля
UsColumnFieldName:=Grid.Columns[Grid.MouseCoord(X,Y).X-1].FieldName;
end;
end;

procedure TFGeneralForm.PopupMenu2Popup(Sende r: TObject);
begin
//Чтобы меню редакт. поля не появлялось при щелчке в другом месте Grida
Grid.PopupMenu:=nil;
end;
*************************

Собственно имя поля мне надо не ради любопытства, а чтобы при обработке OnClick, пунктов контекстного меню, зная имя поля, послать соответствующий SQL запрос на изменение параметров полей таблицы БД. Еще раз спасибо за помощь !!!!!