Edit nach Create leeren

[LoL]

Delphi-Quellcode:

unit dddEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls, ComCtrls, Dialogs, Graphics;

type
  TdddEdit = class(TRichEdit)
  {...}
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TdddEdit]);
end;

constructor TdddEdit.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 121;
  Height := 21;
  Lines.Clear;
end;