| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как на определённое время повесить надпись поверх всех окон? [D7, WinXP]

Zhekson ©   (2005-10-20 10:15:00) 

procedure WriteDC(s: string);
var
 c: TCanvas;
begin
 c := TCanvas.Create;
 c.Brush.Color := clBlue;
 c.Font.color := clYellow;
 c.Font.name := 'Fixedsys';
 c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
 c.TextOut(screen.Width - c.TextWidth(s) - 2, screen.Height - 43, s);
 c.free;
end;

так я вешаю надпись, но она затирается если контрол переходит к окну под надписью. Как этого избежать ???

---

Zhekson   (2005-10-20 10:48:00) [1]

Leonid Troyanovsky ©   (20.10.05 10:34) [3]
сейчас у меня так и реализовано... думал попробовать другую реализацию...

---

Leonid Troyanovsky   (2005-10-20 10:34:00) [2]

> Zhekson   (20.10.05 10:15)  

> так я вешаю надпись, но она затирается если контрол переходит
> к окну под надписью. Как этого избежать ???


Избежав подобных художеств.
Если очень нужно, то показывается маленькое окно "поверх всех".
Но, только, при условии SW_SHOWNOACTIVATE.

--
Regards, LVT.

---

Zhekson   (2005-10-20 10:32:00) [3]

[wl]   (20.10.05 10:23) [1]
отличный план, а как эту надпись, вместе с фоном сделать полупрозрачной???

---

[wl]   (2005-10-20 10:23:00) [4]

Вызывать процедуру в цикле

---

Наверх