Форум: "Основная";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
ВнизКак на определённое время повесить надпись поверх всех окон? Найти похожие ветки
← →
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]Leonid Troyanovsky © (20.10.05 10:34) [3]
сейчас у меня так и реализовано... думал попробовать другую реализацию...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c