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;