Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

begin

TriggerRowSelection;

end;

procedureTMainForm.TriggerRowSelection;

begin

ifdmFile.AdvertisCount <> 0 then begin

with dmFile do if nottblFounds.FindKey([tblAdvertisID.Value]) then begin

tblFounds.AppendRecord([tblAdvertisID.Value]);

end else begin

tblFounds.Delete;

end;

dbgWork.Refresh;

end;

end;

procedureTMainForm.dbgWorkDrawColumnCell(Sender: TObject; constRect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

ifDataCol = 0 then withdmFile, dbgWork.Canvas do begin

FillRect(Rect); {clear the cell}

iftblFounds.FindKey([tblAdvertisID.Value]) then begin

TextOut(Rect.Left, Rect.Top, '?');

end else begin

TextOut(Rect.Left, Rect.Top, 'o');

end;

end;

end;

=== cut ===

Оказывается, я переопределял рисование гридa, а не вычислял поле. Не помню точно, но кажется, чтобы не перечитывать таблицу на каждый даблклик, а только перерисовать грид.

А колонка для галки в гриде определялась так:

=== cut ===

withdmFile, dbgWork.Columns do begin

BeginUpdate;

Clear;

{check mark}

nc := Add;

nc.Width := 14;

nc.Font.Name := 'Wingdings';

nc.Font.Size := 11;

nc.Alignment := taRightJustify;

nc.Title.Caption := 'y';

nc.Title.Font.Name := 'Wingdings';

nc.Title.Font.Size := 10;

nc.Title.Alignment := taCenter;

[skip определения остaльных колонок]

EndUpdate;

end;

=== cut ===

Вроде всё.

Ну, как напечатать/обработать только помеченное, сам разберёшься. У меня там накручено чего-то с фильтрами, думаю, можно проще.

Что касается других способов – можно вместо временной тaблицы попользовать список, массив или in-memory table.

Nomadicсоветует:

А я делаю так.

На DataSource, к которому прицеплен Grid, вешаю обработчик на событие OnStateChange.

Ниже текст типичного обработчика –

ifDBGrid1.DataSource.DataSet.State in[dsEdit, dsInsert] then

DBGrid1.Options := DBGrid1.Options + goRowSelect

elseDBGrid1.Options := DBGrid1.Options – goRowSelect;

Дело в том, что если у Grid'а стоит опция goRowSelect, то из Grid'а невозможно добавить запись. Ну а когда програмно вызываешь редактирование или вставку, то курсор принимает обычный вид и все Ok.

Лучше использовать конструкцию «State in dsEditModes».

А вы постите запись, прежде чем закрыть форму? При закрытии, форма самостоятельно данных не постит. Вы должны постить изменения или с помощью компонента dbnavigator, или c помощью кода, который при закрытии формы постит данные в основную таблицу.

На странице 95 Database Application Developers Guide (руководство разработчиков приложений баз данных), поставляемое с Delphi, приведен демонстрационный проект с двумя формами, демонстрирующий хорошую технику при использовании ttable на мастер-форме в качестве набора данных для детали.

Одним из решений вашей проблемы может служить связывание компонента DataSource на Form2 с набором данных DataSet на Form1. Это может быть достигнуто путем добавления следующей строки в обработчик события OnActivate для Form2:

MyDataSource.DataSet := Form1.MyTable;

Данный метод имеет 3 преимущества:

1. сделанные вами изменения немедленно отображаются, поскольку вы используете одну и ту же логическую таблицу;

2. если вам нужно определить установки для ваших полей таблицы, например, DisplayFormat или EditMask, вам нужно сделать это только один раз в таблице на Form1, вам не нужно это делать на каждой форме, которая использует таблицу;

3. это сохраняет ресурсы и повышает производительность, поскольку ваше приложение при работе с таблицей использует только одну сессию. Тем не менее, в проектном времени вам нужно иметь TTable на вашей Form2 для того, чтобы вы могли выбрать поля для БД-контролов, после чего вы можете удалить TTable.

используйте <���имя поля>.index := <���желаемый номер поля>

Nomadicотвечает:

Здесь отрывки из исходников VCL —

unitDBGrids;

procedureTCustomDBGrid.UpdateScrollBar;

var

SIOld, SINew: TScrollInfo;

begin