源代码
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是对的
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是对的
解决方案 »
- delphi难以割舍的爱
- 如何做到BMP图象缩放时平滑过渡?
- delphi中的T是哪个单词的缩写啊
- 你们好啊,有自己开公司的么
- 如何像flashget,netants那样的浮动小窗体,如何把程序运行后显示到右下角的那个地方(俺用了那么多年的win还不知道叫什么名称,对不起了
- 一个讨厌的问题!!!!!!!!!!!!!!
- delphi 5 的乱码问题
- 如何使panel2面板不和panel1面板一起动啊?
- 这句SQL错在哪里?
- 我的ADO坏掉了,该怎样安装?
- FASTREPORT里字段设计的问题,请帮忙解答
- [GDI+问题!求助!]实现类似于音乐播放器LRC字幕部分的文字向上滚动中出现的问题 求助!
C:\Program Files\Borland\Delphi6\Lib,为什么找不到啊