안녕하세요...



너무 막막한 문제에 막혀 숨조차 쉬기 힘든 초짜입니다.

MDI창에서 차일드윈도의 PaintBox에 Mouse Up 이벤트시 새로운 TMemo객체를 하나 생성시키구 싶거덩요?

근데 요놈이 sdi일때는 자알 되는데...mdi일때는 안돼네요...

누가 좀 힌트좀 부탁드립니다.

제가 어딜 잘 못하는건 가요?

다음은 객체 생성자 입니다.



constructor TTextShapePart.Create;

begin

inherited Create;



if not Assigned(eMemo) then

begin

eMemo := TMemo.Create(MDIParent.ActiveMDIChild as TMDIChild); //<---차일드 윈도에 그려줘야 되니께...

// eMemo.Parent := (MDIParent.ActiveMDIChild as TMDIChild);

// eMemo.Align := alNone;

eMemo.Width :=100;

eMemo.Height :=100;

eMemo.Top :=200;

eMemo.Left :=200;

eMemo.Ctl3D := False;

eMemo.Font.Size := 10;

eMemo.Font.Style := [];

// eMemo.BorderStyle := bsNone;

eMemo.SetFocus;

// eMemo.BorderStyle := bsNone;

// eMemo.ReadOnly := True;

// eMemo.Enabled := False;



// CreateCaret( Form1.eMemo.Handle);

// ShowCaret(Form1.eMemo.handle);

// eMemo.OnMouseDown := TestClick;







end;

end;