Главная страница
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.024 c
1-1102740153
gedd
2004-12-11 07:42
2004.12.26
Как открыть дочернюю форму в Delphi 2005 (Winform приложение)?


1-1102737612
Dema-X
2004-12-11 07:00
2004.12.26
XPManifest как применить свою тему?


1-1102974763
Kolan
2004-12-14 00:52
2004.12.26
Как измерить скорость алгоритма.Знаю что было но не нашел.


3-1101731240
dedMazDie
2004-11-29 15:27
2004.12.26
Создание запроса


4-1100223060
alo
2004-11-12 04:31
2004.12.26
перетаскивание текста из других приложений