Form2 afslutnings problemer.

måske noget med:
[pre]
procedure TfmAfslutProcedure.Timer1Timer(Sender: TObject);
begin
if taeller=5 then
begin
taeller:=0;
Close;
Form1.Close;//lukker form1
end;
inc(taeller);
label9.caption:=inttostr(taeller);
end;

procedure TfmAfslutProcedure.FormCreate(Sender: TObject);
begin
taeller:=0;
end;

[7pre]

Jeg har 2 form'me i midt projekt.
Når der klikkes på form1 for, at afslutte, så skal Form2 vises i ca 10 sek, og afslutte helle programmet.
Med der lukkes kun for form2 ikke for Form1.
Hvad gør jeg forkert?

Jeg har 2 form'me i midt projekt.
Når der klikkes på form1 for, at afslutte, så skal Form2 vises i ca 10 sek, og afslutte helle programmet.
Med der lukkes kun for form2 ikke for Form1.
Hvad gør jeg forkert?


Du kan lave en OnClose eventhandler på Form1 som opretter og viser Form2 og herefter afslutter programmet:

<pre>
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
Form: TForm2;
begin
Form := TForm2.Create(Self);
try
Form.ShowModal;
finally
Form.Free;
Action := caFree;
end;
end;
</pre>

I timeren på Form2 kalder du bare Close; Hvis det ikke er nødvendigt at du tæller op til 10 kan du bare sætte timerens interval til 10000 i øvrigt.