안녕하세요. 최용일입니다.

굳이 컨트롤의 이름을 받을 필요는 없습니다. 이벤트에 보시면 거의 대부분 Sender파라매터가 붙습니다. 바로 이 Sender가 이벤트를 발생시킨 넘이거든요. 이걸 사용하세요...

procedure memo_change(sender: TObject);
begin
    TMemo(Sender).Lines.Add( I )
    TMemo(Sender).Lines.Add( TMemo(Sender).Name )
end;

^^ 항상 즐코하세요...

안녕하세요.....용일님....

항상 감사하게 생각하고 있습니다. 저두 용일님 처럼 많은 분들께

답변해드리는 날이 오겠져?

글구..... 약간은....잘못이해를 하셨는지.....

소스파일 첨부해서 올립니다....

보시면 기존에 만들어진 메모에디트 처럼 onchang 시 다른 메모에디트

에서 라인 번호를 부여해주는걸 할려고 하거든요...

새로 생성된 메모에디트도 같은 이벤트를 받도록요.....

감사합니다.

참고로...Delphi6 버전으로 했습니다.

hsr////////////////////////////////////////////////////////////
동적으로 생성하는 컴포를 변경하려면 self로 일단 생성해서 Parent를 지정하세요.
첨부 파일에서보면 메모이름을 주어도 널값이되므로 이름을 못찾습니다.
따라서 생성하는 곳 2군데다 self로하시고요
Memo := TMemo.Create(self);
....


공통 이벤트는 아래처럼해보세요 조금 바꿨습니다.
procedure TForm1.mem_change(Sender: TObject);
var
   max_line,i:integer;
   TempMemo : TMemo;
begin
   max_line := TMemo(Sender).Lines.Count+1;
   TempMemo := TMemo( FindComponent( 'Mem_1' + intToStr(PageControl1.ActivePageIndex+1) ) );
   TempMemo.Lines.Clear;
   for i:=0 to max_line-1 do begin
      TempMemo.Lines.Add(inttostr(i+1));
   end;
end;