Всплывающие сообщения

← →
Keks © (2006-04-24 12:37) [0]

Добрый день! Подскажите пожалуйста как реализовать всплывающие сообщения появляющие по таймеру. Хотелось чтобы сообщения появлялись на полупрозрачном фоне.

← →
EvS © (2006-04-24 12:59) [1]

Ну и в чем проблема?
Выводи в обработчике события таймера.

← →
Loginov Dmitry © (2006-04-24 13:15) [2]

> как реализовать всплывающие сообщения

В смысле подсказки?
Тогда может пригодиться Application.ActivateHint().

← →
Keks © (2006-04-24 13:46) [3]

А как использовать этот Application.ActivateHint(), так просто что-то не появляеться

← →
Keks © (2006-04-24 13:55) [4]

>EvS © (24.04.06 12:59) [1]

>Ну и в чем проблема?
>Выводи в обработчике события таймера.

Да не в таймере дело мне надо именно про сообщения всплывающие, как сделать чтобы они появлялись на полупрозрачном фоне

← →
Anatoly Podgoretsky © (2006-04-24 13:56) [5]

Второй, более удобный метод ActivateHint

← →
Anatoly Podgoretsky © (2006-04-24 13:57) [6]

Имелся ввиду метод THintWindow, а не TApplication

← →
Keks © (2006-04-24 14:20) [7]

А как сделать чтобы текст был на полупрозрачном фон, а то сплошной фон получается:
procedure TForm1.Button1Click(Sender: TObject); var hh: THintWindow; rr:TRect; begin rr.Left:=200; rr.Top:=20; rr.Right:=240; rr.Bottom:=40; hh:=THintWindow.Create(self); hh.Color:=Clred; hh.ActivateHint(rr,"asdasdasd"); end;
и что бы размеры прямоугольника были относительно формы

← →
Мефисто (2006-04-24 15:59) [8]

Что-то непонятно

← →
Мефисто (2006-04-24 17:48) [10]

Keks © (24.04.06 17:35) [9]

Полупрозрачность, как я понимаю - это возможность делать прозрачные окна как в 2000/XP?

Создать наследника от THintWindow - создаешь свой класс, с необходимой функциональностью. Можешь к примеру поискать статьи типа: "нестандартный hint", "hint овальной формы" и т.п.

для реализации прозрачности окна исследуешь исходники VCL. В данном случае исходник формы. TForm -> TCustomForm и смотришь, как там реализована работа AlphaBlend.

Всплывающие сообщения Найти похожие ветки