Вывод надписи на поверх всех окон

← →
silvestr (2005-07-14 09:44) [0]

Существует хорошая процедура для вывода надписи :

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;

Выводит отлично , но проблема в том что если запущено полноэкранное приложение , в частности игра то приложение сворачиваеться при выводе сообщения :( Как бы оптимизировать процедуру чтобы сторонии приложения не сворачивались при выводе текста ?

← →
selvestr (2005-07-14 11:44) [1]

Люди подскажите .. срочно нужно !

← →
silvestr (2005-07-14 14:14) [2]

АУ

← →
Leonidv (2005-07-17 01:36) [3]

Думаю, что самый простой и дубовый способ, это создание прозрачного окна с необходимой тебе надписью. Вроде бы, так работает JetAudio. А вот как сделать так, чтобы оно на пользователя реагировало, право слово, не знаю. Мне на RSDN рекомендовали overlay windows посмотреть вроде бы, но я с этим не разбирался.

Вывод надписи на поверх всех окон Найти похожие ветки