프로그램을 하는데, enter키를 도대체... 아무리... 열심히 눌러도 안됩니다... 해결방법 좀 알려주십시요... keypress도 keydown도 안됩니다.

아시는 분이 계시면 되도록 빨리 제게 메일 좀 보내주십시요...

즐거운 하루 되세요...

pas file만 첨부했습니다.

unit kjbu;



interface



uses

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

ComCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons, Mask, Db, DBTables;



type

Tsform = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

StatusBar1: TStatusBar;

DBGrid1: TDBGrid;

sJu: TBitBtn;

sSave: TBitBtn;

sSearch: TBitBtn;

sDelete: TBitBtn;

sClose: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

scode: TEdit;

sname: TEdit;

saddr1: TEdit;

saddr2: TEdit;

scount: TEdit;

Label12: TLabel;

smemo: TMemo;

szip: TMaskEdit;

sdate: TMaskEdit;

shtel: TMaskEdit;

sotel: TMaskEdit;

swedd: TMaskEdit;

ssearch1: TBitBtn;

GB1: TGroupBox;

sCBf: TCheckBox;

sCBm: TCheckBox;

sCBc: TCheckBox;

sCBg: TCheckBox;

sCBe: TCheckBox;

GB2: TGroupBox;

sRBman: TRadioButton;

sRBwoman: TRadioButton;

GB3: TGroupBox;

sRBgi: TRadioButton;

sRBmi: TRadioButton;

Table1: TTable;

DataSource1: TDataSource;

procedure scodeKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;



var

sform: Tsform;



implementation



{$R *.DFM}



procedure Tsform.scodeKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key = 13 then sname.SetFocus;

end;



end.

이슬님 저 구창민입니다.

메일 보내드렸는데 또 질문 올리셨군요.

못 받으셨다면 이글 다시 보시기 바래요.

Edit의 KeyPress에 문제가 있는 것이 아니라 원인은 다른곳에 있었습니다.

이슬님이 만들어 두신 버튼들 중에 '저장'이라고 쓴 비트버튼이 있을 것입니다.

그 버튼의 Defalut속성이 True로 설정되어 있어서 그렇습니다.

옵젝트 인스펙터를 보시면 속성중에 Default라는 속성이 보이실 겁니다.

그 속성은 특정 윈도우에서 엔터를 입력했을때 무조건 수행하게 됩니다.

그래서 키다운 메세지를 그 버튼이 삼켰던 것입니다.

그러니까 이슬님이 만드신 sSave 버튼의 Default속성을 False로 바꾸어 주시면

간단히 해결될것입니다.

그리고, 앞으로는 메일로 질문하시지 말구 문답란을 이용해 주시기 바랍니다.

메일로 오는 질문이 너무나 많은 까닭입니다. 너그러이 이해를 바라구요.

그럼..



이슬 wrote:

> 프로그램을 하는데, enter키를 도대체... 아무리... 열심히 눌러도 안됩니다... 해결방법 좀 알려주십시요... keypress도 keydown도 안됩니다.

> 아시는 분이 계시면 되도록 빨리 제게 메일 좀 보내주십시요...

> 즐거운 하루 되세요...

> pas file만 첨부했습니다.

> unit kjbu;

>

> interface

>

> uses

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

> ComCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons, Mask, Db, DBTables;

>

> type

> Tsform = class(TForm)

> Panel1: TPanel;

> Panel2: TPanel;

> Panel3: TPanel;

> StatusBar1: TStatusBar;

> DBGrid1: TDBGrid;

> sJu: TBitBtn;

> sSave: TBitBtn;

> sSearch: TBitBtn;

> sDelete: TBitBtn;

> sClose: TBitBtn;

> Label1: TLabel;

> Label2: TLabel;

> Label3: TLabel;

> Label4: TLabel;

> Label5: TLabel;

> Label6: TLabel;

> Label7: TLabel;

> Label8: TLabel;

> Label9: TLabel;

> Label10: TLabel;

> Label11: TLabel;

> scode: TEdit;

> sname: TEdit;

> saddr1: TEdit;

> saddr2: TEdit;

> scount: TEdit;

> Label12: TLabel;

> smemo: TMemo;

> szip: TMaskEdit;

> sdate: TMaskEdit;

> shtel: TMaskEdit;

> sotel: TMaskEdit;

> swedd: TMaskEdit;

> ssearch1: TBitBtn;

> GB1: TGroupBox;

> sCBf: TCheckBox;

> sCBm: TCheckBox;

> sCBc: TCheckBox;

> sCBg: TCheckBox;

> sCBe: TCheckBox;

> GB2: TGroupBox;

> sRBman: TRadioButton;

> sRBwoman: TRadioButton;

> GB3: TGroupBox;

> sRBgi: TRadioButton;

> sRBmi: TRadioButton;

> Table1: TTable;

> DataSource1: TDataSource;

> procedure scodeKeyDown(Sender: TObject; var Key: Word;

> Shift: TShiftState);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> sform: Tsform;

>

> implementation

>

> {$R *.DFM}

>

> procedure Tsform.scodeKeyDown(Sender: TObject; var Key: Word;

> Shift: TShiftState);

> begin

> if key = 13 then sname.SetFocus;

> end;

>

> end.

>