Delphi 2007 Komponentenproblem

[Darlo]

Vielen Dank für die netten und schnellen Antworten.

Stehe nun leider vorm nächsten Problem was das Pakt erzeugen angeht.
Wenn ich in Delphi 2007 auf neues Paket erstellen gehe, und dann die pas dem Projekt hinzufüge,
schreit er immer (höchstwahrscheinlich für viele verständlich), dass er keine Hostanwendung zugewiesen bekommen hat.

Ich poste mal anbei den Code der *.pas. Über zusätzliche Denkansätze freue ich mich.

Danke Darlo.

Delphi-Quellcode:

unit PEdit;

interface

uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, Mask; 

type 
  TPEdit = class(Tmaskedit) 
  private 
  { Private-Deklarationen } 
  fAlignment : TAlignment; 
  protected 
  { Protected-Deklarationen } 
  public 
  { Public-Deklarationen } 
  procedure SetAlignment(const Value: TAlignment); 
  procedure CreateParams(var Params: TCreateParams);override; 
  published 
  { Published-Deklarationen } 
  property Alignment : TAlignment read fAlignment write SetAlignment; 
end; 

procedure Register; 

implementation 

procedure TPEdit.SetAlignment(const Value: TAlignment); 
begin 
  if Value <> fAlignment then 
  begin 
    fAlignment := Value; 
    RecreateWnd; // erzeuge Fenster neu -> CreateParams 
  end; 
end; 

procedure TPEdit.CreateParams(var Params: TCreateParams); 
const cAlignStyles: array [TAlignment] of Cardinal = (ES_LEFT, ES_RIGHT, ES_CENTER); 
begin 
  inherited;  
  with Params do 
    Style := Style or cAlignStyles[fAlignment];//taRightJustify]; 
end; 

procedure Register; 
begin 
  RegisterComponents('Standard', [TPEdit]); 
end;

end.