Проблема с прозрачным фоном TEdit.

[hapera2]

Мучаюсь уже несколько дней.
Цель - получить Edit с прозрачным фоном
Скачал TMS пак, там в TAdvEdit есть свойство transparent, но если его поставить, прозрачными становятся только полоски на фоне Edit'а, в общем
бред какой-то.
Что делать?
Может скинете пак с прозрачными компонентами, буду благодарен...

[Человек_Борща]

Вы уверены, что знаете чего выхотите и правильно это представляете?

[FaTaL]

Что в Вашем понимании есть "прозрачный TEdit"? Может скрин какой нибудь программы скините?

[hapera2]

Извиняюсь, Edit.
Да представляю что хочу:
Есть неоднородная картинка, нужно сделать так чтобы можно было писать текст поверх нее.

[Аватар]

Непосредственно писать можно и в непрозрачном эдите. По выходу их него Edit освобождать, создавать прозрачный Label и текст туда. Для редактирования, по двойному клику на Label например, освобождать Label, опять создавать Edit с текстом из лэйбла и на начало.

[ZuBy]

Чуть-чуть изменить родной TEdit, у меня так сделано, только я цветом делал, но вставить картинку не проблема...

компоненты Вам нужный TZMSEdit (SC_SearchEdit.pas)

В этом месте изменить и все будет готово!

procedure TZMSEdit.DrawControl;
begin
  inherited Refresh;
  Canvas.Brush.Color := Color;
  Canvas.Pen.Color := Color;
  Canvas.FillRect(ClientRect);
  Canvas.Font := Font;
  SetBkMode(Canvas.Handle, TRANSPARENT);

  if (not Focused) and (fDrawTitle) then
    Canvas.TextOut(0, 0, fTitle)
  else
    Canvas.TextOut(0, 0, Text);
end;