Einzelnen Beitrag anzeigen

ichbins

Registriert seit: 9. Jul 2005
Ort: Hohenaltheim
1.001 Beiträge
 
Delphi 2005 Personal
 
#1

Komponente registriert sich nicht

  Alt 4. Mai 2006, 21:13
Hallo, ich habe eben eine eigene Komponente geschrieben, die registriert sich aber nicht.

Meine Procedure register enthält korrekten Code (mit anderen Packages im Internet verglichen) und ist auch registriert. Hier mal ein Überblick über die Unit:

Delphi-Quellcode:
unit SortListView;

interface

uses
  ComCtrls, classes;

procedure register;

type
  TSortDirection = (sdUp, sdDown);

procedure Sort(const LV: TCustomListView; const Column: Integer;
  Direction: TSortDirection);

implementation

{$R SortListViewIcons.res}

uses
  Windows, CommCtrl,
  MWKSysUtils;

type
  TSortRec = record
    Column: Integer;
    Direction: TSortDirection;
  end;
  TSortListView = class (tlistview)
    private
      procedure ColClick(Column: TListColumn);override;
    public
  end;
  PSortRec = ^TSortRec;
  
procedure register;
begin
  registercomponents('Standard',[tsortlistview]);
end;

[...] //dieser Code bezieht sich auf die Komponente.

end.


Der Code im Package sieht wie folgt aus:

Delphi-Quellcode:
package SortlistViewPackage;

{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'Enthlt die Sortlistview'}
{$IMPLICITBUILD ON}

requires
  rtl,
  vcl;

contains
  MWKSysutils, //hier eingebunden, damit nicht die Fehlermeldung kommt dass "Die Unit MKWSysUtils impliziert eingebunden wurde"
  SortListView in 'SortListView.pas';

end.

im Anhang die komplette Kompo.
Angehängte Dateien
Dateityp: zip sortlistview_695.zip (13,1 KB, 8x aufgerufen)
Michael Enßlin
Ich, der ich weiß, mir einzubilden, dass ich weiß, nichts zu wissen, weiß, dass ich nichts weiß.
Sokrates
  Mit Zitat antworten Zitat