Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: октябрь 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



DBGrid с номером строки

Автор: Mark Meyer

Другой кибернетик придумал робота-андроида и настроил его на оптимальное выполнение задач. В качестве теста приказал ему принести 5 тысяч долларов. Робот вернулся через 2 минуты со страховкой маленького сына кибернетика.

Скомпилируйте это, и вы получите новый компонент с нужными свойствами:


 unit RowGrid;
 
 interface
 
 uses
   WinTypes, WinProcs, Classes, Grids, DBGrids;
 
 type
   TRowDBGrid = class(TDBGrid)
   public
     property Row;
     property RowCount;
     property VisibleRowCount;
   end;
 
 procedure Register;
 
 implementation
 
 procedure Register;
 begin
   RegisterComponents('Data Controls', [TRowDBGrid]);
 end;
 
 end.
 


 {вот небольшой испытательный демо-проект.. мы
 поместили на форму нашу сетку-наследницу, 3 компонента
 EditBox и поместили следующий код в обработчик события
 ondrawdatacell вашего TRowGrid}
 procedure TForm1.RowDBGrid1DrawDataCell(Sender: TObject; const Rect:
   TRect; Field: TField; State: TGridDrawState);
 begin
   eb_row.text := inttostr(rowdbgrid1.row);
   eb_rowcount.text := inttostr(rowdbgrid1.rowcount);
   eb_visiblerowcount.text := inttostr(rowdbgrid1.visiblerowcount);
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS