Einzelnen Beitrag anzeigen

DaWalt

Registriert seit: 22. Apr 2005
Ort: Dortmund
13 Beiträge
 
#3

AW: Event im Objektinspektor von Elternklasse?

  Alt 11. Okt 2010, 12:05
Elternteil:
Code:
type
  TExtFoeteForm = class(TForm)
    Timer1: TTimer;
    SB_Handbedienung: TSpeedButton;
    BB_Close: TBitBtn;
    procedure Timer1Timer(Sender: TObject); dynamic;
    procedure FormShow(Sender: TObject); dynamic;
    procedure FormHide(Sender: TObject);
    procedure BB_CloseClick(Sender: TObject);
    procedure AusgangsClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  published

  end;

var
  ExtFoeteForm: TExtFoeteForm;

implementation

{$R *.DFM}

...

procedure TExtFoeteForm.AusgangsClick(Sender: TObject);
begin
  with Sender as TButton do begin
    ...;
  end;
end;
KindTeil:
Code:
type
  TKindForm = class(TExtFoeteForm)
  ... allerlei Objekte, u.a. Buttons, die AusgangsClick benutzen sollen
Und wahrscheinlich liegt genau beim "richtig deklariert" der Hase im Pfeffer. Hab den Eintrag im Elternteil von auch schon im Public- und im Published-Teil gehabt, hat aber nix geändert.
  Mit Zitat antworten Zitat