하늘소 wrote:

>

> 안녕하십니까..

> 아쉬울때만 찾아오는군요. 다른분들에게 도움도 못드리고.

> 워낙 아는게 없어서 말입니다..

>

> 다름이아니라 Form 상에 Edit, BitBtn, Button등이 Panel1에

> 존재합니다.

> 이때 마우스로 어떤 Component를 클릭했는지 알고 싶거든요..

>

> 많은 고수님들의 조언 부탁드립니다.. 꾸벅..



그동안 질문 하시는분들 보면 왜 그렇게 하시냐고

이해가 안 갑니다. 이렇게 해 보세요



라고 말씀드리면 100 분이면 99 분은 그래도 그냥 그렇게

하고 싶다고 말씀들을 하시니깐 다른말은 안 하겠습니다.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Buttons, StdCtrls, ExtCtrls;



type

TForm1 = class(TForm)

Panel1: TPanel;

Edit1: TEdit;

Button1: TButton;

BitBtn1: TBitBtn;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

procedure ControlClick(Sender: TObject);

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.ControlClick(Sender: TObject);

begin

ShowMessage((Sender as TComponent).name);

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.OnClick := ControlClick;

Button1.OnClick := ControlClick;

BitBtn1.OnClick := ControlClick;

Panel1.OnClick := ControlClick;

end;



end.







프리랜서 유효종