Hi,
ich will ein TDSVideoWindowEx2 verwenden, welches ich zur Laufzeit erzeuge. Als Parent bzw. Fläche für die Anzeige dient ein TPanel.
Wenn ich nun TDSVideoWindowEx2.StartFullScreen aufrufe, wechselt die Anzeige des Videos wie gewünscht in den Vollbildmodus. In diesem Moment verliert meine Anwendung aber jegliche Eingabemöglichkeit, offensichtlich landen die Eingaben nicht mehr zuerst in der TForm, wo ich sie verarbeiten könnte. Dementsprechend komme ich auch nicht mehr aus dem FullScreen heraus! Wie kann ich dieses Problem lösen?
Hier der Prozedur für die Einstellung des Anzeigemodus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TVideoPlayer.SetFullscreen(Value: Boolean);
begin
if Value then
fVideo.StartFullScreen
else
fVideo.NormalPlayback;
fFullScreen := Value;
end; |
Hier der Code, der das TDSVideoWindowEx2 erzeugt:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| constructor TVideoPlayer.Create;
begin
inherited Create(ParentControl);
fPlayer := TFilterGraph.Create(self);
with fPlayer do begin
Active := true;
end;
fVideo := TDSVideoWindowEx2.Create(self);
with fVideo do begin
Parent := ParentControl;
Align := alClient;
FilterGraph := fPlayer;
end;
end; |
Danke für Eure Tipps,
Florian
