unit transhint; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, extctrls,stdctrls; type TTransparentHint = class(TObject) private flab : pointer; procedure setvisible(v : boolean); public property visible : boolean write setvisible; property lab : pointer read flab write flab; procedure dohint(txt : String); protected end; implementation procedure TTransparentHint.setvisible(v : boolean); begin // tlabel(flab^).visible:=v; if v=false then tlabel(flab^).caption:=''; end; procedure TTransparentHint.dohint(txt : string); begin tlabel(flab^).caption:=chr(149)+' '+txt+' '+chr(149); end; end.