摘要:
unit UniCaptcha;interfaceuses classes, Graphics, uniImage;type TUniCaptcha=class(TUniImage) private FChallenge:ShortString; procedure Render; public constructor create(Owner:TComponent);override; procedure SetChallenge(aChallenge :ShortString); published property Challenge :ShortString read FChallen 阅读全文