Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.16;
Скачать: CL | DM;

Вниз

Свой компонент 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 разве мало?


 
boa_kaa ©   (2007-11-18 20:59) [2]


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

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



Страницы: 1 вся ветка

Текущий архив: 2007.12.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
15-1194518134
Grom PE
2007-11-08 13:35
2007.12.16
Прошу помочь с переводом сишного кода эмулятора Adlib


15-1195238324
homm
2007-11-16 21:38
2007.12.16
Повпрос по RAID


1-1190823390
Игорь_З
2007-09-26 20:16
2007.12.16
Мерцание ListView


15-1194870352
Leonid Troyanovsky
2007-11-12 15:25
2007.12.16
Вредные советы чайникам


2-1195642569
Alex_C
2007-11-21 13:56
2007.12.16
Странная проблема с ShowMessage