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.