Есть прозрачныи Едит, но с недочетами...

[ArtGrek]

наконец то нашел!
не остаеца ничего, кроме текста и курсора

Edit1.BordelStyle := bsNone;
Edit1.BevelEdges - все поставить False

implementation

{$R *.dfm}
 
Procedure TForm1.WMCtlColorEdit(var Message: TWMCtlColorStatic);
Begin
 IF Message.ChildWnd=Edit1.Handle then SetBkMode(Message.ChildDC,TRANSPARENT);
 inherited;
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;

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

end.

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

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

[xexxex]

попробуй так
WM_CTLCOLORSTATIC:
begin
SetBkMode(WParam, TRANSPARENT);
Message.Result := GetStockObject(NULL_BRUSH);
end;

[ArtGrek]

в результате етого кода при запуске едит выглядит так(рис.1)

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;

а во время рдактирования(рис.2)

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;

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

[_SERGEYX_]

Хм... я использовал TAdvEdit из TMS. Там есть свойство Transparent.

[asmodey1]

Так устроит ?
sshot-1.png
Всего-навсего комбинация из TLabel и ТBevel.
TLabel.Caption меняется по событию FormKeyDown().

[ArtGrek]

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

Хм... я использовал TAdvEdit из TMS. Там есть свойство Transparent.

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

Всего-навсего комбинация из TLabel и ТBevel.

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

спасибо, за небольшое продвижение

спасибо, за большое продвижение, ето то что нужно, старыи код придавал такои еффект, все работает как надо СПАСИБО +++++

[asmodey1]

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

у меня шас так, но у Label нет курсора что б видеть где печатаеш

Странно... А у меня есть
Это символ такой - "|"

[ArtGrek]

Это символ такой - "|"

надо будет делать мигание, ето еше 1 таимер, у меня их уже многовато, потом перестановку если работать с текстом
ето лишние строки кода, а я и так тут неумея создавать компоненты, написал 4 юнита по 300 строк, но спасибо за за предложение

[Тоба]

кто нибуд, скажите в чем дело и как с етим бороца

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;

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;

 InvalidateRect(Handle,@R,true);

................................... ..................................
Кто в курсе - как сделать тоже самое,только на WinAPI

 Edit1.Brush.Style:=bsClear;