Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Я тоже пишу плеер), Я так понел все начинающие пишут плеер) 
:(
    Опции темы
HEyMEXA
  Дата 11.5.2008, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 24.4.2008

Репутация: нет
Всего: нет



Я так подумал видимо все кто начал писать проги так или иначе делали плееры)
вот и я пишу)  у меня есть форма на неё выводиться видео с медиплеера я её делаю повех всех программ так: 
Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
SetwindowPos(form1.Handle.WindowHandle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE+SWP_NOSIZE);
end;

 
также есть некое попул меню и когда оно вызвано, таймер его своим обновлением скрывает.

отключение таймера мне подсказали так сделать :
Код

procedure TForm1.MenuPopup(Sender: TObject);
begin
timer1.enabled:=false;
end;


а как его обратно включить?

вот так неработает 
Код

procedure TForm1.MenuChange(Sender: TObject; Source: TMenuItem;Rebuild: Boolean);
begin
timer1.enabled:=true;
end;


при вызывания меню получаеться так:  сначало procedure TForm1.MenuPopup(Sender: TObject);
                                                                 потом    procedure TForm1.MenuChange(Sender: TObject; Source: TMenuItem;Rebuild: Boolean);
                                                                 потом токо показываеться меню.
а надо чтоб таймер выключился, в меню что то я выбрал и токо когда я его закрою, таймер опять включился.

заранее всем спасибо.

Извини что этот вопрос не потеме но форум взломали? или был сбой?

Это сообщение отредактировал(а) HEyMEXA - 11.5.2008, 23:30
PM MAIL   Вверх
kemiisto
  Дата 11.5.2008, 21:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Дикий Кот. =^.^=
****
Награды: 1



Профиль
Группа: Участник Клуба
Сообщений: 3292
Регистрация: 29.7.2007

Репутация: нет
Всего: 160



Цитата(HEyMEXA @  11.5.2008,  22:23 Найти цитируемый пост)
Я так подумал видимо все кто начал писать проги так или иначе делали плееры)


Прочитав пост, подумал, что все начинающие программисты очень сумбурно объясняют суть проблемы:
Цитата(HEyMEXA @  11.5.2008,  22:23 Найти цитируемый пост)
при вызывания меню получаеться так:  сначало procedure TForm1.MenuPopup(Sender: TObject);                                                                 потом    procedure TForm1.MenuChange(Sender: TObject; Source: TMenuItem;Rebuild: Boolean);                                                                 потом токо показываеться меню.а надо чтоб таймер выключился, в меню что то я выбрал и токо когда я его закрою, таймер опять включился.


 smile  smile  smile 



--------------------
PM MAIL WWW GTalk Jabber   Вверх
HEyMEXA
Дата 11.5.2008, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 24.4.2008

Репутация: нет
Всего: нет



Цитата

Прочитав пост, подумал, что все начинающие программисты очень сумбурно объясняют суть проблемы:


Но я токо учусь) скажите как писать критекуйте я готов слушать и исправляться.
PM MAIL   Вверх
Данкинг
Дата 11.5.2008, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130



Во-первых, напиши всё это по-русски; лично я мало что понял. Во-вторых, включение таймера написано правильно:

Код

timer1.enabled:=true;


В-третьих, 

Код

TForm1.MenuPopup(Sender: TObject);


это что за событие, не догоняю? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
HEyMEXA
Дата 11.5.2008, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 24.4.2008

Репутация: нет
Всего: нет



Цитата


Код

TForm1.MenuPopup(Sender: TObject);


это что за событие, не догоняю? smile




обычное событеи OnPopup у PopupMenu1
PM MAIL   Вверх
Exai1e
Дата 11.5.2008, 21:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30



Цитата(Данкинг @  11.5.2008,  22:31 Найти цитируемый пост)
это что за событие, не догоняю? smile  

видимо:
Код

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin

end;


такой smile



--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Данкинг
Дата 11.5.2008, 21:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130



Цитата(Exai1e @ 11.5.2008,  22:47)
Цитата(Данкинг @  11.5.2008,  22:31 Найти цитируемый пост)
это что за событие, не догоняю? smile  

видимо:
Код

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin

end;


такой smile

Ну да, понял. smile Так что не получается? Запускать таймер по клику на нужном Item'е - и всего делов.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
HEyMEXA
Дата 11.5.2008, 21:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 24.4.2008

Репутация: нет
Всего: нет



Цитата(Exai1e @ 11.5.2008,  21:47)
Цитата(Данкинг @  11.5.2008,  22:31 Найти цитируемый пост)
это что за событие, не догоняю? smile  

видимо:
Код

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin

end;


такой smile

да ну там токо назвние менюшки не  PopupMenu1 а Menu
PM MAIL   Вверх
HEyMEXA
Дата 12.5.2008, 20:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 24.4.2008

Репутация: нет
Всего: нет



Цитата(BEST13 @ 12.5.2008,  19:34)
Вот исходник, если увидите другие какието ошибки говрите, или как улычшыть код). Спосиба всем зарание, что помогоаете мне нубу.

Очень сырая программа куча ошибок которые допущенны просто по не внимательности они легко устранимы но всеже очень мокро.
PM MAIL   Вверх
BEST13
Дата 12.5.2008, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 166
Регистрация: 11.4.2008
Где: Ukraine

Репутация: нет
Всего: нет



Цитата

Очень сырая программа куча ошибок которые допущенны просто по не внимательности они легко устранимы но всеже очень мокро.

А можно по конкретней указать их
P.S Не внемательность у меня с детства
PM MAIL ICQ GTalk   Вверх
HEyMEXA
Дата 12.5.2008, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 24.4.2008

Репутация: нет
Всего: нет



Цитата

А можно по конкретней указать их
P.S Не внемательность у меня с детства


Эххх у мну тоже такая проблемма) 
ну 1 ошибка и самая главная это нельзя добавить трек ты забыл прописать процедуру) 
во 2 тракбар звука непоказываеться 
в 3 кнопка включение и выкючения звука тоже чот неработает)

Это сообщение отредактировал(а) HEyMEXA - 12.5.2008, 22:36
PM MAIL   Вверх
Exai1e
Дата 12.5.2008, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30



имхо:
стоит самому писать программу, пусть даже не получается, ведь это проблема "времини" читай хэлпы, туторы, книжки хорошии smile паченко smile  рекомендую ЗЫ не раклама)
так сказать "посполни пробелы в знаниях" ;)

Добавлено через 43 секунды
главное с внимательностью подойти к теме ;)


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
BEST13
Дата 12.5.2008, 22:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 166
Регистрация: 11.4.2008
Где: Ukraine

Репутация: нет
Всего: нет



Цитата

у 1 ошибка и самая главная это нельзя добавить трек ты забыл прописать процедуру) 
во 2 тракбар звука непоказываеться 
в 3 кнопка включение и выкючения звука тоже чот неработает)

тока что проверил всё работает вот, мож я там старую версию выложил во держи
P.S Писал на 7 делпхи 

Присоединённый файл ( Кол-во скачиваний: 19 )
Присоединённый файл  VIDP________.rar 132,44 Kb
PM MAIL ICQ GTalk   Вверх
THandle
Дата 13.5.2008, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 1
Всего: 372



Цитата(Exai1e @  12.5.2008,  23:41 Найти цитируемый пост)
 паченко

 smile 

Пачеко!!!
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »


 




[ Время генерации скрипта: 0.0819 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.