안녕하세요..

아래에 투명 에디트 컴포넌트 소스를 올려드릴께요..

물론 Free 이구요 .. 원하시는 대로 동작할겁니다.

즐거운 프로그래밍 하세요..

unit RbsWiredEdit;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

const
TWM_RbsInvalidate=WM_USER+1;

type
TRbsWiredEdit = class(TEdit)
private
   { Private declarations }
   procedure RbsInvalidate(var Message:TMessage); message
             TWM_RbsInvalidate;
   procedure CNCTLCOLOREDIT(var Message:TWMCTLCOLOREDIT); message
             CN_CTLCOLOREDIT;
   procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
   procedure WMMove(var Message: TMessage); message WM_MOVE;

protected
   { Protected declarations }
   FTransparent: boolean;
   procedure CreateWnd; override;
   procedure CreateParams(var Params: TCreateParams); override;
   procedure DoExit; override;
   procedure DoEnter; override;
public
   { Public declarations }
   constructor Create(AOwner: TComponent); override;
   procedure Invalidate; override;

published
   { Published declarations }
end;

procedure Register;

implementation

constructor TRbsWiredEdit.Create(AOwner:TComponent);
begin
inherited create(AOwner);
  ftransparent:=true;
end;

procedure TRbsWiredEdit.CreateWnd;
begin
inherited CreateWnd;
  if fTransparent then
     begin
      SetWindowLong(Parent.Handle, GWL_STYLE,
      GetWindowLong(Parent.Handle, GWL_STYLE) and not WS_CLIPCHILDREN);
      end;
end;

procedure TRbsWiredEdit.RbsInvalidate(var Message:TMessage);
var r:TRect;
begin
if (Parent<>nil) and FTransparent then
   begin
     r:=ClientRect;
     r.TopLeft:=Parent.ScreenToClient(ClientToScreen(r.TopLeft));
     r.BottomRight:=Parent.ScreenToClient(ClientToScreen(r.BottomRight));
     RedrawWindow(Handle,nil,0,RDW_FRAME+RDW_INVALIDATE);
   end;
end;

procedure TRbsWiredEdit.CNCTLCOLOREDIT(var Message:TWMCTLCOLOREDIT);
begin
if FTransparent then
  with Message do
   begin
     SetBkMode(ChildDC,Windows.TRANSPARENT);
     Result:=GetStockObject(HOLLOW_BRUSH)
   end
  else inherited;
end;



procedure TRbsWiredEdit.WMEraseBkgnd(var Message:TWMERASEBKGND);
begin
if FTransparent and not (csDesigning in ComponentState) then
     PostMessage(Handle,TWM_RbsInvalidate,0,0)
else inherited;
end;

procedure TRbsWiredEdit.WMMove(var message:TMessage);
begin
inherited;
if FTransparent then SendMessage(Handle,TWM_RbsInvalidate,0,0)
else Invalidate;
end;

procedure TRbsWiredEdit.CreateParams(var Params:TCreateParams);
begin
inherited CreateParams(Params);
if (CsDesigning in ComponentState) then exit;
   with Params do
     begin
  ExStyle:=ExStyle or WS_EX_TRANSPARENT;
     end;
end;

procedure TRbsWiredEdit.DoExit;
begin
inherited;
  FTransparent:=true;
  SetCursor(0);
  RecreateWnd;
end;

procedure TRbsWiredEdit.DoEnter;
var exstyle,stdstyle:longint;
begin
inherited;
Ftransparent:=false;
StdStyle:= Windows.GetWindowLong(handle, GWL_EXSTYLE);
exStyle:= StdStyle and not WS_EX_TRANSPARENT;
Windows.SetWindowLong(handle, GWL_EXSTYLE, exStyle);
invalidate;
end;

procedure TRbsWiredEdit.Invalidate;
begin
if FTransparent then SendMessage(Handle,TWM_RbsInvalidate,0,0)
else inherited;
end;

procedure Register;
begin
RegisterComponents('Rombest', [TRbsWiredEdit]);
end;

end.  

안녕하세요?
답변에 정말 감사드립니다.

정확하게 원하던 방법은 아니지만, 그런대로 괜찮네요..

제가 원하던 것은 Edit박스에 글씨를 쓸때부터 배경흰색이 투명하게 되어서 그 뒤에 있는 이미지가 보이도록 하고자 한 것이었는데, 암튼 큰 도움이 되었네요...고맙습니다.   꾸~~~~~뻑.


즐프 하시구요..
행복하시고, 늘 건강하세요 ^^

안녕하세여. 타락임다..

그림판에서 텍스트를 클릭하면,

클릭한 영역을 검사해서 텍스트가 있는 부분이면

해당 텍스트위 Edit만 있는 폼을 띄웁니다.

폼은 캡션과 border 가 없어서 Edit 창만 보여야하겠지요.

그리고 폼은 항상 가장 상위에 위치하고 있어야 하고요, Not Activate 시 종료시켜야 합니다.

Edit 에 텍스트를 입력하면, 해당 텍스트를 변경하고, Edit폼은 사라지고..

위와 같이 하면 될겁니다.

즐푸하세요..

타락천사..

답변 감사드립니다.
그림판에 각종 그림을 그린 후에, 글씨도 입력받아 쓰게 할려는 거거든요.

근데, 말씀하신 내용을 보면 새로운 폼을 만들고 그 위에 Edit박스를 두라는 이야기인데요.

저는 Edit박스 자체를 투명하게 해서 경계선만 나오게 하고,
글씨를 입력하는데, 그림판의 그림배경은 보이도록 하고 싶은 거거든요..

좀 어렵나~~ 말뜻이...

암튼 그렀습니다.
말씀하신 대로 한번 해봐야 겠군요...

예전에 저도 지금 하시는 것과 비슷한걸 했었는데요..
전 그냥 Label1 를 놓고 Label1 에 마우스가 눌리면
그 위치에 Edit1 콘트롤을 옮기고 Visible을 true 시켜서 사용했습니다.

그리고 Edit 콘트롤에 Change 이벤트에서

Label1.Caption := Edit1.Text 이런식으로 해주면
Edit1에서 입력된게 레이블에 바로 적용되잖아요.

그리고 Edit1에서 OnExit 이벤트가 발생하면 다시 Visible을 false 시키면
레이블만 보이니깐 비슷한 작업이 가능할 겁니다.

근데 정작 바라시는게 이게 아닌 것 같은데. -_-;;

답변 감사드립니다.
그림판에 각종 그림을 그린 후에, 글씨도 입력받아 쓰게 할려는 거거든요.

라벨을 이용하는 방법도 좋은 방법이네요.

저는 Edit박스 자체를 투명하게 해서 경계선만 나오게 하고,
글씨를 입력하는데, 그림판의 그림배경은 보이도록 하고 싶은 거거든요..

말씀하신 대로
Label를 적극 활용해야 겠네요...

고맙습니다.