Кау убрать фон у TEdit

[Crystallon]

Доброго времени суток, сделал фон у программы в виде картинки, у label фон убрал, с этим проблем нету, но вот у tedit нет функции transparent, перепробовал все функции у этого компонента, убрать фон так и не получилось, гугл и поиск по этому форуму тоже не оправдали надежд.
Подскажите пожалуйста как этот фон убрать =)
Заранее спасибо.

[ArtGrek]

плохо искал
http://programmersforum.ru/showthread.php?t=132361
наидеш что нибудь лучше буду очень презнателен

[wm_leviathan]

убрать фон не получится можно попробывать сделать фон такой же как и у родителя (к примеру если родитель Form1)

Edit1.BorderStyle:=bsNone;
Edit1.Color:=Form1.Color; //или Edit1.Color:=clBtnFace цвет формы по умолчанию

должно быть нечто похожее

[Crystallon]

ArtGrek
Ваш способ что-то совсем не пашет, какаято черная полоска только появлется на форме едита...

wm_leviathan
Ставить едиту цвет формы мне незачем, яж говорю что фон - картинка...

[ArtGrek]

попробуи ввести текст


я попробывал тоже что и в Edit1Change вставить в OnPaint формы, что б не появлялся фон, но не вышло, по комбинируи, может у тебя выидит

[MyLastHit]

Я даже представить себе не могу, где может понадобиться Edit с прозрачным фоном...
Вам нужно сделать Selectable текст, или вообще прям обязательно Edit прозрачный?

[ArtGrek]

очень, очень нужен, елемент как в паинт, что б вводить текст поверх изображения,
лично я искал, больше месяца, ето самое лучшее что нашел

[CepbIu]

помню давно у кого то была потребность в таком компоненте... человек делал что то наподобие блокнота, только пользователь должен был писать как бы на папирусе... в итоге человек сам писал компонент

[asmodey1]

На форуме есть поиск !
http://programmersforum.ru/showthread.php?t=59570

[ArtGrek]

только в тои теме проблема так и не была решена
я седня пересматривал его, нужныи еффект только во время редактирования

procedure TForm1.WMCtlColorEdit(var Message: TWMCtlColorStatic);
Begin
 if Message.ChildWnd=Edit1.Handle then SetBkMode(Message.ChildDC,TRANSPARENT);
 inherited;
End;

procedure TForm1.Edit1Change(Sender: TObject);
var 
   R:TRect;
begin
 R:=Edit1.BoundsRect;
 InvalidateRect(Handle,@R,False)
end;

а вот при создании, как я и говорил в тои теме, появляеца какоито фон

procedure TForm1.FormCreate(Sender: TObject);
begin
 SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CLIPCHILDREN);
 SetWindowLong(Edit1.Handle, GWL_EXSTYLE, GetWindowLong(Edit1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
 Edit1.Brush.Style:=bsClear;
end;

а что не так, я разобраца не смог