Свой компонент Grid, наследуемый от TStringGrid

← →
Арсен (2007-11-18 19:53) [0]

всем привет.
мне постоянно нужны некоторые значения которые высчитываються по размерам ячеек в 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.

не работает, что здесь не так?

← →
Юрий Зотов © (2007-11-18 20:24) [1]

А зачем здесь еще какой-то grid? Одного Super разве мало?

> что здесь не так?

Здесь все не так!
Goto: http://www.delphimaster.ru/cgi-bin/forum.pl?n=12
и смотрим ссылку на книгу

Свой компонент Grid, наследуемый от TStringGrid Найти похожие ветки