X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет всем. Вопрос по работе с выделенными записями. Мне давеча подсказали код для работы с выделенными записями. Код работает отлично, но... такая ситуация
Открываем форму, на которой лежи грид, грид по-умолчанию имеет фокус, выполняю код, не работает, оказывается ни одна запись не является выделенной хотя вот первая запись подсвечена, всмысле на ней курсор стоит, вот если тыркнуть по ней мышкой и запустить код, то тогда код сработает и обработает эту выделенную запись. Надеюсь понятно. Если что - спрашивайте. вот код
Код:
Var
i: integer;
ARowIndex: Integer;
ARowInfo: TcxRowInfo;
begin
with dbgMail.dataController do
begin
beginupdate;
Screen.Cursor := crHourGlass;
try
for I := 0 to GetSelectedCount - 1 do
begin
ARowIndex := GetSelectedRowIndex(I);
ARowInfo := GetRowInfo(ARowIndex);
if ARowInfo.Level < Groups.GroupingItemCount then
Continue
else
begin
//unbound or provider mode
//что=то делаем с выделенной записью.
Send(ARowInfo.RecordIndex);
end;//else
end;//for
finally
endupdate;
Screen.Cursor := crDefault;
end;//try
end;//with
end;//if (MessageBox(Self.Handle,
|
----------
/не мы такие, жизнь такая/ |
|
