Скачать: CL | DM;

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

← →
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 посмотреть вроде бы, но я с этим не разбирался.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c