| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как первую запись в DBGrid сделать выбранной [D6]

Ольга ©   (2005-11-08 12:18:00) 

Детский вопрос, а никак не могу сообразить. Подскажите, пожалуйста.

---

Ольга   (2005-11-08 12:55:00) [1]

DBGrid.SelectedRows.CurrentRowSelected := True;
Вот до этой конструкции я и не могла доехать.
Спасибо.

---

Ega23   (2005-11-08 12:43:00) [2]

Ну вот как в RX это реализовано.
procedure TRxDBGrid.SelectAll;
var
 ABookmark: TBookmark;
begin
 if MultiSelect and DataLink.Active then begin
   with Datalink.Dataset do begin
     if (BOF and EOF) then Exit;
     DisableControls;
     try
       ABookmark := GetBookmark;
       try
         First;
         while not EOF do begin
           SelectedRows.CurrentRowSelected := True;
           Next;
         end;
       finally
         try
           GotoBookmark(ABookmark);
         except
         end;
         FreeBookmark(ABookmark);
       end;
     finally
       EnableControls;
     end;
   end;
 end;
end;

procedure TRxDBGrid.UnselectAll;
begin
 if MultiSelect then begin
   SelectedRows.Clear;
   FSelecting := False;
 end;
end;


---

Ольга   (2005-11-08 12:37:00) [3]

Это не совсем то, что мне надо. Нужно, чтобы DBGrid.SelectedRows.Count было > 0.

---

Ega23   (2005-11-08 12:34:00) [4]

DBGrid.DataSource.DataSet.First;

---

Tonich   (2005-11-08 12:33:00) [5]

.first только у компонента снаборм данных

---

Наверх