Du solltest den Code in Resize aufrufen:
Delphi-Quellcode:
procedure TForm1.FormResize(Sender: TObject);
begin
if (MediaPlayer1.State = TMediaState.Playing) then
TWindowsMedia (Mediaplayer1.Media).stretch;
end;
Sei NICHT so stur - mit dem Button macht das keinen Sinn!
Wenn Du es UNBEDINGT mit dem Button machen willst:
Lösche den OnResize-Eintrag und mache es so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
FormResize(Self);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
if (MediaPlayer1.State = TMediaState.Playing) then
TWindowsMedia (Mediaplayer1.Media).stretch;
end;