|
Вопрос # 4 436/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
На панели находятся TImage и WindowsMediaPlayer. У всех 3х компонентов привязка allClient. при выполнении
MainForm.borderstyle := bsNone;
MainForm.windowstate := wsMaximized;
форма открывается на весь экран, при этом панель и имидж меняют размеры на соответствующие, а медиаплеер остается исходного размера.
в процессе выполнения следующего кода насильно присваиваю новые размеры:
WMPlayer.Left := BackgroundImage.Left;//sPanel1.Left;
WMPlayer.Top := BackgroundImage.Top;//sPanel1.Top;
WMPlayer.Width := BackgroundImage.Width;//sPanel1.Width;
WMPlayer.Height := BackgroundImage.Height;
однако ничего не происходит и при следующем входе сюда дебаггером видно что у плеера опять старый размер.
Что посоветуете?
 |
Вопрос задал: AlexMPEI (статус: 1-ый класс)
Вопрос отправлен: 16 июля 2010, 13:51
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 14; последнее сообщение — 16 июля 2010, 16:40; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 16 июля 2010, 13:56 [#1]:
Цитата (AlexMPEI):
Что посоветуете?
А зачем у компонентов, лежащих на одном Parent'e, Align = alClient? Они же перекрывают друг друга в этом случае и находятся один над другим. Для чего такой брейнфакинг?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
AlexMPEI (статус: 1-ый класс), 16 июля 2010, 14:06 [#2]:
там есть еще другие компоненты. у них переключается свойство визибл, так что смотря что сейчас мы делаем, на экране виден то один компонент, то другой.
Вопрос в том, как заставить медиаплеер растянуться после
MainForm.borderstyle := bsNone;
MainForm.windowstate := wsMaximized;
все остальные компоненты делают это как надо.
|
|
|
min@y™ (статус: Доктор наук), 16 июля 2010, 14:09 [#3]:
Ты не ответил на мой вопрос.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
AlexMPEI (статус: 1-ый класс), 16 июля 2010, 14:16 [#4]:
я использую 3 различных плеера. Их окна находятся на одной и той же области экрана, ограниченной панелью. В зависимости от того какой плеер сейчас активен я делаю его видимым, остальные невидимыми. Если никакой плеер не активен, на экране имидж, а все плееры невидимы. Один из плееров - медиаплеер.
|
|
|
min@y™ (статус: Доктор наук), 16 июля 2010, 14:16 [#5]:
Кстати, у TMediaPlayer НЕТУ свойства Align! Не вводи народ в заблуждение!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
AlexMPEI (статус: 1-ый класс), 16 июля 2010, 14:21 [#6]:
На панели находятся TImage и WindowsMediaPlayer
= ACtiveX компонент TWindowsMediaPlayer - у него есть
|
|
|
min@y™ (статус: Доктор наук), 16 июля 2010, 14:33 [#7]:
Цитата (AlexMPEI):
я использую 3 различных плеера.
Вау! Тема становится интересней... Зачем 3 плейера?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 16 июля 2010, 14:38 [#8]:
Цитата (AlexMPEI):
На панели находятся TImage и WindowsMediaPlayer = ACtiveX компонент TWindowsMediaPlayer - у него есть
Хорошо, поставил я себе TWindowsMediaPlayer. Попробовал Align:= alClient, он отлично ресайзится вместе с формой. Я думаю, тебе нужно поиграться с его свойством fullScreen.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
AlexMPEI (статус: 1-ый класс), 16 июля 2010, 15:13 [#9]:
fullScreen - это не то. это свойство перевода в полноэранный режим и обратно. оно у меня используется отдельно и для другого.
я сейчас сделал пустой проект с 4-мя панелями (3 привязаны сверху, слева и снизу, 4я в центре на alClient. на эту панель положил TWindowsMediaPlayer и привязал его тоже на alClient.
при простом запуске приложения и при изменении размеров окна за правый нижний угол WindowsMediaPlayer не меняет своих размеров!!! и остается таким же как на изначальной форме в редакторе. Могу скинуть этот мини проект 
вот Код:
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
WindowsMediaPlayer1: TWindowsMediaPlayer;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
WindowsMediaPlayer1.Visible := true;
OpenDialog1.Execute;
WindowsMediaPlayer1.ControlInterface.URL := OpenDialog1.FileName;
WindowsMediaPlayer1.controls.play;
end;
|
|
|
min@y™ (статус: Доктор наук), 16 июля 2010, 15:26 [#10]:
В во время разработки при изменении размеров заготовки окна WMP меняет размеры?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
AlexMPEI (статус: 1-ый класс), 16 июля 2010, 15:50 [#11]:
да, на заготовке меняет и при запуске остается таким, каким в итоге было на заготовке и после запуска уже не меняет
|
|
|
min@y™ (статус: Доктор наук), 16 июля 2010, 16:26 [#12]:
Проведи эксперимент: на пустую форму положи WMP и проделай с ним все те же манипуляции. Если и в этом случае он не будет менять размер, то задавай вопросы уже в microsoft.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
AlexMPEI (статус: 1-ый класс), 16 июля 2010, 16:35 [#13]:
на пустой форме то же самое  на заготовке меняет размер, после запуска нет
|
|
|
min@y™ (статус: Доктор наук), 16 июля 2010, 16:40 [#14]:
Цитата (AlexMPEI):
на заготовке меняет размер, после запуска нет
Ну всё, пиши в мелкософт. Больше ничем не могу помочь.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
