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