• Registered: 2019-03-10
  • Posts: 71

Topic: Вывод записей в TableGrid

Свойство dbLimit задает кол-во записей, которое будет

выведено в TableGrid, начиная с 1-й записи. 

   А как вывести тоже самое начиная с любой записи ?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вывод записей в TableGrid

У компонента TableGrid есть свойство dbOffSet чтобы задать смещение.
Проект с примером
http://myvisualdatabase.com/forum/misc. … download=1

Dmitry.
  • Registered: 2019-03-10
  • Posts: 71

Re: Вывод записей в TableGrid

Спасибо  Dmitry.

А как тогда можно определить номер первой (или последней)

не выделенной строки  на текущей странице в TableGrid  ?

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,536

Re: Вывод записей в TableGrid

abc52 wrote:

Спасибо  Dmitry.

А как тогда можно определить номер первой (или последней)

не выделенной строки  на текущей странице в TableGrid  ?

Номер первой отображаемой строки находится в свойстве VertScrollBar.Position, нумерация с нуля.

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вывод записей в TableGrid

abc52 wrote:

Спасибо  Dmitry.

А как тогда можно определить номер первой (или последней)

не выделенной строки  на текущей странице в TableGrid  ?

К сожалению не понял вопроса.

Dmitry.
  • Registered: 2019-03-10
  • Posts: 71

Re: Вывод записей в TableGrid

Спасибо  к245 и Дмитрий !
    Form1.TableGrid1.VertScrollBar.Position  - работает
    Теперь есть возможность запоминания страниц в TableGrid
    даже после выхода из программы.

      У меня выпадающая форма ShowMessage('Ok'), например,
    широкая ( > 350 пикселей) и не зависит от длины сообщения,
        а по высоте нормально. 
     
       Как изменить ширину формы ShowMessage() ?

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Вывод записей в TableGrid

поробуйте MessageBox

пример

if IDYES = MessageBox('Ваш текст','Ваш заголовок', MB_YESNO+MB_ICONINFORMATION) then showmessage('Вы нажали ДА ! теперь Вы должны банку!');

Buttons:
MB_OK
MB_OKCANCEL
MB_ABORTRETRYIGNORE
MB_YESNOCANCEL
MB_YESNO
MB_RETRYCANCEL

Results:
IDOK
IDCANCEL
IDABORT
IDRETRY
IDIGNORE
IDYES
IDNO

Icons
MB_ICONWARNING
MB_ICONINFORMATION
MB_ICONASTERISK
MB_ICONQUESTION
MB_ICONSTOP
MB_ICONERROR

  • Registered: 2019-03-10
  • Posts: 71

Re: Вывод записей в TableGrid

Спасибо за советы,  воспользуюсь ими .

    А вот еще вопрос ?
  При редактировании  TableGrid  в цифровых полях 
Integer, Real есть  "услуга"   ^   (+1/-1 справа в ячейке).   
  Как отказаться от этой помощи ?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вывод записей в TableGrid

abc52 wrote:

Спасибо за советы,  воспользуюсь ими .

    А вот еще вопрос ?
  При редактировании  TableGrid  в цифровых полях 
Integer, Real есть  "услуга"   ^   (+1/-1 справа в ячейке).   
  Как отказаться от этой помощи ?

Можно так

procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
    TNxNumberColumn(Form1.TableGrid2.Columns[0]).SpinButtons := False; // для первой колонки, нумерация с нуля
end;
Dmitry.
  • Registered: 2019-03-10
  • Posts: 71

Re: Вывод записей в TableGrid

Спасибо за ответ  Dmitry !
А нельзя ли сразу для всех колонок  - то же самое ?
Т.е.  изменить умолчание  True  на  False