Hallo Leute,
ich habe folgendes Problem:
Ich versuche bei der manuellen Erstellung eines Formulars einen Timer zu übergeben:
Delphi-Quellcode:
procedure TdmMain.DataModuleCreate(Sender: TObject);
var
mp: TMethodePionter;
begin
fTiPostpone := TTimer.Create(self);
fTiPostpone.Enabled := false;
frmRem := TfrmRem.Create(fTiPostpone); //hier Erstellungsversuch
frmRem.Show();
end;
// hier constructor
constructor TfrmRem.Create(var Timer: TTimer);
begin
inherited Create(nil);
fTiPostpone := Timer; // "fTiPostpone" ist hier eine private Variable des "frmRem".
end;
Ich bekomme in dem "inherited"-Abschnitt eine
Exception "TTimer-Klasse konnte nicht gefunden werden" oder so ähnlich. Ich frage mich hierbei, warum er an dieser Stelle schon etwas mit dem Timer anfangen will, obwohl ich zuerst einmal das alte Create() aufrufe und dann den Timer-Kram mache...
Ich denke es handelt sich bei diesem Problem um eine Kleinigkeit, aber ich komme einfach nicht drauf
.
Hat jemand eine Idee?
Grüße
razer91