| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Свой компонент Grid, наследуемый от TStringGrid
Арсен © (2007-11-18 19:53:00)всем привет.
мне постоянно нужны некоторые значения которые высчитываються по размерам ячеек в stringgrid или например нужно чтобы было новое свойство(или старое) rowcount, которое возращало бы значение меньшн на 1,но при этом кол-во строк оставалось прежним. . Решил сделать компонент где были бы функции которые возвращали мне эти значения.
делаю так
unit supergrid;
interface
uses
Classes, Controls, ExtCtrls, Messages, Grids;
type
TSuperGrid = class(TStringGrid)
function new_row_count:Integer;
end;
var
grid:TStringGrid;
procedure Register;
implementation
function TSuperGrid.new_row_count:integer;
begin
result := grid.RowCount-1;
end;
procedure Register;
begin
RegisterComponents('Standard', [TSuperGrid]);
end;
initialization
grid :=TStringGrid.Create(self);
finalization
grid.Free;
end.
не работает, что здесь не так?
boa_kaa (2007-11-18 20:59:00) [1]
> что здесь не так?
Здесь все не так!
Goto: http://www.delphimaster.ru/cgi-bin/forum.pl?n=12
и смотрим ссылку на книгу
Юрий Зотов (2007-11-18 20:24:00) [2]А зачем здесь еще какой-то grid? Одного Super разве мало?
| |
