Q&A

  • 키값을 호출할 함수에 반영할려고 합니다.
*** 키값을 호출할 함수에 반영할려고 합니다.

KeyDown이벤트가 동작하면 key값을 가지고

SGMoveControl로 key값을 반환할려고 하는데

어떻게 하는 건가요? 도와주세요~



--------------------------------------------------------코딩---



procedure TfrmBonBong.StringGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

SGMoveControl(?); // ?에 무엇이 들어가야 할까요?

end;



procedure TfrmBONBONG.SGMoveControl(Key:KeyAscii); //이부분에서도 error!!!

begin

if key = vk_Down then ....

begin

//내용

end;

end;

end.





4  COMMENTS
  • Profile
    액션가면 2001.02.03 10:28
    jin wrote:

    > *** 키값을 호출할 함수에 반영할려고 합니다.

    > KeyDown이벤트가 동작하면 key값을 가지고

    > SGMoveControl로 key값을 반환할려고 하는데

    > 어떻게 하는 건가요? 도와주세요~

    >

    > --------------------------------------------------------코딩---

    >

    > procedure TfrmBonBong.StringGrid1KeyDown(Sender: TObject; var Key: Word;

    > Shift: TShiftState);

    > begin

    > SGMoveControl(?); // ?에 무엇이 들어가야 할까요?

    > end;

    >

    > procedure TfrmBONBONG.SGMoveControl(Key:KeyAscii); //이부분에서도 error!!!

    > begin

    > if key = vk_Down then ....

    > begin

    > //내용

    > end;

    > end;

    > end.

    >

    >

    이렇게 하면 될듯한데염..

    그럼..



    procedure TfrmBonBong.StringGrid1KeyDown(Sender: TObject; var Key: Word;

    Shift: TShiftState);

    begin

    SGMoveControl(Key); // ?에 무엇이 들어가야 할까요?

    end;



    procedure TfrmBONBONG.SGMoveControl(Key:Word);

    begin

    if key = vk_Down then ....

    begin

    //내용

    end;

    end;

    end.



  • Profile
    jin 2001.02.03 10:54
    액션가면 wrote:

    > jin wrote:

    > > *** 키값을 호출할 함수에 반영할려고 합니다.

    > > KeyDown이벤트가 동작하면 key값을 가지고

    > > SGMoveControl로 key값을 반환할려고 하는데

    > > 어떻게 하는 건가요? 도와주세요~

    > >

    > > --------------------------------------------------------코딩---

    > >

    > > procedure TfrmBonBong.StringGrid1KeyDown(Sender: TObject; var Key: Word;

    > > Shift: TShiftState);

    > > begin

    > > SGMoveControl(?); // ?에 무엇이 들어가야 할까요?

    > > end;

    > >

    > > procedure TfrmBONBONG.SGMoveControl(Key:KeyAscii); //이부분에서도 error!!!

    > > begin

    > > if key = vk_Down then ....

    > > begin

    > > //내용

    > > end;

    > > end;

    > > end.

    > >

    > >

    > 이렇게 하면 될듯한데염..

    > 그럼..

    >

    > procedure TfrmBonBong.StringGrid1KeyDown(Sender: TObject; var Key: Word;

    > Shift: TShiftState);

    > begin

    > SGMoveControl(Key); // ?에 무엇이 들어가야 할까요?

    > end;

    >

    > procedure TfrmBONBONG.SGMoveControl(Key:Word);

    > begin

    > if key = vk_Down then ....

    > begin

    > //내용

    > end;

    > end;

    > end.

    >

  • Profile
    뻐록이 2001.02.03 19:13
    jin wrote:

    > 액션가면 wrote:

    > > jin wrote:

    > > > *** 키값을 호출할 함수에 반영할려고 합니다.

    > > > KeyDown이벤트가 동작하면 key값을 가지고

    > > > SGMoveControl로 key값을 반환할려고 하는데

    > > > 어떻게 하는 건가요? 도와주세요~

    > > >

    > > > --------------------------------------------------------코딩---

    > > >

    > > > procedure TfrmBonBong.StringGrid1KeyDown(Sender: TObject; var Key: Word;

    > > > Shift: TShiftState);

    > > > begin

    > > > SGMoveControl(?); // ?에 무엇이 들어가야 할까요?

    > > > end;

    > > >

    > > > procedure TfrmBONBONG.SGMoveControl(Key:KeyAscii); //이부분에서도 error!!!

    > > > begin

    > > > if key = vk_Down then ....

    > > > begin

    > > > //내용

    > > > end;

    > > > end;

    > > > end.







    도움이 되길....

    안녕하세요

    도움이 되었으면 하네요

    지금 보니까 돌아오는 값이 없는 프로시져로 보내는 군요

    그럼

    --------------------------------------------------------코딩---

    > > >

    > > > procedure TfrmBonBong.StringGrid1KeyDown(Sender: TObject; var Key: Word;

    > > > Shift: TShiftState);

    > > > begin

    > > > SGMoveControl; // ?에 무엇이 들어가야 할까요?



    > > > end;

    > > >

    > > > procedure TfrmBONBONG.SGMoveControl; //이부분에서도

    > > > begin

    > > > if key = vk_Down then ....

    > > > begin

    > > > //내용

    > > > end;

    > > > end;

    > > > end.

    이렇게 함 될거 같구요

    리턴값이 있어야 한다면

    > > > procedure TfrmBonBong.StringGrid1KeyDown(Sender: TObject; var Key: Word;

    > > > Shift: TShiftState);

    > > > begin

    > > > SGMoveControl(Vk_Return); //이 부분은 실제로 들어가는 워드의 값..예Vk_Return,Vk_down 등등 워드값)

    > > > end;

    > > >

    > > > Function TfrmBONBONG.SGMoveControl(Key : word) : word; //

    > > > begin

    > > > if key = vk_Down then ....

    > > > begin

    > > > //내용

    > > > end;

    > > > end;

    > > > end.

    이렇게 함 안 될까요

    도움이 되길 바래요





  • Profile
    jin 2001.02.03 19:10
    jin wrote:

    > 액션가면 wrote:

    > > jin wrote:

    > > > *** 키값을 호출할 함수에 반영할려고 합니다.

    > > > KeyDown이벤트가 동작하면 key값을 가지고

    > > > SGMoveControl로 key값을 반환할려고 하는데

    > > > 어떻게 하는 건가요? 도와주세요~

    > > >

    > > > --------------------------------------------------------코딩---

    > > >

    > > > procedure TfrmBonBong.StringGrid1KeyDown(Sender: TObject; var Key: Word;

    > > > Shift: TShiftState);

    > > > begin

    > > > SGMoveControl(?); // ?에 무엇이 들어가야 할까요?

    > > > end;

    > > >

    > > > procedure TfrmBONBONG.SGMoveControl(Key:KeyAscii); //이부분에서도 error!!!

    > > > begin

    > > > if key = vk_Down then ....

    > > > begin

    > > > //내용

    > > > end;

    > > > end;

    > > > end.

    > > >

    > > >

    > > 이렇게 하면 될듯한데염..

    > > 그럼..

    > >

    > > procedure TfrmBonBong.StringGrid1KeyDown(Sender: TObject; var Key: Word;

    > > Shift: TShiftState);

    > > begin

    > > SGMoveControl(Key); // ?에 무엇이 들어가야 할까요?

    > > end;

    > >

    > > procedure TfrmBONBONG.SGMoveControl(Key:Word);

    > > begin

    > > if key = vk_Down then ....

    > > begin

    > > //내용

    > > end;

    > > end;

    > > end.

    > >