,, havde jeg brug for forbindelser " à la ", d.v.s. en form.så jeg har brug for en tlabel men " tabstopable " og tstatictext er berettiget til det.men det kan ikke gøre en focusrect, når fokus.her er min løsning. interface, type,    tstatictext = klasse (stdctrls. tstatictext),    private,      procedure drawfocusrect;,      procedure wmsetfocus (var budskab: twmsetfocus); meddelelse wm_setfocus;,      procedure wmkillfocus (var budskab: twmsetfocus); meddelelse wm_killfocus;,      procedure wmpaint (var twmpaint besked:) meddelelse wm_paint;,   ; //alle komponenter i denne form vil arvet fra min modificerede, //tstatictext,    tdatabrowseform = klasse (tform),      label1: tstatictext;,      label2: tstatictext;,    private,      (private erklæringer),    offentlige,      {offentlige erklæringer},   ;,.,,, gennemførelse,.., procedure tstatictext. dr.awfocusrect;, var,    dc: hdc; begynder,    dc: = getdc (klare),    prøve,      vinduer. drawfocusrect (dc, direkte (1, 1, width-1, højde - 1),    endelig      releasedc (klare, dc),   ;, ophør, procedure tstatictext. wmkillfocus (var budskab: twmsetfocus), begynder,    arvede;,    drawfocusrect;,;, procedure tstatictext. wmpaint (var budskab: twmpaint), begynder,    arvede;,    hvis fokuseret så      drawfocusrect;,;, procedure tstatictext. wmsetfocus (var - besked: twmsetfocus), begynder,    arvede;,    drawfocusrect,,,,,