Очистка прозрачного фона от предыдущего текста

VahaC

Well-known member
10.01.2007
116
0
#1
Вот так вывожу текст на экран
Код:
var
OldBkMode: integer;
c: TCanvas; { тут мы объявляем переменные }
s: String;
r: TRect;
begin


SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDCHANGE); //С помощью этого кода очищаю фон


r.Left := screen.Width - 400;
r.Top := screen.Height - 200;
r.Right := r.Left + 250;
r.Bottom := r.Top + 110;
c := TCanvas.Create;
c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
with c do
begin
Font.color := clYellow;
Font.name := 'Times New Roman';
Font.Size := 72;
OldBkMode := SetBkMode(Handle, TRANSPARENT);
TextOut(r.Left + (r.Right - r.Left - c.TextWidth(volume)) div 2, r.Top, volume);
SetBkMode(Handle, OldBkMode);
end;
надпись практически моментально исчезает.
Как вывести надпись хотяб на 1 секунду?
Или как иначе очистить прозрачный фон от предыдущего текста?
 

NickProstoNick

Статус как статус :)
Lotus team
22.08.2008
1 809
21
#2
А нельзя было обойтись прозрачной формой со свойством поверх всех окон?