| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как сделать прозрачным фон TAnimate? [D6, WinXP]

_Дельфин_ ©   (2004-12-10 18:38:00) 

Подскажите, пожалуйста, мне нужно, чтобы фон в Animate был прозрачным, но я не могу никак это сделать. Там есть какое-то свойство Transparent, но это не то. Как быть?

---

_Дельфин_   (2004-12-12 15:14:00) [1]

А может кто-то знает, где можно достать компонент на основе TAnimate, в котором можно было бы менять цвет фона? Или как сделать такой компонент?

---

Fay   (2004-12-10 18:55:00) [2]

2 clickmaker ©   (10.12.04 18:49) [1]
Это и есть "Transparent, но это не то" 8)

---

clickmaker   (2004-12-10 18:49:00) [3]

type
 TForm1 = class(TForm)
 private
   { Private declarations }
   procedure WMCtlColorStatic(var Message: TMessage); message WM_CTLCOLORSTATIC;
 public
   { Public declarations }
 end;

procedure TForm1.WMCtlColorStatic(var Message: TMessage);
begin
 if (HWND(Message.LParam) = ХэндлОкнаТвоегоАнимэйта) then begin
   SetBkColor(Message.WParam, ColorToRGB(Color));
   Message.Result := Brush.Handle;
 end else
   DefaultHandler(Message);
end;

---

Наверх