TTimer als Var im Constructor eines TForms übergeben

[razer91]

so weltklasse ist der Code nicht, dass er geheim bleiben müsste :

Main Datamodule:

Delphi-Quellcode:

unit DataModuleMain;

interface

uses
  SysUtils, Classes, ExtCtrls, FormMain;

type
  TdmMain = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
  private
   frmRem: TfrmRem;
   procedure OnTimerTimeOut(Sender: TObject);
  public
  end;

var
  dmMain: TdmMain;
  gTiPostpone: TTimer;

implementation

{$R *.dfm}

type
  TMethodePionter = packed record
    pMethod: Pointer;
    pObject: TObject;
  end;

procedure TdmMain.DataModuleCreate(Sender: TObject);
var
  mp: TMethodePionter;
begin
  gTiPostpone := TTimer.Create(self);
  gTiPostpone.Enabled := false;

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

  frmRem := TfrmRem.Create(self);
  frmRem.PostPoneTimer := gTiPostpone;
  frmRem.Show();
end;

procedure TdmMain.OnTimerTimeOut(Sender: TObject);
begin
  gTiPostpone.Enabled := false;
  if not Assigned(frmRem) then
    frmRem := frmRem.Create(self);
  frmRem.PostPoneTimer := gTiPostpone;
  frmRem.Show();
end;

end.

und das ominöse frmRem

Delphi-Quellcode:

unit FormRem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TfrmRem = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    cbTimeChoice: TComboBox;
    btOpenOutlook: TButton;
    btPospone: TButton;
    procedure btOpenOutlookClick(Sender: TObject);
    procedure btPosponeClick(Sender: TObject);
  private
    fTiPostpone: TTimer;
    procedure SetTimerInterval(var Timer: TTimer; const nSecs, nMins, nHours : Cardinal);
  public
    property PostPoneTimer: TTimer read fTiPostpone write fTiPostpone;
  end;

Danke schon einmal !

[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ß