뚜벅이 wrote:

> DBEdit에서 enter key를 치면, 바로 검색이 되게 하는 프로그램입니다.

> 그래서 onkeypress 이벤트에 이렇게 코딩을 했습니다.

> =>

> procedure TFrm_Dechul.DBEdit1KeyPress(Sender: TObject; var Key: Char);

> var

> chk_code : string;

> begin

> if Key = #13 then begin

> key := #0;

> chk_code := Trim(DBEdit1.Text);

> WITH DM_1.TB_Cust DO BEGIN

> cancel;

> INDEXFIELDNAMES := 'CUST_CODE';

> setkey;

> FIELDBYNAME('CUST_CODE').ASSTRING := chk_code;

> gotokey;

> end;

> end;

> end;

>

> 근데 검색이 안됩니다.. 그래서 브래이크 포인터를 걸어서 체크를 해봤더니

> 엔터키를 쳐도 브래이크 포인터에 걸리지가 않습니다.

> 왜 그렇습니까...

> 고수님들의 관심있는 답변을 기다립니다....





문장만 보아서는 안될리가 없는 코드인데..



음.. KeyPreView:= True 해보셨겠죠?



이유를 잡으시면 원인을 올려주세요~



그럼 즐거운 프로그래밍 하시구요~

폼에 비트멥버튼을 사용했는데 여기서 뭔가 꼬인것 같아요,,

버튼을 다시 바꾸니 해결

뚜벅이 wrote:

> 폼에 비트멥버튼을 사용했는데 여기서 뭔가 꼬인것 같아요,,

> 버튼을 다시 바꾸니 해결