Форум: "Система";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизКак вывести ролик на весь экран в TMediaPlayer???? Найти похожие ветки
← →
elchin (2001-11-18 19:11) [3]Для фулскрин:
procedure TForm1.fullscreenClick(Sender: TObject);
Var hTaskBar : THandle;
begin
hTaskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(hTaskBar, SW_HIDE);
form1.width:=Screen.width;
form1.height:=Screen.height;
mediaplayer1.display:=form1;
mediaplayer1.displayrect:=forml.clientrect;
form1.WindowState := wsMaximized;
end;
а это чтоб восстоновить:
procedure TForm1.normalscreenclick(Sender: TObject);
Var hTaskBar : THandle;
begin
hTaskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
with form1 do begin
WindowState := wsnormal;
width:=...;
height:=...;
top:=...;
left:=...;
mp1.displayrect:=clientrect;
end;
{и все остальное для восстонавления}
end;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c