이렇게 하니 되는군요.



implementation



{$R *.DFM}

var

keyTag:integer;



procedure TForm1.Edit1Exit(Sender: TObject);

begin

showmessage('OnExit이벤트');

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

KeyTag:=2;

end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if (key=#13) and (keyTag=2) then

begin

Edit1Exit(Sender);

KeyTag:=2;

end;

Inc(KeyTag);

showmessage('OnkeyPress이벤트');

end;



end.







김종호 wrote:

> DELPHI VERSION : 3.0

> 사용 DB : ORACLE

>

> TDBCtrlgrid에 TDBEDIT을 여러개 나열한 후

> TDBEDIT의 에서 Enter Key를 입력하였을 경우 (OnKeyPress Event에서

>

> 처리할 것이 있는데

> Enter Key를 입력하면 OnKeyPress Event보다는 OnExit Event를 처리함

> 또한번 Enter Key 입력하면 그때 OnKeyPress Event를 처리하는데

> Enter Key를 한번 입력하였을 경우 바로 Enter Key Event 처리를 할수 있는

> 방법을 알고싶습니다........

>

>

>

>

>

>

>

>

>

>

일부 수정



mr.Q wrote:

>

> 이렇게 하니 되는군요.

>

> implementation

>

> {$R *.DFM}

> var

> keyTag:integer;

>

> procedure TForm1.Edit1Exit(Sender: TObject);

> begin

> showmessage('OnExit이벤트');

> end;

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> KeyTag:=2;

> end;

>

> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

> begin

> if (key=#13) and (keyTag=2) then

> begin

> Edit1Exit(Sender);

> KeyTag:=2;

> end

> else showmessage('OnkeyPress이벤트'); <-이부분

> Inc(KeyTag); <-이부분

> end;

>

> end.