Скачать: CL | DM;

Как работать с таймером?   Найти похожие ветки 

← →
Lamer_5   (2007-02-04 21:14) [0]

Всем привет!

Подскажите пожалуйста, как можно реализовать примерно следующий пример:
Программа постоянно сидит в трее. Если запущен документ с именем 1, то программа продолжает сидеть в трее, а если открыт документ с именем 2, то программа должна развернуться. Хотелось бы это проделать с таймером, но проблема в том, что класс окна один и тот же, но имена разные. Что-то не получается.
Помогите пожалуйста!

Вот мой кусок кода:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 if findwindow("IEFrame","1")<>0 then //Если имя окна "1", то все ОК
   begin
   form1.TrayIcon1.HideMainForm end else //Продолжаем сидеть в трее
begin
 if findwindow("IEFrame","2")<>0 then //если имя окна "2" то пора показать
   begin
   form1.TrayIcon1.ShowMainForm; // показать саму форму
end;
end;
end;


---

← →
FAskerQ ©   (2007-02-04 23:44) [1]

> Lamer_5   (04.02.07 21:14)  


Может просто вот так?

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 if FindWindow("IEFrame", "2") <> 0 then
 begin
   Form1.Show;
   SetForeGroundWindow(Form1.Handle);
 end;
end;

---

← →
Германн ©   (2007-02-05 01:01) [2]

> Lamer_5   (04.02.07 21:14)
...
> Что-то не получается.

А что за компонент такой TrayIcon?

---

← →
Плохиш ©   (2007-02-05 01:12) [3]

> Lamer_5   (04.02.07 21:14)  

Если IEFrame это то, что я подумал, то имена окон "1" и "2" неправильные.

---

← →
Lex_! ©   (2007-02-05 04:35) [4]

> Германн ©   (05.02.07 01:01) [2]

Да есть такой в дельфе покрайней мере в 2006 ..
ну и сторонние соответственно бывают..  в трее значек висел чтоб ..

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.032 c