Q&A
- 이런 애러 아시는분..
Cannot focus a disabled or invisible window.
PageControl을 써서여(1~6까지 6개가 있거든여)내용을 입력받아서
저장을 하는건데여... 등록할때 체크 하는것이 있거든여 근데 거기에서 애러가..TT
function FormsItemValidateCheckProc(RcvForm: TForm): BOOLEAn;
Var
ItemCount : Integer;
begin
Result := FALSE;
ErrString := NullMover;
With TForm(RcvForm) Do
begin
for ItemCount := 0 to ComponentCount-1 Do
begin
if Components[ItemCount] is TEdit then
if TEdit(Components[ItemCount]).Tag = 9 then
if TEdit(Components[ItemCount]).Text = NullMover then
begin
Beeper(3); Result := FALSE;
ErrString := TEdit(Components[ItemCount]).Hint;
ActiveControl := TEdit(Components[ItemCount]);
Exit;
** end; //계속 넘어가다가 여기에서 애러가 나거든여...
if Components[ItemCount] is TComboBox then
if TComboBox(Components[ItemCount]).Tag = 9 then
if TComboBox(Components[ItemCount]).Text = NullMover then
begin
Beeper(3); Result := FALSE;
ErrString := TComboBox(Components[ItemCount]).Hint;
ActiveControl := TComboBox(Components[ItemCount]);
Exit;
end;
end;
Result := TRUE;
end;
end;
무신 애러인지 좀 알려주세여...
PageControl을 써서여(1~6까지 6개가 있거든여)내용을 입력받아서
저장을 하는건데여... 등록할때 체크 하는것이 있거든여 근데 거기에서 애러가..TT
function FormsItemValidateCheckProc(RcvForm: TForm): BOOLEAn;
Var
ItemCount : Integer;
begin
Result := FALSE;
ErrString := NullMover;
With TForm(RcvForm) Do
begin
for ItemCount := 0 to ComponentCount-1 Do
begin
if Components[ItemCount] is TEdit then
if TEdit(Components[ItemCount]).Tag = 9 then
if TEdit(Components[ItemCount]).Text = NullMover then
begin
Beeper(3); Result := FALSE;
ErrString := TEdit(Components[ItemCount]).Hint;
ActiveControl := TEdit(Components[ItemCount]);
Exit;
** end; //계속 넘어가다가 여기에서 애러가 나거든여...
if Components[ItemCount] is TComboBox then
if TComboBox(Components[ItemCount]).Tag = 9 then
if TComboBox(Components[ItemCount]).Text = NullMover then
begin
Beeper(3); Result := FALSE;
ErrString := TComboBox(Components[ItemCount]).Hint;
ActiveControl := TComboBox(Components[ItemCount]);
Exit;
end;
end;
Result := TRUE;
end;
end;
무신 애러인지 좀 알려주세여...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 최정원
- •
- 2001.03.17 18:44
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.03.17 19:43최정원 wrote: > 안녕하세요. > > MS-SQL을 사용하고 있습니다. > 데이타베이스에 있는 테이블명을 변...
-
- Hwani
- 2001.03.17 17:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 강호수
- •
- 2001.03.17 11:04
- 1 COMMENTS
- /
- 0 LIKES
-
서성호•2001.03.17 18:12강호수 wrote: > TEdit에서 Enter를 치면 소리가 나는데 안나게 하는 방법이 기억이 아나요. > > 어떻...
-
- 조병민
- •
- 2001.03.17 10:16
- 2 COMMENTS
- /
- 0 LIKES
-
조병민•2001.03.21 01:37조병민 wrote: 해결방법은 편법이지만.... 웹모듈에다 table을 하나 갖다 놓고 Query 대신에 Table로 수...
-
장재혁•2001.03.18 01:49만약에 EditPname :TEdit; MemoP :TMemo; 라면 Parambyname('p1').AsString := EditPname.Text...
-
- 델사랑
- •
- 2001.03.17 10:11
- 2 COMMENTS
- /
- 0 LIKES
-
남충희•2001.03.20 06:06팁모아에서 본건데요 수정, 삭제가 가능하다고 하네요... 제가 테스트 해보진 않았지만 될 것 같아요... ...
-
서성호•2001.03.17 18:14델사랑 wrote: > 실행중인 파일을 덥어쓰는 방법이 있습니까? > 윈도우즈 시스템은 공유된 파일이 많...
-
- 아폴론
- 2001.03.17 20:36
- 0 COMMENTS
- /
- 0 LIKES
-
- sonwow
- •
- 2001.03.17 05:36
- 1 COMMENTS
- /
- 0 LIKES
-
명탁•2001.03.17 08:00sonwow wrote: > 스토어프로시져를 결과를 퀵레포트로 출력, 정말 미치겠습니다.. > 물론, i/o파라미터는...
-
- 윤종진
- 2001.03.17 04:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.03.17 05:49
- 1 COMMENTS
- /
- 0 LIKES
-
pleiadez•2001.03.17 09:46제목대로 arg가 file일 경우 full path로 되어야 합니다. 안그럼 exe dir에서 찾고 말겠죠. winexec('C...
-
- 김동수
- •
- 2001.03.17 03:52
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.03.17 19:50김동수 wrote: > 근데 어디서 조정해야하는지.... > 출력내용은 2자인데..셀의 크기가 너무 커요...화면 ...
-
- 착한아이
- 2001.03.17 02:55
- 0 COMMENTS
- /
- 0 LIKES
-
-
kylix•2001.03.17 02:55'='가 와야할 자리에 '('가 있다는 말입니다. 구문을 잘 살펴보세요... 민들레 wrote: > 컴파일러...
-
-
- 이 지연
- •
- 2001.03.17 02:38
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.17 02:54만들때... var MyInfo: TMyInfo; begin New(MyInfo); MyInfo.strTitle := '어쩌구 저쩌구...
-
이 지연•2001.03.17 03:41감사^^
-
- zerodog
- •
- 2001.03.17 02:12
- 1 COMMENTS
- /
- 0 LIKES
Cannot focus a disabled or invisible window. PageControl을 써서여(1~6까지 6개가 있거든여)내용을 입력받아서 저장을 하는건데여... 등록할때 체크 하는것이 있거든여 근데 거기에서 애러가..TT function FormsItemValidateCheckProc(...-
kylix•2001.03.17 02:37그 에러는 Disabled나 Hide된 컨트롤에 포커스를 주려고 할때 나타나는 에러인데요... ActiveControl :...
-
- 박진후
- •
- 2001.03.17 02:04
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.17 07:17안녕하세요. 최용일입니다. ADT(Abstract data types)는 말 그대로 추상적 데이터 타입을 말합니다. ...
-
- 민
- •
- 2001.03.17 02:02
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.17 06:57안녕하세요. 최용일입니다. 아래 사이트들을 둘러보세요... [심동훈님글] OpenGL을 VCL형태로 만든 ...
-
- 델파이초보
- •
- 2001.03.17 01:02
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.03.17 01:18델파이초보 wrote: > 안녕하세요? > 저는 델파이를 공부하는 초보입니다. > 다름이 아니라 RealGrid를 ...
-
- 박성일
- •
- 2001.03.17 00:34
- 3 COMMENTS
- /
- 0 LIKES
-
김동수•2001.03.17 03:21저두 프로그램 작성시 에러몇번 나고 여기저기 손보다보면 비슷한 에러뜬적이 있어여.... 저의 경우 sql.a...
-
박성일•2001.03.23 03:47답변감사합니다.. 서버는 램이 1기가인데....메모리가 부족하다는게..... 그리고 프로그램이 잘 돌다가.....
-
감초•2001.04.03 03:57만약 처음에 잘 돌다가 어느 정도 시간이 지나서 생기는 문제점이라면 일단 프로그램 어딘가에서 메모리를 ...
-
- 김동수
- •
- 2001.03.17 00:29
- 2 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.03.17 01:04김동수 wrote: > 제어문으로 SQL문장을 추가 삭제 해주어서 제어했습니다. > 근데 디폴트로 현재 시스템 ...
-
김동수•2001.03.17 03:11감사합니다.
-
- 김동수
- •
- 2001.03.17 00:16
- 1 COMMENTS
- /
- 0 LIKES
-
김정삼•2001.03.17 00:23김동수 wrote: > vcl을 로드할수가 없데요...그리구 IDAPI가 없다는거 같은데 IDAPI가 뭔지 아시는분 답변...
ActiveControl := TEdit(......);
ActiveControl := TComboBox(......);
<====== 이 부분에서 나는거 같군요...
위 둘중의 하나의 컨트롤에서 그 포커스를 줄 수 없는경우가 있을겁니다. 그 컨트롤이
Disalbed되어 있으면 Enabled로 바꾸신후에 포커스를 주시구요. Hide되어 있다면 Show하
신뒤에 포커스를 주세요...
zerodog wrote:
> Cannot focus a disabled or invisible window.
> PageControl을 써서여(1~6까지 6개가 있거든여)내용을 입력받아서
> 저장을 하는건데여... 등록할때 체크 하는것이 있거든여 근데 거기에서 애러가..TT
> function FormsItemValidateCheckProc(RcvForm: TForm): BOOLEAn;
> Var
> ItemCount : Integer;
> begin
> Result := FALSE;
> ErrString := NullMover;
>
> With TForm(RcvForm) Do
> begin
> for ItemCount := 0 to ComponentCount-1 Do
> begin
> if Components[ItemCount] is TEdit then
> if TEdit(Components[ItemCount]).Tag = 9 then
> if TEdit(Components[ItemCount]).Text = NullMover then
> begin
> Beeper(3); Result := FALSE;
> ErrString := TEdit(Components[ItemCount]).Hint;
> ActiveControl := TEdit(Components[ItemCount]);
> Exit;
> ** end; //계속 넘어가다가 여기에서 애러가 나거든여...
>
> if Components[ItemCount] is TComboBox then
> if TComboBox(Components[ItemCount]).Tag = 9 then
> if TComboBox(Components[ItemCount]).Text = NullMover then
> begin
> Beeper(3); Result := FALSE;
> ErrString := TComboBox(Components[ItemCount]).Hint;
> ActiveControl := TComboBox(Components[ItemCount]);
> Exit;
> end;
> end;
> Result := TRUE;
> end;
> end;
>
> 무신 애러인지 좀 알려주세여...