Timer starten nach schließen mit caHide

[peter314]

Hallo erstmal

Beim Programmieren bin ich auf folgendes Problem gestoßen.
Ich starte einen Timer nachdem ich die Form mit caHide geschlossen habe, aber irgendwie scheint der nicht ui starten. Mach ich was falsch oder irgendwas falsch verstanden (mit caHide)?

Hier mein Text:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action:TCloseAction);
begin
Action:= caHide;
Timer1.Enabled:= true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
b:= b+1;
if b=10 then
begin
Showmessage('Läuft');
Timer1.Enabled:= false;
end;
end;

Danke im voraus
peter

p.s. ich weiß leider nicht welche Programmiersprache ich benutze, dass wird in der Schule einfach so beigebracht

[SirThornberry]

wie kommst du darauf das es nicht funktioniert? Hast du mal einen Haltepunkt gesetzt?
Ich würde dir übrigens empfehlen das abschalten des Timers und das anzeigen der Message zu vertauschen da sonst während des anzeigens der Message der Timer noch läuft und damit diese Timerfunktion mit der Message immer wieder aufkommen kann.

[DeddyH]

Wie ist b definiert und auf welchem Interval steht der Timer?

P.S.: Willkommen in der DP

[peter314]

b ist eine integer-Zahl und das Timer-Intervall liegt bei 1000 (ist doch in millisekunden oder
)

break-points hab ich schon mal gesetzt aber bei step over (F8 ) springt der irgendwie ans Ende und nicht so wie ichs gewohnt bin einen Schritt weiter.
Und es funktioniert nicht, da die Message nicht angezeigt wird. Ohne den Timer wurde sie das noch.

Danke Übrigens, dass das mit den Antworten so schnell ging.

Peter

[DeddyH]

Lass Dir den Wert von b doch mal ausgeben, möglicherweise ist er schon größer als 10, dann wird Deine Abfrage niemals wahr.

[nahpets]

Hallo,

wo wird b initialisiert?
Ist Form1 das Hauptformular der Anwendung? Wird die Anwendung beim Schließen dieses Formulares beendet?
Dann wird der Timer nicht mehr dazu kommen etwas zu tuen, sondern zusammen mit dem Formular freigegeben.

[peter314]

Wenn ichs mit F8 duchlaufen lasse wird die Message angezeigt, aber dann wird das Fenster auch nicht geschlossen.

Zitat:

Ist Form1 das Hauptformular der Anwendung?

Was meinst du mit Hauptformular?
Hier ein leicht veränderter Quelltext. Ich möchte das was in den Edit geschrieben wurde nach dem schließen der Datei speichern.

Delphi-Quellcode:

  peter = class
  procedure speichern;
  end;
var
  Form1: TForm1;
  z: peter;
  a: string;
  b: integer;
  zusave: TStringList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
b:= 0;
{Form.Close}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.FormClose(Sender: TObject; var Action:TCloseAction);
begin
Timer1.Enabled:= true;
a:= Form1.Edit1.Text;
Action:= caHide;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
b:= b+1;
if b=10 then
begin
Timer1.Enabled:= false;
Showmessage('Läuft');
z.speichern;
end;
end;

procedure peter.speichern;
begin
zusave:= TStringList.Create;
 try
  zusave.Add(a);
 finally
  zusave.SaveToFile('C:\WINDOWS\TEMP\Upd10082100.TMP');
  zusave.free;
 end;
end;

end.

[nahpets]

Hallo,

beendet sich das Programm, wenn Du Button1 anklickst?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Form1.Close; 
end;

Ist Form1 das erste Formular, das im Projekt erstellt wird?

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Wenn so aussieht, wird das Programm beim Klick auf Button1 beendet und Du wirst kaum noch in die Ereignisroutine des Timers gelangen, da dieser mit dem Formular freigegeben wird und dann das Programm beendet.
Warum willst Du einen Timer benutzen, könntest Du die Logik aus der Timerroutine nicht genausogut im FormClose ausführen lassen?

[peter314]

Zitat:

Wenn es so aussieht

Sieht genauso aus.

Ich möchte mit dem Programm den Text, den der Benutzer schreibt mitschreiben (Hab' mit meinem Bruder gewettet, dass ichs schaff ).
Der mitgeschriebene Text soll dann in einer Datei gespeichert werden. Das Programm muss dann ja wohl eine weile im Hintergrund mitlaufen, sonst kann es das getippte nicht mitkriegen. Oder geht das doch irgenwie?