Event in Komponente einbinden

[R2009]

Hi,
hab auf ein Tpanel ein Stringgrid und eine Combobox gelegt. Jetzt soll die Combobox, je nach dem wo das Stringrid angklickt wird, ihre Position verändern.
Fehlermeldung: Methode Onclick in Basisklasse nicht gefunden. Die Methode ist aber vorhanden.
Ist mein Ansatz schon falsch?
Kann mir jemand helfen was mach ich falsch?

Delphi-Quellcode:

unit UStringGrid;

interface

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

type
  TFehlerEvent = procedure(Param1: string) of object;

  TZstringgrid =class (Tstringgrid)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    x,y:integer;
  published
    { Published-Deklarationen }
    Procedure onclick(Sender:tobject);override;   <<<<<---------- Hier krieg ich Fehler: Methode Onclick in Basisklasse nicht gefunden.
  end;

  TUStringGrid = class(Tpanel)
  private
    { Private-Deklarationen }
     FOnFehler: TFehlerEvent;
 protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    cb:tcombobox;
    sg:TZstringgrid;
    constructor Create(AOwner: TComponent); override;
    procedure Paint;override;
  published
    { Published-Deklarationen }
    property OnFehler: TFehlerEvent read FOnFehler write FOnFehler;
  end;

procedure Register;

implementation

Procedure TZstringgrid.onclick(Sender:tobject);
begin
  x:=col;
  y:=row;
end; 

procedure TUstringgrid.Paint;
begin
  inherited;
  cb.Repaint;
  sg.width:=width;
  sg.Height:=height;
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.

Vielen Dank!

[Bernhard Geyer]

Zitat:

Zitat von R2009

Fehlermeldung: Methode Onclick in Basisklasse nicht gefunden. Die Methode ist aber vorhanden.

Die Methode ist nicht vorhanden. OnClick ist eine property!
Schau mal ob es eine Methode DoClick oder ähnliches gibt welche das Event OnClick aufruft wenn es zugewiesen ist.

[R2009]

Hi Bernhard,

hab ich nicht gefunden. Hast du sonst noch eine Idee wie das zu realisieren ist?

Vielen Dank im Vorraus!

[dataspider]

Zitat:

Zitat von R2009

hab ich nicht gefunden.

Die Protected Methode Click (von TControl) löst das OnClick aus.

Cu, Frank

[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.

[Bernhard Geyer]

Zitat:

Zitat von R2009

Er löst aber das Ereignis nicht aus.

Ist ja auch klar. Du mußt die Click-Methode vom Grid überschreiben, nicht die vom Panel

[R2009]

Hi,

danke Bernhard, bin ja auch doof, hätte ich auch von alleine drauf kommen können.

Vielen Dank

[guidok]

Ggf. ist es auch noch sinnvoll zuerst die eigenen Zuweisungen zu bearbeiten und danach inherited.