Event in Komponente einbinden

[R2009]

Hi,
ich bin wahrscheinlich zu blöd dafür. Weiss nicht mehr weiter. Die Prozedur hab ich gefunden. Er löst aber das Ereignis nicht aus.

Delphi-Quellcode:

unit UStringGrid;

interface

uses
  SysUtils, Classes, Controls, Grids, stdctrls, Graphics, extctrls, Messages;

type

  TZstringgrid =class (Tstringgrid)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

  TUStringGrid = class(Tpanel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
    Procedure click;Override;
  public
    { Public-Deklarationen }
    cb:tcombobox;
    sg:TZstringgrid;
    x,y:integer;
    constructor Create(AOwner: TComponent); override;
    procedure Paint;override;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation
Procedure TUstringgrid.click;
begin
  inherited;
  x:=sg.col;
  y:=sg.row;
  paint;
end;

procedure TUstringgrid.Paint;
begin
  inherited;
  cb.Repaint;
  sg.width:=width;
  sg.Height:=height;
  cb.Left:=x*20;
  cb.Top:=y*20;
end;


constructor TUstringgrid.Create(AOwner: TComponent);
begin
  inherited;
  sg:=tzstringgrid.Create(self);
  sg.Parent:=self;
  cb:=tcombobox.Create(self);
  cb.Parent:=self;
  Align:=alnone;
  cb.Width:=sg.defaultcolwidth;
  sg.width:=width;
  sg.Height:=height;
  Color:=clAppWorkSpace;
  sg.Fixedrows:=0;
  sg.Fixedcols:=0;
  cb.BringToFront;
end;

procedure Register;
begin
  RegisterComponents('Zusätzlich', [TUStringGrid]);
end;

end.