Jak w temacie
0
0
A wytłumacz to bardziej sensownie!
0
Proponuję użycie Panela na któryym wyświetlasz Avika.
np:
with MediaPlayer1 do
begin
Display := Panel1;
DisplayRect := Panel1.ClientRect;
end;
Następnie zczytaj jego wymiary i wyświetl np: w etykiecie
np:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(Panel1.Width) + ' x ' + IntToStr(Panel1.Height);
end;
Pozdrowienia.
--Marco_99