Как на определённое время повесить надпись поверх всех окон?

← →
Zhekson (2005-10-20 10:15) [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;
так я вешаю надпись, но она затирается если контрол переходит к окну под надписью. Как этого избежать ???

← →
[wl] (2005-10-20 10:23) [1]

Вызывать процедуру в цикле

← →
Zhekson (2005-10-20 10:32) [2]

[wl] (20.10.05 10:23) [1]
отличный план, а как эту надпись, вместе с фоном сделать полупрозрачной???

← →
Leonid Troyanovsky © (2005-10-20 10:34) [3]

> Zhekson (20.10.05 10:15)

> так я вешаю надпись, но она затирается если контрол переходит
> к окну под надписью. Как этого избежать ???

Избежав подобных художеств.
Если очень нужно, то показывается маленькое окно "поверх всех".
Но, только, при условии SW_SHOWNOACTIVATE.

--
Regards, LVT.

← →
Zhekson (2005-10-20 10:48) [4]

Как на определённое время повесить надпись поверх всех окон? Найти похожие ветки