| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вывод надписи на поверх всех окон [D6, WinXP]
silvestr © (2005-07-14 09:44: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;
Выводит отлично , но проблема в том что если запущено полноэкранное приложение , в частности игра то приложение сворачиваеться при выводе сообщения :( Как бы оптимизировать процедуру чтобы сторонии приложения не сворачивались при выводе текста ?
Leonidv (2005-07-17 01:36:00) [1]Думаю, что самый простой и дубовый способ, это создание прозрачного окна с необходимой тебе надписью. Вроде бы, так работает JetAudio. А вот как сделать так, чтобы оно на пользователя реагировало, право слово, не знаю. Мне на RSDN рекомендовали overlay windows посмотреть вроде бы, но я с этим не разбирался.
silvestr (2005-07-14 14:14:00) [2]АУ
selvestr (2005-07-14 11:44:00) [3]Люди подскажите .. срочно нужно !
| |
