Q&A
- 현재 어느 함수가 실행중인지 아는방법!!
안녕하세여..
제가 구현하고싶은건말이죠..
edit1.setfocus;
요겁니다..
예를 들어
procedure TForm3.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_LEFT then //에디트2에서 왼쪽 키를 눌르면...
edit1.setfocus; //에디트1번으로 포커스 이동...
end;
그런데...
만약..이런 에디트가 100개라면....
100번 코딩 하지 않고요..^^;;;
폼에서 키를 입력받는걸루 해서...
현재 포커스를 가지고있는 edit이름이나 속성값을 읽어 한변수에 저장후에.
그 값에 -1 해서 포커스를 주면.. 되지 않으면 않을까요..?
포커스를 주고 싶은건데.....이런 말이 이상하게 꼬여있네요..
고수들좀 도와주세여 ㅜ.ㅠ....
제가 구현하고싶은건말이죠..
edit1.setfocus;
요겁니다..
예를 들어
procedure TForm3.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_LEFT then //에디트2에서 왼쪽 키를 눌르면...
edit1.setfocus; //에디트1번으로 포커스 이동...
end;
그런데...
만약..이런 에디트가 100개라면....
100번 코딩 하지 않고요..^^;;;
폼에서 키를 입력받는걸루 해서...
현재 포커스를 가지고있는 edit이름이나 속성값을 읽어 한변수에 저장후에.
그 값에 -1 해서 포커스를 주면.. 되지 않으면 않을까요..?
포커스를 주고 싶은건데.....이런 말이 이상하게 꼬여있네요..
고수들좀 도와주세여 ㅜ.ㅠ....
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 열심히
- •
- 2001.01.18 23:48
- 1 COMMENTS
- /
- 0 LIKES
-
정재필•2001.01.19 14:37웹에서 실행할 거라면... ActiveX로 만들면 될 것 같은데요... 그럼 ^^;
-
- 초보
- •
- 2001.01.18 23:48
- 3 COMMENTS
- /
- 0 LIKES
-
강인규•2001.01.19 00:33그렇지 않은데여... 제가 혹시나 해서 A4 20장 분량을 입력한 결과 잘 드러갑니다. 디자인시에 사이즈를 ...
-
초보•2001.01.19 01:12감사 합니다 그럼 한가지더 궁금한게 있는데.... Query로 update를 해도 마찬가지로 들어 가는 지궁...
-
강인규•2001.01.19 02:29해보시면 될텐데 그럼 바로 알 수 있구....... 잘 드러갑니다. 제가 테스트해봤습니다. 미더주세여. ...
-
- MySql 맨
- 2001.01.18 23:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 나그네..
- 2001.01.18 22:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 델맨
- 2001.01.18 22:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 정일준
- •
- 2001.01.18 23:14
- 1 COMMENTS
- /
- 0 LIKES
-
남걸호•2001.01.19 01:24정일준 wrote: > procedure TForm1.MysocketRead(Sender: TObject; Socket: TCustomWinSocket); > var >...
-
- 임소영
- •
- 2001.01.18 22:29
- 3 COMMENTS
- /
- 0 LIKES
-
델피언•2001.01.18 23:28근본적으로 TQuery는 TUpdateSQL을 사용하여 Navigator의 Refresh버턴이 enable상태에 있어도 물리적인 In...
-
임소영•2001.01.18 23:39답변 너무너무 감사합니다. 그리고 큰 도움이 될 듯 싶은데요.. 그렇다면.. FetchALL과 Locate 명령에 ...
-
성더기•2001.01.19 01:54GetBookmark와 GotoBookMark를 사용하시는게 더 나을듯한데여.. TmpBookmark := Query1.GetBookmark; ...
-
- 바보감자
- •
- 2001.01.18 22:08
- 1 COMMENTS
- /
- 0 LIKES
안녕하세여.. 제가 구현하고싶은건말이죠.. edit1.setfocus; 요겁니다.. 예를 들어 procedure TForm3.Edit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = VK_LEFT then //에디트2에서 왼쪽 키를 눌르면.....-
김광섭•2001.01.18 23:11바보감자 wrote: > 안녕하세여.. > 제가 구현하고싶은건말이죠.. > > edit1.setfocus; > 요겁니다.....
-
- kimwonbae
- 2001.01.18 21:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 이승근
- •
- 2001.01.18 21:15
- 1 COMMENTS
- /
- 0 LIKES
-
크리스탈•2001.01.19 00:42이승근 wrote: > dbgrid에서만 작업을 하려고 합니다.. > 다른것은 다 처리했는데 맨 마지막 레코드에서 ...
-
- 이방인
- 2001.01.18 20:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이초보
- •
- 2001.01.18 20:47
- 4 COMMENTS
- /
- 0 LIKES
-
사발우성•2001.01.18 23:47왕처버 사발임당... 님께서 원하는건 아마두 중복입력을 막을라구 하는거 같은디 그건가여 ^^;; 간단하게...
-
델파이초보•2001.01.18 22:41감사합니다... 그런데... SHOWMESSAGE 는 나오지 안는데여... 참..어찌됐든...감사합니다.. 그것은 제...
-
조덕진•2001.01.18 20:56안녕하세요. 델초보 조덕진입니다. 예외처리를 하시면 될 것 같네요. 검색에서 "에외처리"로 찾으시면 많...
-
델파이초보•2001.01.18 21:16지송하지만...거기가 봐두 잘 ...모르게습니다.. 확실한 답변을... 조덕진 wrote: > 안녕하세요...
-
- 장철
- 2001.01.18 20:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 조덕진
- 2001.01.18 20:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 문청
- 2001.01.18 20:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 바보
- •
- 2001.01.18 20:37
- 2 COMMENTS
- /
- 0 LIKES
-
공대규•2001.02.06 02:10저하고 같은 고민을 하시나 보네요... pusanssm.com/~smgal www.delphi-jedi.org 위 홈에 가 보세요. ...
-
바보•2001.02.08 02:31www.delphi-jedi.org 이곳에서.. Dshow에 대해서 셈플과 해더파일이 있더군요!! 어쨌든 감사 합니다. ...
-
- 이태일
- 2001.01.18 20:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 맨
- •
- 2001.01.18 20:26
- 2 COMMENTS
- /
- 0 LIKES
-
강인규•2001.01.19 00:26아래와 같이 문장을 바꾸어보시져. Pchar형으로 입력해야 할 부분에 String이 들어가서 그렇습니다. ...
-
이태일•2001.01.18 20:33맨 wrote: > application.MessageBox(me_find.text + '에 해당하는 데이타가 없습니다.', '오류', MB_OK);...
-
- 이태일
- 2001.01.18 20:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이맨
- •
- 2001.01.18 20:16
- 1 COMMENTS
- /
- 0 LIKES
-
델초보•2001.01.19 19:02팁이나 QnA에서 StringGrid로 조회를 한번 해보세요.. 델파이 사이트에는 다 해답이 있는 것 같던데.. ...
> 안녕하세여..
> 제가 구현하고싶은건말이죠..
>
> edit1.setfocus;
> 요겁니다..
> 예를 들어
>
> procedure TForm3.Edit2KeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if key = VK_LEFT then //에디트2에서 왼쪽 키를 눌르면...
> edit1.setfocus; //에디트1번으로 포커스 이동...
> end;
>
> 그런데...
> 만약..이런 에디트가 100개라면....
> 100번 코딩 하지 않고요..^^;;;
> 폼에서 키를 입력받는걸루 해서...
> 현재 포커스를 가지고있는 edit이름이나 속성값을 읽어 한변수에 저장후에.
> 그 값에 -1 해서 포커스를 주면.. 되지 않으면 않을까요..?
> 포커스를 주고 싶은건데.....이런 말이 이상하게 꼬여있네요..
> 고수들좀 도와주세여 ㅜ.ㅠ....
>
포커스 이동에는 여러 방법이 있지만 제 경우에는요 ^^
폼의 KeyDown 이벤트에서 다음과 같이 하구여
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
// Tab 키를 Enter 키로 바꿉니다.
VK_RETURN : Begin
if Shift = [ssShift] then
PostMessage (Handle, WM_NEXTDLGCTL, 1, 0)
else
PostMessage (Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
end;
각 컨틀롤의 TabOrder 속성을 처음부터 0, 1, 2 주고요
이벤트중에 KeyDown 이벤트를 여기로 연결하면 OK!