Zitat von
Nils_13:
Hast mich falsch verstanden. Ich habe die Variable in der frmMain. Ich möcht wissen, wie ich die Variable von der frmVideo aus zuweisen muss, dass das funktioniert, bisher stand in der letzten Zeile von frmVideo.Destroy FGC := True, aber das bringt anscheinend nichts, denn bei dem Code bleibt das Videofenster schwarz.
Delphi-Quellcode:
procedure TfrmMain.CheckState;
begin
if FGC then
begin
with frmVideo do
begin
FilterGraph.Stop;
FilterGraph.ClearGraph;
FilterGraph.Free;
FGC := False;
end;
end else
begin
with frmVideo do
begin
FilterGraph.RenderFile(fFiles[playindex].pfad);
FilterGraph.play;
FGC := True;
pause := True;
end;
end;
frmVideo.Show;
end;
Nein funktioniert nicht in Delphi.(Glaub ich zumindest)
Weil du den Thread frmVideo beendest und damit FGC := True keine bedeutung mehr hat.
(Müßte aber beim beenden wenn schon auf False gesetzt werden) denn dein Video läuft ja nicht mehr.
Wenn es True ist und der wert doch noch selbst nach dem beenden der frmVideo
existenz ist dann ist es auf jedenfall falsch.
Er muss auf FALSE gesetzt werde.
gruß
gruß