하나만 만들어서 Sender파라매터를 이용하세요...



20개의 에디트의 OnEnter와 OnExit를 아래 이벤트로 연결하세요. 그럼 20개씩 만들 필요가 없습니다. 대부분의 이벤트는 Sender파라매터에 이벤트를 발생시킨 컴포넌트를 넘겨줍니다...



procedure TFM_ItmMst.Edit1Enter(Sender: TObject);

begin

TEdit(Sender).Color := clInfobk;

end;



procedure TFM_ItmMst.Edit1Exit(Sender: TObject);

begin

TEdit(Sender).Color := clWindow;

end;

류성심 wrote:

> 하나의 form 위에 panel 을 놓고...

> 그위에 여러개(20개 정도)의 edit control 이 있습니다.

>

> 탭키나 엔터키 또는 방향키를 통해서 포커스가 edit를 이동하게 하구요

> 포커스를 가졌을 때와 잃었을 때에 따라서 색깔을 다르게 하려구요...

>

> 현재... 아래와 같은 방법으로... 하고 있거든여...

> 각각의 edit 에 대해서 OnEnter 와 ONEXIT 함수를 만들어서...

>

> procedure TFM_ItmMst.Edit1Enter(Sender: TObject);

> begin

> Edit1.Color := clInfobk;

> end;

>

> procedure TFM_ItmMst.Edit1Exit(Sender: TObject);

> begin

> Edit1.Color := clWindow;

> end;

>

> 이런 함수는 20 여번에 걸쳐 반복하고 있습니다.

> 정말 무식하죠?.... ^^;

>

> 이걸 하나의 프로시저로 만들어서 사용할 수는 없나요?...

> 델파이를 접한지... 얼마 되지 않아서....

> 조언 부탁드립니다....

참고하세요...

is 연산자를 이용하여 Component의 종류를 알수 있고요

As연산자를 이용하여 그 해당 Component의 이름을 알수 있답니다.

As를 사용하면 일일이 Edit1,Edit2,Edit3이런식이 아닌

(ActiveControl as TEdit) 이런식으로 사용이 가능하거든요...

맞나... 하여간 참고 하세요



류성심 wrote:

> 하나의 form 위에 panel 을 놓고...

> 그위에 여러개(20개 정도)의 edit control 이 있습니다.

>

> 탭키나 엔터키 또는 방향키를 통해서 포커스가 edit를 이동하게 하구요

> 포커스를 가졌을 때와 잃었을 때에 따라서 색깔을 다르게 하려구요...

>

> 현재... 아래와 같은 방법으로... 하고 있거든여...

> 각각의 edit 에 대해서 OnEnter 와 ONEXIT 함수를 만들어서...

>

> procedure TFM_ItmMst.Edit1Enter(Sender: TObject);

> begin

> Edit1.Color := clInfobk;

> end;

>

> procedure TFM_ItmMst.Edit1Exit(Sender: TObject);

> begin

> Edit1.Color := clWindow;

> end;

>

> 이런 함수는 20 여번에 걸쳐 반복하고 있습니다.

> 정말 무식하죠?.... ^^;

>

> 이걸 하나의 프로시저로 만들어서 사용할 수는 없나요?...

> 델파이를 접한지... 얼마 되지 않아서....

> 조언 부탁드립니다....

하기 wrote:

> 참고하세요...

> is 연산자를 이용하여 Component의 종류를 알수 있고요

> As연산자를 이용하여 그 해당 Component의 이름을 알수 있답니다.

> As를 사용하면 일일이 Edit1,Edit2,Edit3이런식이 아닌

> (ActiveControl as TEdit) 이런식으로 사용이 가능하거든요...

> 맞나... 하여간 참고 하세요



너무 어려워요...

edit1 과 edit2 가 있을때... (첨엔 모두 흰색)

edit1 에 커서가 갔을때... edit1 파란색으로 변경

탭키 등의 키를 통해서 edit2 로 커서 이동

edit1 흰색으로 edit2 파란색으로....

이거의 확장이라 보시고...

구체적인 예로 가르쳐 주심 안될까요?....



답글 감사하구요... 좋은 주말 보내세요~~

TEDIT로 부터 원하는 기능을 넣어 TColorEdit와 같은 컴포넌트를 하나 만들어

등록하여 사용하면 어떨까요?





uses

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

StdCtrls;



type

TColorEdit = class(TEdit)

private

{ Private declarations }

protected

{ Protected declarations }

procedure DoEnter; override;

procedure DoExit; override;

public

{ Public declarations }

published

{ Published declarations }

end;



procedure Register;



implementation



procedure Register;

begin

RegisterComponents('My Vcl', [TColorEdit]);

end;



procedure TColorEdit.DoEnter;

begin

inherited;

color:=clRed; {포커스를 받을때 빨강색이라면 }

end;



procedure TColorEdit.DoExit;

begin

inherited;

color:=clBlue; {포커스가 떠났을때 파란색이라면}

end;



end.