unit hugrid;

interface
uses
ShellAPI, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, DB, StdCtrls, ClipBrd, Menus, dbctrls, Jpeg,
extctrls, Registry, Comctrls;

Type
TYeniNotifyEvent = Procedure (Sender : TObject; ACol,ARow : Integer; const Value : String) of Object;
THuGrid = class(TDBGrid)
Private
int_onSetEditText : TYeniNotifyEvent;
{Private Deklerasyon}
protected
{protected Deklerasyon}
public
constructor Create(AOwner: TComponent); override;
destructor Destroy ; override ;
Published
property onSetEditText : TYeniNotifyEvent read int_onSetEditText write int_onSetEditText;
{Published declarations }
End;
type
TMyBookmarks = class(TBookmarkList);

Procedure Register;

implementation

Procedure Register;
Begin
RegisterComponents('Huso Grid', [THuGrid]);
End;

Constructor THuGrid.Create(AOwner: TComponent);
Begin
inherited; //Create(Owner);
End;

Destructor THuGrid.Destroy;
Begin
inherited; //Destroy;
End;

end.

THuGrid = class(TCustomDBGrid)

...........
if Assigned( int_onSetEditText ) then
int_onSetEditText(Self, Kolon, Satir, Icerik);
........