Здорово всем! :)
Пытаюсь редактировать значение в гриде. Для этого создаю диалог, и в нем редактирую, через DBEdit'ы.
Загвоздка в том что курсор, в диалоге всегда прыгает на 1'ю запись.
Пробовал сделать так.
Создал новый модуль UnProg, в нем описал объект:

type
TMyRecSet=class(TObject)
constructor Create;
function GetCurRec:Integer;
procedure SetCurRec(Value:Integer);
property CurRec: Integer read GetCurRec write SetCurRec default 0;
end;

constructor TMyRecSet.Create;
begin
inherited Create;
end;

function TMyRecSet.GetCurRec:Integer;
begin
GetCurRec:=CurRec;
end;

procedure TMyRecSet.SetCurRec(Value:Integer);
begin
CurRec:=Value;
end;

Дальше делаю так.
Подключаю модуль, описываю переменную объектного типа MyRecSet.

В модуле формы с гридом пишу:

procedure TFormSprApplicants.ToolButton2Click(Sender: TObject);
begin
MyRecSet:=TMyRecSet.Create;
MyRecSet.CurRec:=DataMdlGlobus.ADOTblTenants.RecNo;
BttmDlgApplicant.ShowModal;
DataMdlGlobus.ADOTblTenants.Edit;
end;

Чтобы затем в модуле диалога сделать так:

procedure TBttmDlgApplicant.FormActivate(Sender: TObject);
begin
DataMdlGlobus.ADOTblTenants.MoveBy(MyRecSet.CurRec);
end;
Т.е. питаюсь присвоить нужный номер записи.

Выполнение проги останавливается сообщеним "Stacs overflow" (после некоторой паузы), с указанием на:

GetCurRec:=CurRec;

моего объекта.

Ума не приложу, в чем дело, вроде свойство описано правильно.
Может глюки с ADO?
Подскажите люди добрые!

To pkarklin.
Конечно ты прав что значения в DataSete, но ведь отображаются они в Gride.
Конечно можно редактировать и непосредственно DataSet через Grid (если уж на то пошло).
Но разве не удобнее создать диалог, в котором будет отображаться редактируемая запись из Grida (тобишь из DataSeta).
В DBEdit'ах этого диалога и будут видны все значения полей текущей записи, там их и редактировать.
Суть в том, что если в Gride я хочу редактировать запись под номером 3, то после генерации диалога, в его DBEdit'ах отображаются значения полей записи номер 1. Как синхронизировать, чтобы при генерации диалога отображались поля 3 записи?

To pkarklin

>Так покажи код, как ты вызываешь диалог. Если не делать ненужных вещей, запись остается на том же месте.

Код есть выше, но повторю еще раз:

procedure TFormSprApplicants.ToolButton2Click(Sender: TObject);
begin
MyRecSet:=TMyRecSet.Create;
MyRecSet.CurRec:=DataMdlGlobus.ADOTblTenants.RecNo;
BttmDlgApplicant.ShowModal;
DataMdlGlobus.ADOTblTenants.Edit;
end;

В диалоге:
procedure TBttmDlgApplicant.FormActivate(Sender: TObject);
begin
DataMdlGlobus.ADOTblTenants.MoveBy(MyRecSet.CurRec);
end;

Я согласен с тем что редактировать через грид менее удобно чем через диалог.

А вот Grid и DBEdit'ы в диалоге, настроены на разные DataSours'ы.
Для Grid'а это ADOStoredProc, а для DBEdit'ов это непосредственно Table.
Хотя Процедура выполняет выботку по этой таблице.

To tygra

Table пользую для добавления записей и редактирования записей, в Accesse это нельзя сделать с помощью процедур.

To LexusR

Спасибо за совет, исправил свойство как ты сказал, на стэк ругаться перестал, но все равно выскакивает ошибка "access violation", и останавливается на том же самом месте.