Q&A
- edit Box에서 포커스 옮기기
안녕하세요?
날씨가 너무 추워졌네여..
코가 빨개졌어여...^^;
edit Box가 3개정도..그이상.. 있고
몇글자 이상이 되면 다음 포커스로 이동시켜주는 것 까지는 했는데
백스페이스를 눌러서 이전 포커스로 가는 건 어케해야 할까여?
procedure TFMP_Exp_Won.EdMp1code1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #8 then
begin
if length(TEdit(Sender).Text) = 0 then
SelectNext(sender as tWinControl,False,True);
end;
if not (Ord(Key) in [Ord('0') .. Ord('9')]) then
if Key > #31 then Key := #0;
if (TEdit(Sender).Name = 'EdMp1code1') and (length(TEdit(Sender).Text) = 3) then
EdMp1code2.SetFocus;
end;
저렇게 하면 될 것도 같은데...
안되네여...
날씨가 너무 추워졌네여..
코가 빨개졌어여...^^;
edit Box가 3개정도..그이상.. 있고
몇글자 이상이 되면 다음 포커스로 이동시켜주는 것 까지는 했는데
백스페이스를 눌러서 이전 포커스로 가는 건 어케해야 할까여?
procedure TFMP_Exp_Won.EdMp1code1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #8 then
begin
if length(TEdit(Sender).Text) = 0 then
SelectNext(sender as tWinControl,False,True);
end;
if not (Ord(Key) in [Ord('0') .. Ord('9')]) then
if Key > #31 then Key := #0;
if (TEdit(Sender).Name = 'EdMp1code1') and (length(TEdit(Sender).Text) = 3) then
EdMp1code2.SetFocus;
end;
저렇게 하면 될 것도 같은데...
안되네여...
2
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 손창환
- •
- 2002.10.08 09:44
- 1 COMMENTS
- /
- 0 LIKES
-
이추형•2002.10.08 19:25짧게 말씀드리면 property는 어떤 하나의 객체에 대한 속성입니다. 속성..OOP(Object Oriented Programmin...
-
- 성대현
- •
- 2002.10.08 09:35
- 2 COMMENTS
- /
- 0 LIKES
-
정경철•2002.10.08 22:44영상을 표시하는 부분의 Align 속성 값을 alClient 값으로 해보세요... alClient는 윈도우즈 크기에 따라 ...
-
신강섭•2002.10.08 22:42자료실에서 cf 플레이어 라는 것을 다운받아서 합 보세요... 실행되는 수준은 아드레날린을 본따만든것 같...
-
- 김평국
- •
- 2002.10.08 09:33
- 1 COMMENTS
- /
- 0 LIKES
-
이추형•2002.10.08 19:46네트웍 프린터라면 가능합니다. ip를 가지는 독립된 프린터를 말합니다.
-
- 델사랑
- •
- 2002.10.08 09:15
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2002.10.08 12:03hsr///////////////////////////////////////////////////// 소스 정리 없이 해보았습니다. 수식보다는 ... -
델사랑•2002.10.08 20:46아직은 해보지는 않았지만 정말 감사합니다. 즐거운 하루 보내세요
-
- 김길남
- •
- 2002.10.08 07:40
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2002.10.08 12:18게시판에 찾아보시면 이유는 많겠지만 가장 흔한 문제로 ToolBar의 font속성이 한글을 지원하는것으로 설...
-
- 이재현
- •
- 2002.10.08 06:56
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2002.10.21 19:17안녕하세여. 타락임다. 우선 윈도에서 실행하는 프로세서 리스트를 얻어야 합니다. 그 담에 프로세서...
-
- 이재현
- 2002.10.08 06:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 칼짱
- •
- 2002.10.08 05:53
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2002.10.08 19:58안녕하세요. 최용일입니다. Type LIbrary에서 속성이나 메소드 추가하셔서 버튼이나 다른컴포넌트의 속...
-
칼짱•2002.10.09 20:27감사합니다. 용일님. ^^; 항상 가려운 곳을 긁어 주시는 군요. ^^; 잘 되었습니다. ^^;
-
- 이영근
- •
- 2002.10.08 05:42
- 2 COMMENTS
- /
- 0 LIKES
-
주병현•2002.10.08 10:17dialog의 onClose부분에서 현재 닫혀두 되는 상황인지 검사해서요 닫히면 않될경우 action:=caNone;로...
-
이영근•2002.10.08 18:27델파이의 세미콜론은 왜 c 와 다를까?......^^;;
-
- goodlsw
- •
- 2002.10.08 05:36
- 2 COMMENTS
- /
- 0 LIKES
-
김해우•2002.10.18 19:39델파이의 폼과 같은 소스입니다. 그러니까 델파이 실행하시면 Application만들면 되는데.. 단, 소스의 ...
-
최용일•2002.10.08 19:55안녕하세요. 최용일입니다. File/New해서 프로젝트 하나 만드시고 빈폼은 프로젝트에서 없애버리세요. ...
-
- 이원영
- •
- 2002.10.08 05:10
- 1 COMMENTS
- /
- 0 LIKES
-
최병철•2002.10.08 19:27서브 쿼리의 Union을 이용해서 보세요 아마 좋은 결과 있을것 입니다. 참고로 아래의 내역 결과로 볼...
-
- 초짜
- •
- 2002.10.08 03:41
- 1 COMMENTS
- /
- 0 LIKES
-
정경철•2002.10.08 22:52잘은 모르겠습니다. 혹시 이 숫자를 integer형으로 변환 하여 사용 할려고 하는지 모르겠습니다. intege...
-
- 장이욱
- 2002.10.08 03:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 발그미™
- •
- 2002.10.08 03:21
- 1 COMMENTS
- /
- 0 LIKES
-
신승철•2002.10.12 01:40간단하게 생각하세요. 디테일벤드한개가지고 가능합니다. 두칸이들어갈만한 크기로 height을 좀 크게늘린...
-
- 최여옥
- •
- 2002.10.08 02:58
- 1 COMMENTS
- /
- 0 LIKES
-
박상윤•2002.10.09 22:27Com port는 정확하게..setting을 하셨나요.. 정확하게 안됬을 경우 포트는 잡혀 있어도 통신이 안...
-
- 이대성
- •
- 2002.10.08 02:45
- 3 COMMENTS
- /
- 0 LIKES
-
김수경•2002.10.08 21:25Delphi가 없는 관계로 이론만 설명드리겠습니다. 두서없는 설명이 되겠지만 참조하세요 ^^; fm1 <--...
-
이추형•2002.10.08 02:52private procedure AppMessage(var Msg: TMsg; var Handled: Boolean); procedure TFor...
-
이대성•2002.10.08 03:15죄송 한데요... 제가 여쭈어 본건 Form2에서 입력된 Textbox의 내용을 확인버튼을 Click했을때 Form1의 ...
-
- 쳐리
- •
- 2002.10.08 02:40
- 3 COMMENTS
- /
- 0 LIKES
-
이추형•2002.10.08 02:44쉽게 생각하면 OnCreate에서는 화면의 각각의 콤포를 생성하기 때문에 해당 프로시져를 호출하면 에러가 ...
-
쳐리•2002.10.08 03:51페인트 박스가 다른 창에 가리거나, 최소화 된 후에 다시 활성화가 되면 지워지는 문제였네요.... 페인트 ...
-
최용일•2002.10.08 20:05안녕하세요. 최용일입니다. TPaintBox는 TImage와는 달리 그리기 작업한것을 저장하는 기능이 없습니다....
-
- blackjewel
- •
- •
- 2002.10.08 01:46
- 2 COMMENTS
- /
- 1 LIKES
안녕하세요? 날씨가 너무 추워졌네여.. 코가 빨개졌어여...^^; edit Box가 3개정도..그이상.. 있고 몇글자 이상이 되면 다음 포커스로 이동시켜주는 것 까지는 했는데 백스페이스를 눌러서 이전 포커스로 가는 건 어케해야 할까여? proced...-
미소나눔•2002.10.08 05:33procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); beg...
-
blackjewel•2002.10.10 01:51
-
- 델퐁
- •
- 2002.10.08 00:51
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.10.08 20:07안녕하세요. 최용일입니다. 소켓을 닫을 때 예외처리 하세요... try 인디...
-
- 하성일
- •
- 2002.10.08 00:42
- 1 COMMENTS
- /
- 0 LIKES
-
김수경•2002.10.08 22:30받는 부분에서 메모리를 할당하시는가 보군요 사용이 끝난 메모리를 해제하는 부분을 확인해 보십시오. ...
-
blackjewel
2002/10/08 01:46
-
Views556Likes1Comments2Reports0
-
Tag List
- 수정
- 삭제
- 목록으로
Shift: TShiftState);
begin
if Key = VK_RETURN then
SelectNext(Sender as TWinControl, True, True) // 전방
else if Key = VK_BACK then
SelectNext(Sender as TWinControl, False, True); // 후방
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i:=1 to ComponentCount-1 do begin
if Components[i] is TEdit then
TEdit(Components[i]).OnKeyDown := Edit1KeyDown
else
TWinControl(Components[i]).TabStop := False;;
end;
end;
이용하시면 될듯....
즐푸하세용..^^;