Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.26;
Скачать: CL | DM;

Вниз

Как сделать прозрачным фон 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, в котором можно было бы менять цвет фона? Или как сделать такой компонент?



Страницы: 1 вся ветка

Текущий архив: 2004.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
14-1102045230
Adder
2004-12-03 06:40
2004.12.26
Скринсэйвер будет бороться со спамом


4-1099994934
Aleksandr.
2004-11-09 13:08
2004.12.26
Как по хуку клавиатуры получить русские буквы?


14-1102352897
Cheater
2004-12-06 20:08
2004.12.26
Как засекретить пароль?


1-1101998071
PAI
2004-12-02 17:34
2004.12.26
Демо-версия программы.


14-1102295598
просто юзер
2004-12-06 04:13
2004.12.26
Нашествие