Как сделать прозрачный фон для Label?

[Аватар]

Таймер не нужен, OnPaint сама форма вызовет при необходимости прорисовки

[Illusiony]

Сделал так:


procedure TForm1.OnPaint_(Sender: TObject);
begin
Form1.Canvas.Draw(0,0,buf_image); //i?i?eniaea ?enoieia
end;

И указал в инспекторе формы Onpaint OnPaint_
Вроде нормально работает

[Illusiony]

А как лучше очистить buf_image:Tbitmap ?
В размер Bitmap нарисовать прямоугольник нужного цвета?


Заметил еще, что форма часто не перемещается мышкой, как будто тормозит, хотя никаких долгих манипуляций нету, таймеры не задействованы.

[Arigato]

Для очистки можно пересоздать объект. То есть сначала сделать buf_image.free, а затем заново креате и т.д.

Да, и внутри методов класса TForm1 не пишите Form1. - это не совсем корректно и очень не красиво.

[Illusiony]

Сообщение от Arigato

Для очистки можно пересоздать объект. То есть сначала сделать buf_image.free, а затем заново креате и т.д.

Да, и внутри методов класса TForm1 не пишите Form1. - это не совсем корректно и очень не красиво.

Спасибо за все ответы.