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

← →
_Дельфин_ (2004-12-10 18:38) [0]

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

← →
clickmaker © (2004-12-10 18:49) [1]

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;

← →
Fay © (2004-12-10 18:55) [2]

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

← →
_Дельфин_ (2004-12-12 15:14) [3]

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

Как сделать прозрачным фон TAnimate? Найти похожие ветки