TTimer als Var im Constructor eines TForms übergeben

[Bummi]

ich verstehe zwar den teil nicht ganz

Delphi-Quellcode:

  mp.pMethod := @TdmMain.OnTimerTimeOut;
  mp.pObject := nil;
  gTiPostpone.OnTimer := TNotifyEvent(mp);

und das ist böse

Delphi-Quellcode:

  if not Assigned(frmRem) then
    frmRem := frmRem.Create(self);

aber bei mir meckert der Compiler nicht an;

[razer91]

Zitat von Bummi:

ich verstehe zwar den teil nicht ganz

Delphi-Quellcode:

  mp.pMethod := @TdmMain.OnTimerTimeOut;
  mp.pObject := nil;
  gTiPostpone.OnTimer := TNotifyEvent(mp);

und das ist böse

Delphi-Quellcode:

  if not Assigned(frmRem) then
    frmRem := frmRem.Create(self);

aber bei mir meckert der Compiler nicht an;

1) warum ist das böse?^^
2) meckert er zur Laufzeit auch nicht?

[Bummi]

1.)
du hast Dich vertippt
if not Assigned(frmRem) then
frmRem := frmRem.Create(self);
statt
if not Assigned(frmRem) then
frmRem := TfrmRem.Create(self);

2.)
Tut twar nichts außer Fenster anzeigen, läut aber...

[Bummi]

es gibt noch eine Falle:
DataModuleMain;
private
frmRem: TfrmRem;


heißt wahrscheinlich (der Teil Code fehlte im Post) genauso wie

FormRem;
var
frmRem: TfrmRem;

hier kannst Du nie sagen welche der Variablen jetzt an welcher Stelle greift.

[razer91]

Auch die beiden letzten Tipps haben den Fehler nicht abstellen können.

@Bummi: Die Variable, die sich standardmäßig in dem frmRem befinden müsste hab ich gelöscht, um genau der Falle, die du angedeutet hast, vorzubeugen.

Noch weitere Vorschläge??

Gruß