Q&A
HOME
Tips & Tech
Q&A
Discuss
Download
자유게시판
홍보 / 광고
구인 / 구직
LOGIN
회원가입
너무 간단한..질문..
입력창이 있습니다..
입력을 하고 Ok버튼을 누르면 입력했던 내용이 다른 폼에 들어가는 아주 간단한 예제입니다..
입력이 하나라도 안되어있으면 에러메세지를 뜨게해서 입력이 안된곳을 찾아서 그곳에 포커스를 맞추게 하고싶은데..
try
except문을 사용해서 간단하게 할수있는 방법이없을까여?
if문으로 입력이 됐는지 안됐는지 일일이 확인하자니 코딩이 너무 번잡하고 지저분해지더라구여..
부탁드립니다..
3
COMMENTS
하얀까마귀
•
2000.06.09 22:35
안녕하세요 하얀까마귀 입니다...
Components 를 이용해 보세요...
이놈은 현재 폼의 콤포넌트 들을 리턴해 줍니다...
for i := 0 to self.ComponentCount - 1 do
begin
if ( self.Components[i] is TEdit ) and
(( self.Components[i] as TEdit ).Teg = 1 ) then
begin
if Length(( self.Components[i] as TEdit ).Text) <= 0 then
begin
( self.Components[i] as TEdit ).SetFocus;
Exit;
end;
end;
end;
대충 이렇게 하면 되겠네요...
그럼.. 즐거운시간 되세요..
- 하얀까마귀 -
heimdal wrote:
> 입력창이 있습니다..
> 입력을 하고 Ok버튼을 누르면 입력했던 내용이 다른 폼에 들어가는 아주 간단한 예제입니다..
> 입력이 하나라도 안되어있으면 에러메세지를 뜨게해서 입력이 안된곳을 찾아서 그곳에 포커스를 맞추게 하고싶은데..
> try
>
> except문을 사용해서 간단하게 할수있는 방법이없을까여?
>
> if문으로 입력이 됐는지 안됐는지 일일이 확인하자니 코딩이 너무 번잡하고 지저분해지더라구여..
>
> 부탁드립니다..
0
0
삭제
수정
댓글
heimdal
•
2000.06.09 23:01
입력창은 다음과 같습니다..
디비에디트박스 2개, 디비콤보박스 4개, 그리구 디비체크박스 5개..이렇게 되어있는데여...
우선 디비에디트박스만 해봤는데 안되거든여..
값도 못 넘겨주고..안되는데...
하얀까마귀 wrote:
> 안녕하세요 하얀까마귀 입니다...
>
> Components 를 이용해 보세요...
>
> 이놈은 현재 폼의 콤포넌트 들을 리턴해 줍니다...
> for i := 0 to self.ComponentCount - 1 do
> begin
> if ( self.Components[i] is TEdit ) and
> (( self.Components[i] as TEdit ).Teg = 1 ) then
> begin
> if Length(( self.Components[i] as TEdit ).Text) <= 0 then
> begin
> ( self.Components[i] as TEdit ).SetFocus;
> Exit;
> end;
> end;
> end;
> 대충 이렇게 하면 되겠네요...
>
> 그럼.. 즐거운시간 되세요..
>
> - 하얀까마귀 -
>
> heimdal wrote:
> > 입력창이 있습니다..
> > 입력을 하고 Ok버튼을 누르면 입력했던 내용이 다른 폼에 들어가는 아주 간단한 예제입니다..
> > 입력이 하나라도 안되어있으면 에러메세지를 뜨게해서 입력이 안된곳을 찾아서 그곳에 포커스를 맞추게 하고싶은데..
> > try
> >
> > except문을 사용해서 간단하게 할수있는 방법이없을까여?
> >
> > if문으로 입력이 됐는지 안됐는지 일일이 확인하자니 코딩이 너무 번잡하고 지저분해지더라구여..
> >
> > 부탁드립니다..
0
0
삭제
수정
댓글
하얀까마귀
•
2000.06.09 23:20
안녕하세요 하얀까마귀 입니다..
음.. 죄송 제가 설명을 빠트린것 같네요..
아마 소스를 복사를 하신것 같은데... 오타가 있을지 모르니 주의를..
if ( self.Components[i] is TEdit ) and
(( self.Components[i] as TEdit ).Teg = 1 ) then
문제는 이부분일겁니다.. tag(음 역시 오타네요 Tag가 맞죠 ) 가
'1'일때만 하도록 해 놓았으니 and 뒷부분을 빼버리시던지..
아니면 검사할 에디트들은 Tag를 1로 만드세요.. Object Inspector에 보시면 있죠?
그럼.. 즐거운시간 되세요... 또안되면 그때는 코드를 보여 주세요..
- 하얀까마귀 -
heimdal wrote:
> 입력창은 다음과 같습니다..
> 디비에디트박스 2개, 디비콤보박스 4개, 그리구 디비체크박스 5개..이렇게 되어있는데여...
> 우선 디비에디트박스만 해봤는데 안되거든여..
> 값도 못 넘겨주고..안되는데...
>
> 하얀까마귀 wrote:
> > 안녕하세요 하얀까마귀 입니다...
> >
> > Components 를 이용해 보세요...
> >
> > 이놈은 현재 폼의 콤포넌트 들을 리턴해 줍니다...
> > for i := 0 to self.ComponentCount - 1 do
> > begin
> > if ( self.Components[i] is TEdit ) and
> > (( self.Components[i] as TEdit ).Teg = 1 ) then
> > begin
> > if Length(( self.Components[i] as TEdit ).Text) <= 0 then
> > begin
> > ( self.Components[i] as TEdit ).SetFocus;
> > Exit;
> > end;
> > end;
> > end;
> > 대충 이렇게 하면 되겠네요...
> >
> > 그럼.. 즐거운시간 되세요..
> >
> > - 하얀까마귀 -
> >
> > heimdal wrote:
> > > 입력창이 있습니다..
> > > 입력을 하고 Ok버튼을 누르면 입력했던 내용이 다른 폼에 들어가는 아주 간단한 예제입니다..
> > > 입력이 하나라도 안되어있으면 에러메세지를 뜨게해서 입력이 안된곳을 찾아서 그곳에 포커스를 맞추게 하고싶은데..
> > > try
> > >
> > > except문을 사용해서 간단하게 할수있는 방법이없을까여?
> > >
> > > if문으로 입력이 됐는지 안됐는지 일일이 확인하자니 코딩이 너무 번잡하고 지저분해지더라구여..
> > >
> > > 부탁드립니다..
0
0
삭제
수정
댓글
(NOTICE) You must be
logged in
to comment on this post.
psunk
2000.06.09 21:03
0
COMMENTS
/
0
LIKES
API 함수로 메타파일 인쇄하는 방법.
최 소 영
2000.06.09 20:55
0
COMMENTS
/
0
LIKES
콤포넌트 컴파일시에 다음과같은 에러가..
이재용
•
2000.06.09 20:53
1
COMMENTS
/
0
LIKES
Midas에 대하여.....
하얀까마귀
•
2000.06.09 22:44
안녕하세요 하얀까마귀 입니다.. 음... 이재용님 께서 하실려고 하는건 많은 사람이 아마 생각을 할겁니...
heimdal
•
2000.06.09 20:50
3
COMMENTS
/
0
LIKES
너무 간단한..질문..
입력창이 있습니다.. 입력을 하고 Ok버튼을 누르면 입력했던 내용이 다른 폼에 들어가는 아주 간단한 예제입니다.. 입력이 하나라도 안되어있으면 에러메세지를 뜨게해서 입력이 안된곳을 찾아서 그곳에 포커스를 맞추게 하고싶은데.. try...
하얀까마귀
•
2000.06.09 22:35
안녕하세요 하얀까마귀 입니다... Components 를 이용해 보세요... 이놈은 현재 폼의 콤포넌트 들을 ...
heimdal
•
2000.06.09 23:01
입력창은 다음과 같습니다.. 디비에디트박스 2개, 디비콤보박스 4개, 그리구 디비체크박스 5개..이렇게 되...
하얀까마귀
•
2000.06.09 23:20
안녕하세요 하얀까마귀 입니다.. 음.. 죄송 제가 설명을 빠트린것 같네요.. 아마 소스를 복사를 하신...
강길남
•
2000.06.09 20:38
1
COMMENTS
/
0
LIKES
xls 또는 txt 파일을 ms sql db에 집어넣고 싶어요 ?
타락천사
•
2000.06.09 22:28
안녕하세여.. 타락임다..^^ 흠.. 스키마 화일만 만들면 되는데여...제가 짐 바뻐서 답변할 시간이 없네...
콩
•
2000.06.09 20:21
2
COMMENTS
/
0
LIKES
문자를 문자열로 인식하게 어떻게 하나요?
타락천사
•
2000.06.09 22:29
안녕하세여.. 타락임다..^^ var c : char; s : string; begin s := c; end; 왕초보 타락...
콩
•
2000.06.09 23:05
감사합니다. 근데 델파이는 이렇게도 가능하군요... 신기하당... string이 그냥 char를 받으니까 ...
이천금
•
2000.06.09 19:56
1
COMMENTS
/
0
LIKES
ActiveX Web Deploy 관련
강정한
•
2000.07.29 18:51
이천금 wrote: > * 사용환경 : 델파이4 / Windows NT 4.0 > * 에러 메시지 : > > 안녕하세요. > >...
최은석
•
2000.06.09 19:44
4
COMMENTS
/
0
LIKES
시스템 사용하지않은 시간 계산?
하얀까마귀
•
2000.06.09 22:37
안녕하세요 하얀까마귀 입니다.. 음... 윈도우즈에 훅을 걸어서 타이머로 시간 첵크 하는 방법 밖에 생...
최은석
•
2000.06.09 23:35
하얀까마귀 wrote: > 안녕하세요 하얀까마귀 입니다.. > > 음... 윈도우즈에 훅을 걸어서 타이머로 시...
하얀까마귀
•
2000.06.09 23:43
안녕하세요 하얀까마귀 입니다.. 음.. 죄송합니다.. 확인해 보니 한델이 아니고 델코네요... 죄송.. ...
타락천사
•
2000.06.09 22:36
안녕하세여..타락임다..^^ 흠.. 아무도 답변이 없네여..ㅠㅠ 다덜 바쁘신가? 피곤하신가? 저두 ...
어린왕자
•
2000.06.09 19:37
2
COMMENTS
/
0
LIKES
쫌..궁금한게 있는 데요..연결프로그램에 관계된..질문
어린왕자
•
2000.06.09 19:53
답변..감사합니다... 음.. 저가 궁금한건.. 먼저..자동으로 연결프로그램이 설정되게 하는 것이구요...
하얀까마귀
•
2000.06.09 21:54
안녕하세요 하얀까마귀 입니다.. 설명은 생략하구 간단하게 말씀드릴께요.. 우선 연결은 레지스트리...
임병우
•
2000.06.09 19:32
1
COMMENTS
/
0
LIKES
<질문> 메세지를 항상 위에 띄우는 방법~~
왕초
•
2000.06.10 00:24
왕초보가....!! MessageBox(0,' 내용을 수정 하시겠읍니까?. ','실행확인??',MB_ICONQUESTION ...
김주현
2000.06.09 19:21
0
COMMENTS
/
0
LIKES
DBGrid-row-꼭 갈켜주세염 부탁이예요!!!
이은경
2000.06.09 19:18
0
COMMENTS
/
0
LIKES
StringGrid의 내용을 Excel로 보내고 싶은데요..
히지니
•
2000.06.09 19:13
1
COMMENTS
/
0
LIKES
[급함돠]web에서 ActiveX QuickReport Preview 올리기 질문.
히지니
•
2000.06.13 01:48
히지니 wrote: > 음... > 근께... > 제목 그대로예...ocx를 만드는데... ActiveFormX에서 서버랑... > ...
어린왕자
•
2000.06.09 19:01
1
COMMENTS
/
0
LIKES
머가 잘못된건지 도저히 모르겠습니다.
최용일
•
2000.06.09 20:14
안녕하세요. 최용일입니다. ComponentCount가 아니라 ControlCount를 써야해요. ComponentCount는 자...
임병우
2000.06.09 18:11
0
COMMENTS
/
0
LIKES
<질문>NMMSGServ, NMMsg 조언을 부탁!
박준하
•
2000.06.09 18:03
2
COMMENTS
/
0
LIKES
Components의 image가 섞여서 보여요
비룡득주
•
2000.06.10 17:50
안녕하세요!! 지금은 해결을 하셨는지 모르겠군여!! 저도 이문제 땜시 이틀동안 무려 Delphi를 20번도 더...
parkisu
•
2000.06.10 06:16
박준하 wrote: > Delphi5.0을 설치해서 작업을 하려고 하는데 > Components의 image가 원래의 image로 나...
강경신
2000.06.09 12:52
0
COMMENTS
/
0
LIKES
while문....
송인표
•
2000.06.09 11:10
3
COMMENTS
/
0
LIKES
키(KEY)는 유일한값인가요....??????읽어봐주세요~!~
하얀까마귀
•
2000.06.09 12:24
안녕하세요 하얀까마귀 입니다.. 음.. 답변이라고 하기보다 의견이라고 해야 겠네요.. 키는 당연히 ...
송인표
•
2000.06.09 12:46
답변 고맙습니다. 그냥 델파이4.0에서 BDE5.0을 써서 구현했죠.. 멀티게시판을 구현한것까진 좋았은데.. ...
하얀까마귀
•
2000.06.09 19:17
안녕하세요 하얀까마귀 입니다.. 음... 전 고수가 아니라서 명쾌한 답변은 못드리겠구... 우선.. 디...
최용락
•
2000.06.09 10:31
1
COMMENTS
/
0
LIKES
Active-X를 만들수 있나요?
조규춘
•
2000.06.09 13:08
최용락 wrote: > Delphi 응용프로그램을 web-Browsor 상에서 나오게 하는 방법이 있나요? 보통 activ...
[델파이]
•
2000.06.09 09:29
3
COMMENTS
/
0
LIKES
소스와 함께 에러메세지 해석좀..
장지용
•
2000.06.09 09:49
for i:=0 to Han.Count do => for i:=0 to Han.Count - 1 do 로 바꾸면 될듯한데요... [델파이] ...
[델파이]
•
2000.06.09 09:55
저기요 for i:=0 to Han.Count - 1 do 이렇게 하니까 되더라구요, 감사합니다. 근데요? " - 1 " 이 왜 ...
나그네
•
2000.06.09 11:58
지나가다 적습니다. 숫자를 생각하시면 될것 같네요. 0 부터 시작했으니 당연히 -1 이 들어가야 겠지요...
heimdal
2000/06/09 20:50
Views
224
Likes
0
Comments
3
Reports
0
Tag List
수정
삭제
목록으로
한델 로그인 하기
로그인 상태 유지
아직 회원이 아니세요? 가입하세요!
암호를 잊어버리셨나요?
Components 를 이용해 보세요...
이놈은 현재 폼의 콤포넌트 들을 리턴해 줍니다...
for i := 0 to self.ComponentCount - 1 do
begin
if ( self.Components[i] is TEdit ) and
(( self.Components[i] as TEdit ).Teg = 1 ) then
begin
if Length(( self.Components[i] as TEdit ).Text) <= 0 then
begin
( self.Components[i] as TEdit ).SetFocus;
Exit;
end;
end;
end;
대충 이렇게 하면 되겠네요...
그럼.. 즐거운시간 되세요..
- 하얀까마귀 -
heimdal wrote:
> 입력창이 있습니다..
> 입력을 하고 Ok버튼을 누르면 입력했던 내용이 다른 폼에 들어가는 아주 간단한 예제입니다..
> 입력이 하나라도 안되어있으면 에러메세지를 뜨게해서 입력이 안된곳을 찾아서 그곳에 포커스를 맞추게 하고싶은데..
> try
>
> except문을 사용해서 간단하게 할수있는 방법이없을까여?
>
> if문으로 입력이 됐는지 안됐는지 일일이 확인하자니 코딩이 너무 번잡하고 지저분해지더라구여..
>
> 부탁드립니다..