OnEnter Event에 코딩을 하면 될듯하군요

Form1.OnEnter(Sender)

var

Edit: TEdit;

begin

for i:=1 To 7 do

begin

Edit := Findcomponent( 'Edit' + IntToStr(i) );

if Edit <> nil then

begin

if Edit is Sender then Edit.ReadOnly := False

else Edit.ReadOnly := True

end;

end;

end;



예로 ReadOnly속성을 했는데 Visible을 넣어도 괜찬구요.

OnExit에서 활성화 시켜주구요. 그럼..



이쁜이 wrote:

> Edit가 1부터 7까지 있습니다.

> 이걸 Edit1에 글을 쓸경우 나머지 Edit는 false상태가 되어야합니다.

> Edit2를 쓸경우에도 나머지들이 false상태여야 합니다.

> 어떻게 해야하는지 고수님들 빠른 답변좀 부탁드립니다.

>

>

이쁜이 wrote:

> Edit가 1부터 7까지 있습니다.

> 이걸 Edit1에 글을 쓸경우 나머지 Edit는 false상태가 되어야합니다.

> Edit2를 쓸경우에도 나머지들이 false상태여야 합니다.

> 어떻게 해야하는지 고수님들 빠른 답변좀 부탁드립니다.

>

>

아래 소스 참조해서 함 해보세요 잘 될지는 몰겠네요(실행을 안해바서요 ^^;;)

각에디트박스를 하나의 OnKeyDown이벤트(아니면 OnExit이벤트)에 모두 연결한후에

var

str : string;

begin

if key=VK_Return then

begin

str := Copy(Sender.Text,5,1);

For i:= 1 to 7 do

if (i = strtoint(str)+1) then

(('Edit'+IntToStr(i+1)) as TEdit).Enabled := True

else

(('Edit'+IntToStr(i+1)) as TEdit).Enabled := False;

if Shift = [ssShift] then

PostMessage (Handle, WM_NEXTDLGCTL, 1, 0)

else

PostMessage (Handle, WM_NEXTDLGCTL, 0, 0);

end;

end;

이쁜이 wrote:

> Edit가 1부터 7까지 있습니다.

> 이걸 Edit1에 글을 쓸경우 나머지 Edit는 false상태가 되어야합니다.

> Edit2를 쓸경우에도 나머지들이 false상태여야 합니다.

> 어떻게 해야하는지 고수님들 빠른 답변좀 부탁드립니다.

>



안녕하세요

다른 좋은 방법도 있을 것이나 혹시 도움이 될까 해서올립니다.

Edit의 이벤트중 OnEnter에서

다른 EditBox를 Enable := False; 로 주면 어떨까요..

아 이러면 다쓰고 다음 Edit로 이동 할경우 Enable := False 로 되어있으면 Cursor Handle어쩌고 저쩌고 에러를 내니까 다시 커서가 도착하기전에 Enable := True를

해주어야 하겠네요.. 그리고 커서가 위치한후 다시 False...정신업나?...



조금이나마 도움이 되었으면 합니다.