![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вывод сообщения поверх всех-всех окон. Не умрут ли игрушки?
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);
Удачи