Прозрачность формы.

Опубиковано: 30.07.2008 г., автор: , просмотров: 205017

Учимся задавать прозрачность формы в Delphi.

Еще один коротенький урок, из которого вы узнаете как задать прозрачность формы.

В Delphi за прозрачность формы отвечают свойства:
AlphaBlend: boolean оно разрешает или запрещает использовать прозрачность в вашей прорамме.
И второе свойство AlphaBlendValue. Оно может принимать значения от 0 до 255. Чем выше значение, тем менее прозрачней становиться форма. Ну вот впринципе и все, хотя для большей наглядности приведу небольшой пример. Что-бы те кто еще не поняли как тут все устроенно, разобрались окончательно.

Итак открываем delphi, Создаем новый проект, затем Кликаем на форме и создаем на ней обработчик событий OnCreate. В нем пропишем следующий код:

AlphaBlend:=true;
AlphaBlendValue:=100;

Вот что должно получиться в итоге:

procedure TForm1.FormCreate(Sender: TObject);
begin
AlphaBlend:=true;
AlphaBlendValue:=100;
end;

Запускаем и наслаждаемся.

Прозрачность формы Delphi

P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
Форма для подписки расположена с права и с лева.

До встречи DelphiExpert.ru !!!

Последние из рубрики

Gimly 04 Feb 2010 в 00:00 #

Здраствуйте Владимер давно ваш сайт не посещал а обновлений нет!а по этой теме можно и так сделать-
в инспекторе задач формы:
Color-white//или др цвет
Transparent-true
Transparentoncolor-white
и все форма прозрачна и сквозь нее можно нажимать!!!!

DRago_Angel [inV@DER] 28 Jan 2010 в 00:00 #

я могу дань оч забавную штучку:
procedure TForm1.FormCreate(Sender: TObject);
begin
sec:=0;
Form1.AlphaBlendValue:=sec;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
sec:=sec+1;
Form1.AlphaBlendValue:=sec;
if sec=255 then Timer1.Enabled:=False;
end;
это зделает так что ваша форма при запуске будет постипенно проявлятся..., если думаете что она проявляется очень медленно то напишите что sec:=sec+3 или 5..., главное не парно потому что число 255 с парных не может получится ;)

Turnikman 27 Jan 2010 в 00:00 #

А как сделать элемент Timage прозрачным?

Вячеслав 17 Jan 2010 в 00:00 #

"Владимир, а как сделать так чтоб можно было выбирать в программе уровень прозрачности? Заранее спасибо. "

просто в программе создаете Edit и прописываете код: alphablenvalue:=strtoint(edit.text);

Smileexx 05 Jan 2010 в 00:00 #

Sunny, тебе РЕСПЕКТ!! я уже час как ищу каким бы образом прозрачность замутить)

Прозрачность формы.

Учимся задавать прозрачность формы в Delphi.

Похожие материалы

Последние из рубрики

ОтменитьДобавить комментарий