Na mit
timer.enabled := true;
und
timer.enabled := false;
Oder geht das auch irgendwie anders?
Witzig? Nicht wirklich ... Wenn du zum Zeigen von Quellcode aufgefordert wirst, dann geht es ganz sicher nicht um banale Zusammenhänge wie ein Enabled-Propery auf True oder False zu setzen, sondern um die Methoden, in denen das geschieht. Mit anderen Worten: Zeig doch bitte etwas mehr Quellcode, zumindest die beiden Methoden OnShow und OnClose.
Ich meinte das auch nicht witzig. Ich weiß nur nicht welchen Code ich sonst zeigen soll.
Die Methoden sind:
Delphi-Quellcode:
procedure TDraft.FormShow(Sender: TObject);
begin
timer1.enabled := true;
image2.visible := true;
end;
und
Delphi-Quellcode:
procedure TDraft.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MediaPlayer1.Stop;
MediaPlayer1.Free;
timer1.Enabled := False;
image2.visible := False;
end;
Also nichts groß anderes...
Edit: Günther, im onClose.