Transparent Текст со случайным движением на любом объекте в TFORM'a
Привет,
С целью показать оживление в моей программе,   
Мне нужно показать TRANSPARENT ТЕКСТ c постоянном случайним движением ибо вообще окно TForm'a моей программы, в Form'e у меня есть ещё другие объекты как TEdit, TButton, TPanel, и.т.д. Я постарался с компонентами как:  

1.- TLabel'oм, но это тянется сзади компоненты  
2.- TPanel'oм включеннo с TPaintBox'oм, но вся Панель размещаются выше ко всем объектам моей формы  
3.- TStaticText'oм, очень хороший, I включил несколько TStaticText'ax для каждой буквы моего Текста (string), и это компонент почти в 80% чем другими объектами преодолевает с "Bring To Front", но .. .. это всегда тянет маленькие окна для каждой буквы, не выполняется Transparent.
Подскажите, пожалуйста,
- Есть такой хороший компонент - StaticText что, преодолевает выше (Bring To Front) любого другого объекта но прозрачно?,  Или использовать другой компонент?.
- Как показать TRANSPARENT ТЕКСТ c постоянном случайном колебанием выше объектах TForm'a?



Transparent Text with random movement on any object in a TForm
Hi, 
With the objective of showing an animation in my program, 
I need to show a TRANSPARENT TEXT in constant random movement for the whole window of the TForm of my program, in the TForm I also have other objects as TEdit, TButton, TPanel, etc. I have tried with components as:  
1.- TLabel, but this it is drawn behind the components  
2.- TPanel included with a TPaintBox, but the all Panel are located above to all the objects of my form  
3.- TStaticText, very good, I has included (added) several TStaticText for each letter of my Text (string), and this component almost in 80% of the other objects overcomes with "Bring To Front", but.... this always draws small windows for each letter, it's not executed transparent. 
Please tell me,
- Do you know of some component as the TStaticText that overcomes above (Bring To Front) of any other object but transparently? Maybe to use another component? 
- How to show a TRANSPARENT TEXT in constant random movement above the objects of the TForm?

TLabel is just some internal component, made for decoration purposes only,
almost a regular TextOut on Parent with properties   
TStaticText, on the other hand,  is TWinControl, so (IMHO) it can not be transparent.
The only way to make TWinControl (TStaticText or any other) appear transparent 
is to use XP manifest (or work with TPaintBox, what you already do   )

TextOut is always an option too...   

Спасибо, но .. ..  
Я хочу привлечь мой Текст или показать ему с любым другим компонентом (прозрачным) и это позиционированно свыше, над (к фронту) Любого объекта а не сзади. TPaintBox и TextOut нет решение. Кокой компонент Вы рекомендуете?
    
Thank you, but....  
I want to draw my Text or to show with any other component (transparent) and this it is positioned for above, over (to the front) of any object and not behind. TPaintBox and TextOut not neither solution, . Which component do they recommend?

OK,OK, got it....   

If you don't want to do it youself (laaazy, I beleive   ),  see attached.
I've created CustomPanel with Transparent property.

You can put your text in Caption of the MyPanel or put there any Label 
with Transparent := True

But remember, THIS IS JUST AN EXAMPLE.    
Enjoy!



Это сообщение отредактировал(а) dimazu - 20.12.2006, 04:47

Ваш Компонент, очень хороший,   
Вопрос пожалуйста, я разместил TImage (с собственностью transparent=true) внутри вашего TCustomPanel'a, бегая Программа первый раз (впервые) это показ меня отличный прозрачный над любым объектом, но двигаясь с TButton к другому положение, TCustomPanel не прозрачное, почему?; Почему TCustomPanel когда изменяется положение это не показывается прозрачный выше другие объекты? Что делать так чтобы TCustomPanel показ меня снова прозрачный как первый раз?

Your Component, very good,   
A question please, I have placed a TImage (with the property transparent=true) inside your TCustomPanel, when running the program for the first time, it show me excellent transparent above any object, but when moving with a TButton to another position, TCustomPanel is not transparent, why?; Why TCustomPanel when it's changed position it is not shown transparent above other objects? What to do, so that TCustomPanel shows me again transparent as the first time?

I don't know what to tell...
I've tried your code and its working right.
May be you have an old version of
the component (I've made some changes to it).
Actually, my component will create control with name MyPanel1,
not CustomPanel11 !
Try to copy/paste and install it again, it should
solve you problem.   

Это сообщение отредактировал(а) dimazu - 20.12.2006, 19:31

Good,
I will reinstall the component later. I think that the component settles with another name CustomPanel11 because  of it :
 
Tomorrow I will say to You if it works or not, please   

You were right, your component now works very well, the reason was that, you wrote its first code with CustomPanel1, then you wrote again with MyPanel. There my error was. 
 
Today I have a new question, TMyPanel draw very well when it's changed position with the TButton (OnClick), but to the event OnMouseDown (I explain to you that, I have added more events to your component) TMyPanel doesn't draw very well neither in time of design, neither in time of execution, Can You to verify moving TMyPanel to another place? (in time of design or execution), when this component drag and drop to another side it captures (it records) the whole area (part-section) of the MyPanel.   
How to solve this problem? Why is this way that?  

Привет,  
Cпрaшивал меня если кто-нибудь может улучшить (implement) код этого хорошего компонентa, где Я разместил TImage внутри панели с собственностью transparent=true, и это работает очень хорошо, но двигаясь (чтобы переместить) вовремя конструкторского этого (design time) захватывает всю область TMyPanel, и вовремя выполнения (execution time) когда также подвижный TMyPanel c drag and drop:  
   
Также захватывать область TMyPanel.  
Как изменить компонент TMyPanel так чтобы это не захватывал ту область двигаясь это?

Hello,  
I asked me if somebody can solve code this good component,  
I have placed a TImage inside the panel with property transparent=true, and it works very well, but when moving (to transfer) in time of design it captures the whole area of the TMyPanel, and in time of execution when also moving TMyPanel drag and drop with:  
  
also capture the area of TMyPanel.  
How to modify the component TMyPanel so that it doesn't capture that area when moving it?