안녕하세요... 오공이 입니다...

listBox을 생성해서 listBox의 onMouseMove 이벤트가 일어날때 Edit의 값을

바꾸는 예을 간단하게 보여드립니다..

원하시는 이벤트을 만들어서 정적일때랑 똑같이 코딩하시면 되리라 생각이

듭니다.

물론 이벤트을 만들때 중요한건 파라메터을 똑같이 하셔야 되고요...

도움이 되었나 모르겠네요..

그럼 이만....



type

TForm1 = class(TForm)

Edit1: TEdit;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

List1 : TListBox;

procedure list1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.list1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Edit1.text := 'aaa';

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

list1 := TListBox.create(Self);

list1.Parent := self;

list1.Top := 10;

list1.left := 30;

list1.Width := 100;

list1.Height := 100;

list1.OnMouseMove := list1MouseMove;

end;



end.







정재홍 께서 말씀하시기를...

> 샬롬!

>

> 객체를 동적으로 생성한다는걸 처음알고

>

> 그걸 실험하기 위해 사용했는데 이런 문제에 봉착하고 말았습니다.

>

> 문제는 이렇습니다.

>

> 동적으로 생성된 컨트롤에서 일어나는 이벤트 처리를 어디에 어떻게 기술해

> 주어야 하나요?

>

> 예를 들자면 리스트 박스를 동적으로 생성해서 어떤 아이템을 클릭하면

>

> 그 자료를 에디트 박스로 넘겨주도록 할려면 어떻게 해야 할까요?

>

> 아시는 분 답변좀 부탁 드릴께요...

>

> 그럼.....