【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供L_Tedit1.pas参考,解决您在L_Tedit1.pas学习中工作中的难题,参考学习。
unit L_Tedit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls;
type
L_Tedit1 = class(Tedit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [L_Tedit1]);
end;
end.