Столбцы в DBGrid

[Антон Иванчин]

Подскажите!
Передо мной такая задача:
мне нужно щёлкнуть кнопкой мыши на определённый столбец в DBGRid (не на заголовок) и по щелчку мышью получить название поля данных, чтобы потом изменить данные этой ячейки. Как это лучше сделать?

[evg_m]

Dbgrid.SelectedField.Value:='новое значение';

j:=DBgrid.SelectedIndex;
f:=DBgrid.Columns.item[j].field;
f.Value:='новое значение';

[Антон Иванчин]

Благодарю! Разобрался )

[Антон Иванчин]

И вот всё же, если DBGrid выделяется вся строка, то можно ли получать название поля данных, по которому щёлкаешь. а то таким образом он выдаёт только первое в строке поле. А хочется чтобы и вся строка выделялась и можно было получить поле данных!

[xxbesoxx]

то можно ли получать название поля данных, по которому щёлкаешь

"название поля данных" или только те данных на которим переходил пользователь ? и где получить ?

[evg_m]

Delphi F1

Returns the row and column indexes of the cell that contains a point specified in screen coordinates.

Delphi syntax:

function MouseCoord(X, Y: Integer): TGridCoord;

[Антон Иванчин]

По координатам мышки будет не совсем правильно ведь пользователь может изменять размер полей в форме и сдвигать их.

[evg_m]

ведь пользователь может изменять размер полей в форме и сдвигать их.

Ну и что из этого.
Мы берем координаты мышки и ВЫЧИСЛЯЕМ какая ячейка(row and column indexes) здесь и сейчас находится по этим самым координатам.

Returns the row and column indexes of the cell that contains a point specified in screen coordinates.

[xxbesoxx]

может изменять размер полей

если реч по размер ! тогда
1)

public
     procedure MyGridSize(Grid: Tdbgrid);    //Обявыли  public процедура

2)

procedure TForm1.MyGridSize(Grid: Tdbgrid);
// Тела у этого процедур
const
  DEFBORDER = 10;
var
  temp, n: Integer;
  lmax: array [0..30] of Integer;
begin
  with Grid do
  begin
    Canvas.Font := Font;
    for n := 0 to Columns.Count - 1 do
      lmax[n] := Canvas.TextWidth(Fields[n].FieldName) + DEFBORDER;
    grid.DataSource.DataSet.First;
    while not grid.DataSource.DataSet.EOF do
    begin
      for n := 0 to Columns.Count - 1 do
      begin
        temp := Canvas.TextWidth(trim(Columns[n].Field.DisplayText)) + DEFBORDER;
        if temp > lmax[n] then lmax[n] := temp;
      end; {for}
      grid.DataSource.DataSet.Next;
    end;
    grid.DataSource.DataSet.First;
    for n := 0 to Columns.Count - 1 do
      if lmax[n] > 0 then
      Columns[n].Width := lmax[n];
  end;

end;

3)

procedure TForm1.FormResize(Sender: TObject);
begin
  Form1.MyGridSize(DBGrid1);  // Вызиваем процедур  для   DBGrid1
end;

можно так ?

[Антон Иванчин]

Сообщение от evg_m

Ну и что из этого.
Мы берем координаты мышки и ВЫЧИСЛЯЕМ какая ячейка(row and column indexes) здесь и сейчас находится по этим самым координатам.

Отлично! Благодарю ) сделал как надо