Edit и WinAPi

[AVG1]

Здравствуйте,решил обратиться за помощью.
Я нашел на форуме код с помощью которого можно сделать прозрачный Edit(чтобы картинку было видно),но там по мимо апишных функций используются еще и другие,мне бы хотелось сделать прозрачный Edit использую только функции WinApi,заранее благодарен.

[Пепел Феникса]

покажите тот код для начала.

[AVG1]

Вот

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.

[AVG1]

Так никто и не поможет?

[s-andriano]

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

[AVG1]

Мне просто необходимо сделать динамическую библиотеку с такой функцией,а VCL компоненты экспортировать не есть правильно.

[s-andriano]

Ну так посмотрите реализацию тех функций, от которых хотите избавиться.
По сути, они - лишь прослойка для WinAPI.