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.