Funktion als Generic - wie?

[exasoft]

Hi @ALL,
hab mal bissi mit generics rumprobiert und wollte mal testweise eine Funktion umstellen - bekomme es aber nicht hin:

Wenn ich zB:

Delphi-Quellcode:

function TForm1.getY_TEdit(Sender: TObject; AMaster: TLayout): single;
var
stufe: integer;
begin
  Result := 0;
  stufe := 0;

  if tedit(sender).Parent = AMaster then
    stufe := 1...

umstellen wollte, habe ich das so versucht:

Delphi-Quellcode:

function TForm1.getY<T>(Sender: TObject; AMaster: TLayout): single;
var
stufe: integer;
begin
  Result := 0;
  stufe := 0;

  egal, was ich hier versuche - ich kann nicht auf ".Parent" zugreifen bzw. da wird gemeckert.

Ich möchte zB TEdit aber auch TMemo, TComboEdit, etc. mitgeben. Hab da bestimmt noch nen Denkfehler. Jemand nen Tipp?

Tks vorab..

de schorsch