머 정석적인 방법이라고는 생각되지 않습니다만 이런 방법도 괜찮을거 같습니다.



스트링형으로 전역변수 하나 선언하시구 일단 하나의 컴퍼넌트의 OnExit Event에 아래와 같이 코딩하시구....



S := (Sender as TWinControl).Name;

//S가 전역변수, 포커스를 가지고 있는것만 되겠기에 TWinControl로 받았습니다.



나머지 컴퍼넌트를 모조리 선택한 후 OnExit Event에서 콤보박스 누르면 아까 이벤트 하나 뜹니다. 그걸 선택하시공....



ShowMessage(s+'에서 빠져나온 넘이군...내가 모를줄 알아찌?');



이르케 하심 됩니다. 꽁수만 늘어가는군....도망가야쥐 휘리리릭~

즐프하세여~ ^-^







뿌요 wrote:

> 여러모로 생각했는데 넘 막혀서 도와주세요..

>

> procedure TForm1.ButtonClick(Sender: TObject);

> begin

> if component1에서 button눌렀을때

> ......(event)

> if component2에서 button눌렀을때

> ......(event)

> 등등

> 이렇게 하고 싶어요.. 부탁합니다.

> end;

>

뿌요 wrote:

> 여러모로 생각했는데 넘 막혀서 도와주세요..

>

> procedure TForm1.ButtonClick(Sender: TObject);

> begin

> if component1에서 button눌렀을때

> ......(event)

> if component2에서 button눌렀을때

> ......(event)

> 등등

> 이렇게 하고 싶어요.. 부탁합니다.

> end;

>

if component1에서 button눌렀을때를 요~~~

--> if Sender = component1 then

물론 모든 버튼의 OnClick 이벤트는 여기로 연결해야 겠죠 ^^

그럼 즐코~

음.. 버튼은 하나구요...

버튼을 누르기전에 focus가 어디에 있다가 왔는지를 알면될것같은데..



만약 edit1에서 버튼을 누르면 버튼이 클릭시에 sender는 버튼으로 바뀌잖아여..

흑흑..

제가 잘 모르는 건가요?



김광섭 wrote:

> 뿌요 wrote:

> > 여러모로 생각했는데 넘 막혀서 도와주세요..

> >

> > procedure TForm1.ButtonClick(Sender: TObject);

> > begin

> > if component1에서 button눌렀을때

> > ......(event)

> > if component2에서 button눌렀을때

> > ......(event)

> > 등등

> > 이렇게 하고 싶어요.. 부탁합니다.

> > end;

> >

> if component1에서 button눌렀을때를 요~~~

> --> if Sender = component1 then

> 물론 모든 버튼의 OnClick 이벤트는 여기로 연결해야 겠죠 ^^

> 그럼 즐코~