源代码
unit QTextSenseEdit;interfaceuses
  Windows, Messages, SysUtils, Classes, QControls, QStdCtrls;type
  TSensitiveTextEvent = procedure(AText: string) of object;//方法指针
  TTextSenseEdit = class(tedit)
  private
    { Private declarations }
    FSensitiveText: string;
    FOnSensitiveText: TSensitiveTextEvent;
    procedure SetSensitiveText(AValue: string);
  protected
    { Protected declarations }
    procedure Change;override;
  public
    { Public declarations }
  published
    { Published declarations }
    property SensitiveText: string read FSensitiveText write SetSensitiveText;
    property OnSensitiveText: TSensitiveTextEvent read FOnSensitiveText write FOnSensitiveText;  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Standard', [TTextSenseEdit]);
end;procedure TTextSenseEdit.Change;
begin
  inherited;
  if Text = SensitiveText then
    if Assigned(OnSensitiveText) then
      OnSensitiveText(Text);
end;
 
procedure TTextSenseEdit.SetSensitiveText(AValue: string);
begin
  FSensitiveText := AValue;
end;end.编译时,dclusr不过:
package dclusr;{$R *.res}
{$ALIGN 8}
{ ASSERTIONS ON}
{$BOOLEVAL OFF}
{ DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{ LOCALSYMBOLS OFF}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$SAFEDIVIDE OFF}
{ STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $51000000}
{$DESCRIPTION 'Borland User Components'}
{$LIBSUFFIX '60'}
{$DESIGNONLY}
{$IMPLICITBUILD OFF}requires
  rtl,
  vcl,
  designide,
  visualclx;contains
  MsgClientAPI,
  QTextSenseEdit in '..\Projects\Bpl\QTextSenseEdit.pas';end.求各位大虾帮帮忙,我的Library path:$(DELPHI)\Lib是对的