Timer.Enable := True; aber Form wir dzur Laufzeit erstellt...

[SlaterBenelli]

Hallo Leute,

eigentlich klingt es so einfach...

Code im Timer-Element soll ausgeführt werden um in der Statusbar Datum und Uhrzeit zu aktualisieren...

... leider ist es das augenscheinlich nicht!

Mein Programm habe ich mit einer TMyApp gemacht und dort die Form-Erstellungen reingepackt...

Delphi-Quellcode:

procedure TVSRepApp.Main;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmMAin, FfrmMain);
  FfrmMain.Start(Self);
  Application.Run;

end;

der "Start Quelltext" sieht so aus:

Delphi-Quellcode:

program VSREP;

uses
  Forms,
  SysUtils,
  UfrmMain in 'UfrmMain.pas' {frmMain},
  UMyBase in 'UMyBase.pas',
  UVSRePApp in 'UVSRePApp.pas',
  USplash in 'USplash.pas' {frmSplash},
  ChrisRoutinenSammlung in '..\..\..\UnitSammlungen\ChrisRoutinenSammlung.pas',
  UMySQLModule in 'UMySQLModule.pas' {MySQLModule: TDataModule},
  ULogEintrag in 'ULogEintrag.pas',
  UMyException in 'UMyException.pas',
  UPassWord in 'UPassWord.pas' {PasswordDlg},
  UFehler in 'UFehler.pas',
  UFehlerGlossar in 'UFehlerGlossar.pas',
  UChangeEvent in 'UChangeEvent.pas',
  UFehlerErfassung in 'UFehlerErfassung.pas' {frmFehlerEingabe},
  UfrmNachbearbeitung in 'UfrmNachbearbeitung.pas' {frmNachbearbeitung},
  UAppUpdate in 'UAppUpdate.pas',
  UUser in 'UUser.pas';

{$R *.res}

Var
  VSRepApp : TVSRePApp;
begin
try
//  Application.CreateForm(TMySQLModule, MySQLModule);
  VSRepApp := TVSRePApp.Create;
  VSRepApp.Main();
  FreeAndNil(VSRepApp);

Except

  on ex: TLoginFailExeption do
    Application.MessageBox(
      PChar('Bitte beenden Sie das Programm.' + #13 + #10 + ex.Message),
      'Fehler beim Login!'
    );


  on ex: Exception do
    Application.MessageBox(
      PChar('Bitte beenden Sie das Programm.' + #13 + #10 + ex.Message),
      'Fehler in der Anwendung!'
    );

end;

end.

Jetzt habe ich auf dem frmMain eine Timer-Komponente liegen die alle 1000 MSec was machen soll... aber ich bekomme da pernament eine Fehlermeldung mit Adressschutzverletzung...

Bin ein wenig am verzweifeln... Wie schaffe ich das der Timer NACH dem Application.Run gestartet wird?

Ich kann mir sehr gut vorstellen das ich nicht der einzige bin, der hier sowas fragt, aber ich komm anscheinend mit der Forums-Suche nicht zurecht, zumindest habe ich keinen Beitrag gefunden der irgendwie gepasst hat... Sorry!

Gruß
Christian