Hilfe bei Komponente

[perle]

Hallo, ich wollte heute mal ein bisschen mit der KOmponentenentwicklung experimentieren, dazu habe ich folgende Frage:

Bei z.B. einer Databankkomponenten gibt es ja meistens die Eigenschaft DataSource die sich recht komfortabel festlegen lässt, da hier im OI eine Art Combobox in der z.b. alle Komponenten vom Typ TDataSource aufgelistet werden, die z.Z. auf der Form sind. In einem Buch habe ich gelesen, dass das etwa so geht:

Delphi-Quellcode:

[...]
private
  FEdit : TEdit;
published
  property EditBox : TEdit read FEdit write FEdit;
end;
[...]

und schon bekäme man alle Komponenten vom Typ TEdit aufgelistet. Nun meine Frage : Wie schaffe ich es, dass nicht nur Edit's sondern z.B. Edits UND Forms oder alle verfügbaren Komponenten dort aufgelistet werden?

Danke im Vorraus auch wenn die Frage wohl etwas dumm erscheinen mag

[Leuselator]

Im DesignTimePackage:

Delphi-Quellcode:

type
  TDeinProperty   = class;
  TDeinProperty = class(TComponentProperty)
  public
    function  GetAttributes: TPropertyAttributes; override;
    procedure GetValues(Proc: TGetStrProc); override;
  end;

  procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('DeinePalletenDeite'
                    ,[TDeineComponente]);
  RegisterPropertyEditor(TypeInfo(TDeinProperty)
                        ,TDeineComponente
                        ,'DeinProperty '
                        ,TDeinProperty);

end;
function TDeinProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paMultiSelect, paValueList, paSortList, paRevertable];
end;

procedure TDeinProperty.GetValues(Proc: TGetStrProc);
var
  i,j: Integer;
  SchonDa : Boolean;
  UnserParent : TWinControl;
  WirSelbst: TComponent; // das ist Deine Komponente
  Konkurent: TComponent;
  DasControl : TControl;
begin
  WirSelbst := nil;
// wir gehen alle Componenten des
// Designers durch, bis wir uns selbst
// gefunden haben...
  for i := 0 to  Designer.GetRoot.ComponentCount - 1 do begin
    WirSelbst := Designer.GetRoot.Components[i];
    if (WirSelbst is TDeineComponente) and ((WirSelbst as TComponent)=GetComponent(0)) then break;
  end;
  UnserParent := (WirSelbst as TLsLabel).Parent;
  for i := 0 to UnserParent.ControlCount-1 do begin
      DasControl := UnserParent.Controls[i];
      if (DasControl is TWincontrol)
      and not (   (DasControl is TDeineComponente) // wollen wir nicht in der Liste haben
               or (DasControl is TButton)          // und was Du sonst nicht haben möchtest
               or (DasControl is ...))
      and     (   (DasControl is TEdit)
               or (DasControl is TSonstwas)) then begin
        // wenn Du verhindern möchtest, dass sich 2 Deiner Komponenten
        // an das selbe Ziel "hängen": 
        SchonDa := False;
        for j := 0 to Designer.GetRoot.ComponentCount-1 do begin
          Konkurent := Designer.GetRoot.Components[j];
          if (Konkurent is TDeineComponente) then begin
            if ((Konkurent as TDeineComponente).Associate = (DasControl as TWincontrol)) then begin
              SchonDa := True;
            end;
          end;
        end;
        if not SchonDa then Proc(ContentStr((DasControl as TWincontrol).Name));
      end;
  end;
  Proc(ContentStr(''));
end;

im RuntimPackage:

Delphi-Quellcode:

type
  TDeineComponente = class(TCustomControl)
  private
    FDeinProp : TDeinProperty;
    procedure SetDeinProp(Value:TDeinProperty);  
    ...
  published
    property DeinProperty : TDeinProperty read FDeinProp write SetDeinProp;
  end;  
implementation
TDeineComponente.SetDeinProp(Value:TDeinProperty);  
begin
  FDeinProp := Value;
end;

Gruß

[perle]

Vielen Dank schonmal, kannst du mir vielleicht auch erklären, warum das eine in das DesignTime Package kommt und das andere ins Runtime Package? bzw: wo liegen da die Unterschiede und vor allem : wo finde ich (oder wie erstelle ich) ein DesignTimePackage?

Frage2 : Wo steht TComponentProperty? Ich finde das nirgends. Google hat ergeben, dass das in der DSGNINTF.PAS stehen soll unter Source\ToolsApi\ aber diese Datei hab ich dort nicht....Lediglich eine DesignIntf, die aber einen solchen Typ nicht beinhaltet....ist die DsgnIntf evtl eine ältere Version oder so?

ps : Ich habe Delphi7 Enterprise

[Quake]

Die Runtime unit bindenst du in deiner Anwendung ein und im Package bindest du beide Units ein, denn deine Anwendung interessiert der ganze Registrierungskram nicht der ist nur für den OI von Bedeutung.