Komponent programmering Class not found exception

Du skal lave en RegisterClass(TDXTimer) i din Register procedure.

/Martin

Hvorfor er det nødvendigt at registere timeren?

mener du

procedure Register;
begin
  Registerclass(\'Pagename\',[classname]);
end;
?

Jeg troede kun det var for at få den op på komponentpaletten, hvilket jeg jo ikke behøver

Nej sådan :

procedure Register;
begin
  RegisterClass(AClass: TPersistentClass);
end;

For så gør du din classe kendt og undgår Class not found fejlen

/Martin

Det hjælper ikke.

Jeg får stadig en EClassNotFound exception med beskeden (class \"Timernavn\" not found )

En anden skør ting er at selv om jeg fjerner min komponent fra formen bliver den ved med at tilføje uniten i uses erklæringen, og bliver altså ved med at give mig den exception når jeg kører programmet.

Det lyder mærkeligt, du må bruge noget fra den unit et eller andet sted, har du reinstalleret comp. efter du har tilføjet RegisterClass ?

næ. Jeg har tilføjet registerclass.

Må jeg sende dig uniten, så kan det være du kan se hvad der er galt ?

martin@e-lind.dk, det bliver muligvis først senere jeg for kigget på det, husk de unit\'s du user.

Prøv lige at registere / installere den packed du har din comp. i, det kunne godt hjælpe.

Ret din Constructor til dette :

constructor TMidiSequencer.Create(AOwner : TComponent);
begin
  inherited;
  TPQN := 120;
  FStepValue := 15;
  BeatsPerMeasure := 4;
  FNoteOnList := TList.Create;
  FNoteOffList := TList.Create;
  FTracks := TList.Create;
  FTimer := TAccurateTimer.Create(Self); <<<<----
  FTimer.Enabled := false;
  FTimer.OnTimer := DoTimer;
  FPosition := TMidiTime.Create(0);
  FMeasureCount := 0;
  Tempo := 120;
  FLog := TStringlist.Create;
  FThrashCan := TList.Create;
end;

Så virker det

/Martin

Kanon! Tusind tak. Jeg vidste ikke det kunne give problemer.

Jeppe