Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Вниз

StringGrid, InplaceEdit, MaxLength   Найти похожие ветки 

← →
kmc   (2002-04-16 14:54) [3]

Всем большое спасибо, но я устал ждать и сделал сам,
причем довольно-таки красиво:

unit MlGrid;

interface
uses Classes, Grids;

type
TGetEditLimitEvent = procedure (Sender: TObject; ACol, ARow: Longint;
var Value: Integer) of object;
TMlStringGrid = Class(TStringGrid)
private
FOnGetEditLimit : TGetEditLimitEvent;
published
property OnGetEditLimit : TGetEditLimitEvent read FOnGetEditLimit write
FOnGetEditLimit;
protected
function GetEditLimit : Integer; override;
end;

procedure Register;

implementation

function TMlStringGrid.GetEditLimit;
begin
OnGetEditLimit(Self, Col, Row, Result);
end;

procedure Register;

begin
RegisterComponents("Mye", [TMlStringGrid]);
end;


end.

---

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

Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c