написать Текст поверх ВСЕХ компонентов на форме

← →
Silver... © (2007-10-24 21:08) [0]

типа TLabel - НА ПЕРЕДНИЙ ПЛАН растянутый на всю форму

парюсь с Канвой но не получается по верх ВСЕХ контролов

← →
Правильный_Вася (2007-10-24 21:51) [1]

пиши на DC=0

← →
homm © (2007-10-24 22:05) [2]

> [0] Silver... © (24.10.07 21:08)
> парюсь с Канвой но не получается по верх ВСЕХ контролов

И не получится, преходи на КОЛ.

← →
vl_chel © (2007-10-25 09:44) [3]

попробуй прозрачную форму со свойством StayOnTop

← →
Lacmus © (2007-10-25 12:00) [4]

TStaticText, TPanel ?

← →
Eraser © (2007-10-25 13:31) [5]

> Silver... © (24.10.07 21:08)

попробуй использовать какой-либо оконный компонент, например TPanel, ему ставь parent"ом не посредственно форму и делай brinttotop (как то так).
Надписаь можно рисовать на панельке вручную или использовать caption.

← →
homm © (2007-10-25 13:39) [6]

> [5] Eraser © (25.10.07 13:31)

Ты никак не напишеш «поверх ВСЕХ компонентов на форме» это можно только в КОЛ, за некоторым исключением.

← →
KSergey © (2007-10-25 13:52) [7]

> homm © (24.10.07 22:05) [2]
> И не получится, преходи на КОЛ.

Так вот оно где спасение!! :)

> homm © (25.10.07 13:39) [6]
> Ты никак не напишеш «поверх ВСЕХ компонентов на форме» это
> можно только в КОЛ, за некоторым исключением.

Обманывать изволим?

← →
homm © (2007-10-25 14:01) [8]

> [7] KSergey © (25.10.07 13:52)
> Обманывать изволим?

В крайнем случае — заблуждатся, и то, если сможете опровергнуть.

← →
Eraser © (2007-10-25 14:49) [9]

> homm © (25.10.07 13:39) [6]

а каком случаем с пом. [5] нельзя написать «поверх ВСЕХ компонентов на форме»?

← →
homm © (2007-10-25 14:55) [10]

> [9] Eraser © (25.10.07 14:49)
> а каком случаем с пом. [5] нельзя написать «поверх ВСЕХ
> компонентов на форме»?

Это будет панель с текстом поверх всех компонент, а никак не «Текст поверх ВСЕХ компонентов на форме».
Когданибудь видел надпись «образец» в банке поверх бланка? я думаю что-то похожее имеется ввиду.

← →
Eraser © (2007-10-25 15:23) [11]

> homm © (25.10.07 14:55) [10]

> Когданибудь видел надпись «образец» в банке поверх бланка?
> я думаю что-то похожее имеется ввиду.

а, ну если автор имел ввиду это, то единственный выход GetDC(0), как и советовал в самом начале Правильный_Вася. Можно конечно с прозрачными областями поиграться у панели..

← →
homm © (2007-10-25 15:26) [12]

> [11] Eraser © (25.10.07 15:23)
> а, ну если автор имел ввиду это, то единственный выход GetDC(0)

Продолжай делать вид, что меня здесь нету %)

← →
Eraser © (2007-10-25 15:30) [13]

> homm © (25.10.07 15:26) [12]

> единственный выход

можно читать как единственный простой/доступный/приемлемый выход.
ясное дело, что можно и драйвер написать для этой цели свой.. или маркером на монитрое нарисовать )

← →
Eraser © (2007-10-25 15:32) [14]

а насчет КОЛ - это конечно хорошо, что там можно, но чаще всего использовать этот пакет просто неприемлемо.

← →
homm © (2007-10-25 15:33) [15]

> [11] Eraser © (25.10.07 15:23)
> а, ну если автор имел ввиду это, то единственный выход GetDC(0)

Вообще, можно попытатся криво, с марганием сделать через GetDCEx.

← →
homm © (2007-10-25 15:34) [16]

> [14] Eraser © (25.10.07 15:32)
> а насчет КОЛ - это конечно хорошо, что там можно, но чаще
> всего использовать этот пакет просто неприемлемо.

Ну это уж пусть автор сам для себя решает.

← →
Lacmus © (2007-10-25 15:35) [17]

procedure TForm79.FormCreate(Sender: TObject); begin Panel1.Brush.Style := bsClear; SetWindowLong(Panel1.Handle, GWL_EXSTYLE, GetWindowLong(Panel1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT); Panel1.BringToFront; end;

← →
Silver... © (2007-10-25 15:56) [18]

звеняюсь а вот и я (раньше не получилось)

> Когданибудь видел надпись «образец» в банке поверх бланка? я думаю что-то похожее имеется ввиду.

самое оно

Есть Форма на котороь выдается инфа на отдельныи монитор. Время от времени надо заострять внимание типа написать сверху "Внимание" не очень красиво показывать форму потом ее убирать надпись красивше.
Должно принадлежать форме на случаи если юзверю захочется именно в этот самый момент форму пододвинуть.

кажись StaticText мож подойти (чтоб особо ни парится) кстати а как центрировать теxт по вертикали?

щас [17] пробовать буду

← →
Silver... © (2007-10-25 16:04) [19]

Кто-нибудь знает почему
StaticText.Transparent := True; --- не работает

[17] - также Transparent-а нету

> [19] Silver... © (25.10.07 16:04)
> StaticText.Transparent := True; --- не работает

В чем это выражается?
Телепатор подсказывает, что ответ потому что
StaticText = class(TGraphicsControl)

> В чем это выражается?

Не прозрачно разумеется :)

StaticText = Стандартный TStaticText с палитры Additional :)

Мой скромный телепатор подсказывает

StaticText.Transparent := True;

Должно работать как у Label1.Transparent := True;

с GetDC(0) несколько криво получается

почему всетаки StaticTest.Transparent не работает?

> [22] Silver... © (25.10.07 17:47)
> с GetDC(0) несколько криво получается

c GetDCEx может получиться чуть менее криво.

> homm © (25.10.07 18:06) [23]

возможно, тока еслиб StaticTest.Transparent работал, как ожидается, одним махом решил бы проблему

> [24] Silver... © (25.10.07 18:28)
> тока еслиб StaticTest.Transparent работал, как ожидается,
> одним махом решил бы проблему

Ты наверное плохо себе представляешь, что такое прозрачный контрол…
Все, поверх чего он должен находится должно отрисовыватся либо до него, и эти объекты не должны клипатся по ректу этого компонета, фактически он должен быть невидим на момент прорисовки других окон. Либо все компоненты должны быть на одной канве.

Первое в виндовс не достижимо, а когда кажется, что вот вроде сдеала, находится еше один глюк…
Второе вполне реально и присутствует в КОЛ. НО! сама VCL в этом случае должна поддерживать некоторые вещи, которых нет.

Есть решение сделать на основе региона окно, тоже свои минуся, но для твоего случая вроде может подойти.

← →
Однокамушкин (2007-10-26 10:14) [26]

> Silver... © (25.10.07 17:47) [22]
> почему всетаки StaticTest.Transparent не работает?

Он работает только с соответствующим манифестом, а просто так работать и не должен

Элементарно, создаём TWinControl и обрезаем его по форме текста (SetWindowRGN), забрасываем на форму и Bring To Front

написать Текст поверх ВСЕХ компонентов на форме Найти похожие ветки