Timer afbrydelse af programmet

Sæt timerens interval til 30000 og i OnTimer skriver du: Application.Terminate;

Husk at timeren skal være Enabled:= true;

Sæt timerens interval til 30000 og i OnTimer skriver du: Application.Terminate;

Husk at timeren skal være Enabled:= true;

Skal der der kun være dette i OnTimer procedure?

Mvh
Monie Jacobsen

energy@sunwind.dk

Er der nogen der har et forslag til hvordam mand med Ttimer kan afbryde programmet efter ca 30 sek.
I Tubord Pascal, var der kommandoen Delay.

Mvh
Monie Jacobsen


energy@sunwind.dk

Jeg prøver, at forklare mig igen.

Programmet har 5 forme og i form1 er der en knap til afslut,
når denne knap aktiveres, så vises form5 og det er denne form5
der skal vises i ca 10 sek. og derefter afbryde helle programmet.

Har du et forslag, så vil det glæde mig!

Mvh
Monie Jacobsen

energy@sunwind.dk

Er form 5 skjult, og skal form1 lukkes når man trykker på knappen til afslut?

Er form 5 skjult, og skal form1 lukkes når man trykker på knappen til afslut?

Ja og form5 visses så de 10 sek. hvorved helle programmet lukkes ned.


energy@sunwind.dk

Er form 5 skjult, og skal form1 lukkes når man trykker på knappen til afslut?


Ja og form5 visses så de 10 sek. hvorved helle programmet lukkes ned.


energy@sunwind.dk

pre Kodeeksempel pre

Form1:
procedure TfmStartside.AfslutClick(Sender: TObject);
begin
fmStartside.Hide;
fmAfslutProcedure.Show;
end;

Form5:
procedure TfmAfslutProcedure.FormActivate(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TfmAfslutProcedure.Timer1Timer(Sender: TObject);
begin
Application.Terminate;
end;

Og i Timer1 blev Timer1.Enabled:=False;

Så virkede det.




energy@sunwind.dk

Er form 5 skjult, og skal form1 lukkes når man trykker på knappen til afslut?


Ja og form5 visses så de 10 sek. hvorved helle programmet lukkes ned.


energy@sunwind.dk


pre Kodeeksempel pre

Form1:
procedure TfmStartside.AfslutClick(Sender: TObject);
begin
fmStartside.Hide;
fmAfslutProcedure.Show;
end;

Form5:
procedure TfmAfslutProcedure.FormActivate(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TfmAfslutProcedure.Timer1Timer(Sender: TObject);
begin
Application.Terminate;
end;

Og i Timer1 blev Timer1.Enabled:=False;

Så virkede det.




energy@sunwind.dk

Du skal havde mangr tak Jonas
Mvh
Monie Jacobsen


energy@sunwind.dk