получить текст из заданной ячейки DbGrid

[furstenberg]

Здравствуйте, есть ли возможность из DbGrid получить текст ячейки с заданными координатами?(Не выбирая её)

[Alex21]

Table1.RecNo:=3; // строка
caption:=Table1.Fields.Fields[1].Text; //колонка

[mihali4]

Я знаю один "корявый" способ...
Есть таблица, которая отображается в ДБГриде. Допустим, через пару Table1 и DataSource1.
Нужно организовать Table2 и DataSourse2, связанные друг с дружкой и эту Table2 подцепить к той же таблице базы, что и Table1.
Дальше вот что:

...
  private
    { Private declarations }
    procedure AppMess(var Msg: TMsg; var Handled: Boolean);
...

procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.ShowHint := True;
Application.OnMessage := AppMess;
end;

procedure TForm1.AppMess(var Msg: TMsg; var Handled: Boolean);
var X, Y: integer;
    mc: TGridCoord;
    s: string;
begin
if Msg.message=WM_MOUSEMOVE then
begin
if Msg.hwnd=DBGrid1.Handle then
begin
x:=LoWord(Msg.lParam);
y:=HiWord(Msg.lParam);
mc:=DBGrid1.MouseCoord(x,y);
if (mc.x>0) and (mc.y>0) then
begin
DataSource2.DataSet.First;
DataSource2.DataSet.MoveBy(mc.y-1);
s:=Table2.FieldByName(DBGrid1.Columns[mc.x-1].FieldName).asString;
if Label1.Caption<>s then
Label1.Caption:=s;
end;
end;
end;
end;

В Label1 увидите текст из ячейки, над которой двигается мышка...

[furstenberg]

Спасибо, сделал всё через StringGrid(проще оказалось)

[Dimoney]

Привет, гуру.

Не стал создавать новую тему, спрошу здесь: можно ли по условию "раскрасить" отдельные ячейки в определенном столбце DBGrid? Напр. столбец "Ответ" (№ 5), значение "Верно" подсветить зеленым, "Не верно" - красным.

[mihali4]

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

Привет, гуру.

Не стал создавать новую тему, спрошу здесь: можно ли по условию "раскрасить" отдельные ячейки в определенном столбце DBGrid? Напр. столбец "Ответ" (№ 5), значение "Верно" подсветить зеленым, "Не верно" - красным.

http://www.programmersforum.ru/showthread.php?t=8416
http://www.programmersforum.ru/showthread.php?t=8170

[Jeni]

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

можно ли по условию "раскрасить" отдельные ячейки в определенном столбце DBGrid? Напр. столбец "Ответ" (№ 5), значение "Верно" подсветить зеленым, "Не верно" - красным.

Вот, нашел такое описание:
Необходимо обработать событие "OnDrawCellData". Например для того, чтобы пометить выбранное окошко красным фоном, необходимо сделать следующее:

procedure TForm1.DBGridDrawDataCell(Sender:TObject; const Rect:TRect;
  Field:TField; State:TGridDrawState);
begin
  if gdFocused in State then
    with (Sender as TDBGrid).Canvas do
      begin
        Brush.Color := clRed;
        FillRect(Rect);
        TextOut(Rect.Left, Rect.Top, Field.AsString);
      end;
end;

Чтобы убедиться, что выбран нужный столбец, проверить параметр Field

[Dimoney]

Вот мой кусок:

procedure TStat.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1.Canvas do 
    if StringGrid1.Cells[ACol,ARow]='Не верно' then
    begin
      Brush.Color:=clRed;
      FillRect(Rect);
    end
    else if StringGrid1.Cells[ACol,ARow]='Верно' then
      begin
        Brush.Color:=clGreen; 
        FillRect(Rect);
    end;
    WriteText(StringGrid1.Canvas, Rect, 2, 2, StringGrid1.Column.Field.AsString,Column.Alignment);

Прописал WriteText.

  private
    procedure WriteText(ACanvas: TCanvas; ARect: TRect; DX, DY: Integer; const Text: string; Alignment: TAlignment);

Пишет:

[Error] Unit2.pas(28): Unsatisfied forward or external declaration: 'TStat.WriteText'

Что ей не так? (Простите чайника)

[Dimoney]

А по условию? Только ячейки 5-го столбца...Верно/Не верно. Очень надо...

ТО mihali4: Извиняюсь, но надо срочно, поэтому писал сразу в два места...

//а что перед Михалычем извиняться?) Срочно? Это вам во фриланс, а так штраф.
(Отвечаю шепотом на ваш вопрос: штрафы выражабтся в баллах, при достаточном кол-ве вы получаете бан, и зайти на форум не сможете. Только тс-с-с )
zetrix

[Jeni]

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

А по условию? Только ячейки 5-го столбца...Верно/Не верно. Очень надо...

Можно использовать сравнение if Field.FieldNo = ... then ....
Только учти, что вообще-то, столбцы в DBGrid не обязательно соответствуют по номерам полям в базе данных. Я уж не говорю о том, что в DBGrid можно перемещать столбцы во время работы программы.
Так что лучше ориентироваться на имя поля БД:
if Field.FieldName = ... then ...

Проверить само значение поля можно так:
if Field.AsString = 'Верно' then <Сделать зеленым> else <Сделать красным>