ich hab kurz versucht, bei einer Konsolenanwendung ein paar komponenten zu verwenden(TServer-und ClientSOcket). Dabei bin ich draufgekommen, dass keine zugewiesene Events ausgeführt werden.
Ich hab das ganze dann noch einmal mit einem Timer versucht, aber es klappt nicht.
Hier mal der Source:
Delphi-Quellcode:
program Main;
{$APPTYPE CONSOLE}
uses
SysUtils, ExtCtrls;
var
Timer1: TTimer;
procedure TimerEvent(Sender: TObject);
begin
MessageBox(0, '', '', mb_Ok + mb_SystemModal);
Timer1.Enabled := false;
end;
begin
Timer1 := TTimer.Create(nil); //Hier weiß ich sonst nicht was nehmen - vielleicht is das das Problem
Timer1.Interval := 1000;
Timer1.OnTimer := TimerEvent;
Timer1.Enabled := true;
readln;
end.
logisch gesehen müsste nach 1 sec eine Nachricht erseinen, aber es kommt nix! Warum
