Я так подумал видимо все кто начал писать проги так или иначе делали плееры)
вот и я пишу) у меня есть форма на неё выводиться видео с медиплеера я её делаю повех всех программ так:
| Код |
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);
потом токо показываеться меню.
а надо чтоб таймер выключился, в меню что то я выбрал и токо когда я его закрою, таймер опять включился.
заранее всем спасибо.
Извини что этот вопрос не потеме но форум взломали? или был сбой? |
)
Так что не получается? Запускать таймер по клику на нужном Item'е - и всего делов.