Весь интернет облазил, никак не могу сделать Edit, Memo, RichText прозрачными. WinAPI использовал, но как-то безуспешно или я что-то неправильно делал. В общем прошу помощи, может кто подскажет или скажет ссылки на подобного рода компоненты, буду признателен.
1 ответ
Если, допустим, есть форма и на ней есть Edit:
- Если у Edit установить свойство ParentColor = true, то он будет такого же цвета, как форма.
- Если у формы свойство TransparentColor = true, то на ней цвет TransparentColorValue
будет прозрачным. Следовательно, если form.TransparentColorValue = form.Color и
edit.ParentColor = form.TransparentColor = true, то всё это будет прозрачным.
- Если же необходимо, чтобы только само окно Edit было прозрачным, то можно
добавить на форму компонент Image, заполненный каким-нибудь рисунком.
У меня вот так :)
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('D:\1.bmp');
end;
Также можно не загружать рисунок, а "залить" Image. У меня вот так :)
procedure TForm1.FormCreate(Sender: TObject);
begin
with Image1.Canvas do begin
Brush.Color := clMedGray;
FillRect(Rect(0,0,ClipRect.Right,ClipRect.Bottom));
end;
end;
Наверняка ещё есть куча вариантов, но надеюсь, это хоть как-то помогло )
-
Спасибо за советы. Но тут вот такая ситуация. У меня есть бэкграунд и на нём надо разместить например Edit. Но когда размещаешь его на фоне бэкграунда (картинки), остаётся белая дырка.Вот мне надо её закрыть, сделать так, чтобы был виден только текст без белой дырки).– SHARP29 июл 2011 в 6:27
-
-
-
Ну, для заливки, меняем Edit.Color, а на фоне картинки пока не знаю. Может как-то сделать ещё одну форму позади первой с нужной картинкой? 29 июл 2011 в 17:14
-