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

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

Вывод сообщения поверх всех-всех окон. Не умрут ли игрушки?


Calm ©   (2003-07-26 16:34:00) 

Если я покажу форму, которая StayOnTop во время работы полноэкранной игрушки (типа Quake 3), это не убьет игру?
И всегда ли покажется моя форма?

Как сделать вывод поверх всех-всех окон наиболее культурным способом?
В DirectX я несилен :(
Буду благодарен за советы.


VMcL   (2003-07-28 14:22:00) [1]

>Ghost © (28.07.03 08:45)

Только небольшое замечание. Сцена игры имеет такую особенность - перерисовываться N раз в секунду. Чему равно N неизвестно.


Ghost   (2003-07-28 08:45:00) [2]

procedure DeskTopPaint(msg: string;LeftX:Integer;TopY:Integer);
var DeskTop:TCanvas;
begin
DeskTop:=TCanvas.Create;
try DeskTop.Handle:=GetDC(0);// Получим Handle Рабочего стола
DeskTop.Brush.Style:=bsClear; // Устанавливаем тип кисти

With DeskTop.Font do // Подбираем шрифт
Begin
Color:=pic_col;
Size:=pic_raz;
Name:="Arial";
Style:=[fsBold];
end;
DeskTop.TextOut(LeftX,TopY,msg);
ReleaseDC(0, DeskTop.handle);
finally
DeskTop.Free; // Уберем за собой
end;
end;


запускать так : DeskTopPaint("Сообщение",70,70);

Удачи


Наверх

Титульная страница Поиск, карта сайта Написать письмо