Четверг, 19.06.2025, 00:00
Приветствую Вас Гость | RSS
Меню сайта
fff
  • Индексация
  • Девочки
    Форма входа
    Категории раздела
    Теория алгоритмов [3]
    Теория алгоритмов
    Code Snippets [1]
    Code Snippets
    Все о PHP [20]
    Все о PHP
    Visual C++ [13]
    Visual C++
    WIN32 API [7]
    WIN32 API
    Delphi [72]
    Delphi
    ASP [2]
    ASP
    Java [67]
    Java
    VBScript [6]
    VBScript
    CGI [2]
    CGI
    VRML [2]
    VRML
    PERL [9]
    PERL
    HTML [4]
    HTML
    XML [10]
    XML
    Архив записей

    Статьи по Оптимизации

    ПРОГРАММИРОВАНИЕ! СОЗДАНИЕ САЙТОВ И ИХ ОПТИМИЗАЦИЯ

    Главная » Статьи » Программирование » Delphi

    Использование опции Multi в DBGRID
    Использование опции Multi в DBGRID
    Пример в Delphi Technical Information
    {*

    Данный пример позволяет производить множественный выбор записей
    в табличной сетке и отображать второе поле
    набора данных.

    Метод DisableControls применяется для того, чтобы
    DBGrid не обновлялся во время изменения набора данных.
    Последняя позиция набора данных сохраняется как
    TBookmark.

    Метод IndexOf вызывается для проверки
    существования закладки.
    Решение использовать метод IndexOf, а не метод
    Refresh должно определяться
    спецификой приложения.
    *}
    procedure TForm1.Click(Sender: TObject);
    var

    x: word;
    TempBookmark: TBookMark;
    begin

    DBGrid1.Datasource.Dataset.DisableControls;
    with DBgrid1.edRows do
    if Count <> 0 then
    begin
    TempBookmark:= DBGrid1.Datasource.Dataset.GetBookmark;
    for x:= 0 to Count - 1 do
    begin
    if IndexOf(Items[x]) > -1 then
    begin
    DBGrid1.Datasource.Dataset.Bookmark:= Items[x];
    showmessage(DBGrid1.Datasource.Dataset.Fields[1].AsString);
    end;
    end;
    end;
    DBGrid1.Datasource.Dataset.GotoBookmark(TempBookmark);
    DBGrid1.Datasource.Dataset.FreeBookmark(TempBookmark);
    DBGrid1.Datasource.Dataset.EnableControls;
    end;

    Категория: Delphi | Добавил: Merlin (07.12.2009)
    Просмотров: 472 | Рейтинг: 0.0/0
    Всего комментариев: 0
    Имя *:
    Email *:
    Код *: