Конференция "KOL" » Как вывести окно с прозрачным цветом. [Delphi]
 
  • Nikfel (20.03.08 14:36) [0]
    Подскажите, пожалуйста. Без кол можно было просто задавать свойство transparent=true и указывать какой color будет прозрачным. А на кол так и не смог разобраться как это делается, но есть одна версия: наверно надо выбрать transparent=true и тогда вся форма будет прозрачной, но при перемещении будет оставаться прежний фон, а значит нужно каким-то образом отловить перемещение окна программы и вывести то, что находится под окном, но если я прав то, тогда как мне это сделать. Заранее спасибо.
  • Дмитрий К © (20.03.08 18:03) [1]
     Form.ExStyle := Form.ExStyle or WS_EX_LAYERED;
     SetLayeredWindowAttributes(Form.Handle, TransparentColor, 0, LWA_COLORKEY);

  • Nikfel (04.05.08 19:01) [2]
    Код работает, но когда задаешь AlphaBlend=200, то становится прозрачный цвет снова видимым, а окно частично прозрачное. Как сделать сохранение прозрачности цвета и прозрачность окна вместе, а то ни как не могу разобрать. Подскажите пожалуйста.
  • Дмитрий К © (04.05.08 19:30) [3]
     Form.ExStyle := Form.ExStyle or WS_EX_LAYERED;
     SetLayeredWindowAttributes(Form.Handle, TransparentColor, 200, LWA_COLORKEY or LWA_ALPHA);

  • Nikfel (07.05.08 20:12) [4]
    Спасибо, попробую.
  • Фйцу (30.05.09 22:34) [5]
    Дмитрий К спасибо тебе огромное
 
Конференция "KOL" » Как вывести окно с прозрачным цветом. [Delphi]
Есть новые Нет новых   [134431   +11][b:0][p:0.001]