Hent Componentens navn (dynamisk):

HEj

Jeg har en form med en masse Edits, en masse buttons, et par Stringgrids, et par Combobokse og et par Listbokse.

Når min bruger sætter Cursoren (= 'kødbenet' ) på denne komponent og trykker F1 (funktast F1) er det meningen at der skal poppe en hjælpetekst i HTML op.

At lave det den gammeldags måde er nemt i Delphi, men brugeren vil have ÅBNE HJÆLPEFILER i HTML med selvvalgte BRUGER-NAVNE.

Min ide er at lade Componentens (Edit1 eks) være det første item i en tabel og 2. item er brugerens FILNAVN. 

EKS;

Edit1  ;  Edit1-hjælp.htm ;    (* måske lidt søgt *)
Button1 ;  button1-hjælp.htm ;

OSV...

Jeg kunne gøre det på følgende måde:

Procedure TForm1.Edit1Exit(sender ..... )

BEGIN
  UserfilNavn := FindUserfilNavn('Edit1');
  ....

  ...
END;

Men hvis jeg senere ændrer EDIT1 til et mere beskrivende navn er jeg ikke særlig godt kørende , så istedet kunne jeg tænke mig at jeg hentede komponentens navn dynamisk.

(( I JavaScript svarer det det DOCUMENT.THIS.NAME i LC Ascii ))

Det eneste jeg erindrer er :  Form1.Component.

Og her er det så jeg ikke kan huske resten af syntaksen:  ???

HJÆLP !!


Kristian