Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > прозрачный фон у Label на прозрачной форме

Автор: uwannadie 22.7.2010, 22:01

появилась необходимость реализовать прозрачную форму с контролами на ней.
собсвенно проблема появилась при отрисовке контролов и в частности Label-ов: у при включенном свойстве Transparent получается вот такая кака:
http://piccy.info/
код прорисовки прозрачной формы вобще из 2х строк:

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone
end;

поспешил создавать тему, нашел ответ smile

Автор: UniBomb 22.7.2010, 23:05

Забавно - два почти одинаковых вопроса в небольшой промежуток времени)))

uwannadie, а попробуйте написать вот такое где-нибудь в начале программы:

Код


Form1.Color := clFuchsia;
Form1.TransparentColor := true;
Form1.TransparentColorValue := clFuchsia;
Form1.BorderStyle := bsNone

Автор: uwannadie 23.7.2010, 20:02

я так и сделал smile

поэтому и написал

Цитата(uwannadie @ 22.7.2010, 22:01)

поспешил создавать тему, нашел ответ smile