Q&A
- DBEdit에서 커서가 가면 색깔을 바꾸려고 하는데...
초보 인사합니다...꾸벅
다름이 아니라 DBEdit에서 커서가 들어가면 바탕색과 글자폰트를 바꾸고 나가면 원래의 색으로 복귀하는 것을 만드는데 아래있는 에러메세지가 뜨는군요..
"[Warning] GuRaeChuprg.prg[133]:Variable 'Name1'might not have been initialized"
Var
EditColor1,Edit2Color : Integer; <--- 전역변수
procedure TGuRaeChuForm.Edit1Enter(Sender: TObject);
Var
Name1 : TDbedit; <--- 요놈 전역변수쓰면 에러가 나서 지역번수로 씀..
begin
EditColor1 := Name1.Color; <--- 기존의 색을 변수에 저장하고
EditColor2 := Name1.Font.Color;
Name1.Color := $005E2F00;
Name1.Font.Color := clYellow;
end;
procedure TGuRaeChuForm.Edit1Exit(Sender: TObject);
Var
Name1 : TDbedit;
begin
Name1.Color := EditColor1; <--- 커서가 나갈때 저장된 변수의 값을 다시 복귀함
Name1.Font.Color := EditColor2;
end;
위의 프로그램은 아무이상없시 작동은 되지만 뭔가 꺼림직하군요..
고수님들의 조언 부탁합니다.. 꾸벅
다름이 아니라 DBEdit에서 커서가 들어가면 바탕색과 글자폰트를 바꾸고 나가면 원래의 색으로 복귀하는 것을 만드는데 아래있는 에러메세지가 뜨는군요..
"[Warning] GuRaeChuprg.prg[133]:Variable 'Name1'might not have been initialized"
Var
EditColor1,Edit2Color : Integer; <--- 전역변수
procedure TGuRaeChuForm.Edit1Enter(Sender: TObject);
Var
Name1 : TDbedit; <--- 요놈 전역변수쓰면 에러가 나서 지역번수로 씀..
begin
EditColor1 := Name1.Color; <--- 기존의 색을 변수에 저장하고
EditColor2 := Name1.Font.Color;
Name1.Color := $005E2F00;
Name1.Font.Color := clYellow;
end;
procedure TGuRaeChuForm.Edit1Exit(Sender: TObject);
Var
Name1 : TDbedit;
begin
Name1.Color := EditColor1; <--- 커서가 나갈때 저장된 변수의 값을 다시 복귀함
Name1.Font.Color := EditColor2;
end;
위의 프로그램은 아무이상없시 작동은 되지만 뭔가 꺼림직하군요..
고수님들의 조언 부탁합니다.. 꾸벅
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- EzyRyder
- 2001.07.19 00:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 갱민이
- 2001.07.18 23:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 강동길
- 2001.07.18 23:26
- 0 COMMENTS
- /
- 0 LIKES
-
-
사발우성•2001.07.18 23:52간단하게 생각 하면 되는거 아닌가엽 ^^;; while not eof do begin label1.caption := inttostr(i);...
-
chobo•2001.07.19 00:41사발우성 wrote: > 간단하게 생각 하면 되는거 아닌가엽 ^^;; > while not eof do > begin > label...
-
사발우성•2001.07.19 01:55chobo wrote: > 사발우성 wrote: > > 간단하게 생각 하면 되는거 아닌가엽 ^^;; > > while not eof do ...
-
얼음사탕•2001.07.19 01:41> > while not eof do > > begin > > label1.caption := inttostr(i); > > i := i + 1; Ap...
-
-
- 궁금이!
- 2001.07.18 22:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 초봅
- 2001.07.18 22:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 정종섭
- •
- 2001.07.18 22:29
- 1 COMMENTS
- /
- 0 LIKES
-
김병식•2001.07.19 09:04소스를 보니깐 10진수를 16진수 문자열로 변환하는 함수네요. 먼저 진수 변환에 대해서 알아야 합니다. 자...
-
- 전준형
- •
- 2001.07.18 21:25
- 1 COMMENTS
- /
- 0 LIKES
-
델맨•2001.07.18 22:40전준형 wrote: > 제목이 좀 이상하네요...-.-;;; > 제가 하고 싶은건... > 하나의 record를 정의 해 놓...
-
- 최지훈
- •
- 2001.07.18 21:15
- 2 COMMENTS
- /
- 0 LIKES
-
아줌마•2001.09.11 20:28최지훈 wrote: > ////////////////////////////////////////////////////////////////////////////////// ...
-
아줌마•2001.09.11 19:21어찌하여,,,에러가.. 정확히 class를 사용해 본적이 없어서요.. 헝헝..excel은 무조건 죽여야 하구여.. ...
-
- 델초보
- 2001.07.18 20:52
- 0 COMMENTS
- /
- 0 LIKES
-
- xxx
- •
- 2001.07.18 19:36
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.07.18 20:58에러메세지 올려주세요
-
- 석이
- •
- 2001.07.18 19:14
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.07.18 21:02컴포넌트 생성후 아래와 같이 기존 이벤트 프로시져에 할당해보세요 QuickReport1.OnNeedData := MyProc...
-
- 윤재성
- 2001.07.18 18:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 김경완
- 2001.07.18 13:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진호
- 2001.07.18 10:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.07.18 05:40
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.07.18 21:07파라미터를 미리 생성하신거 같은데 맞나요? 혹시 SQL 문장내에서만 사용하신거 아니죠? 참고로 제가 ...
-
- 왕초보
- 2001.07.18 05:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.07.18 05:14
- 1 COMMENTS
- /
- 0 LIKES
초보 인사합니다...꾸벅 다름이 아니라 DBEdit에서 커서가 들어가면 바탕색과 글자폰트를 바꾸고 나가면 원래의 색으로 복귀하는 것을 만드는데 아래있는 에러메세지가 뜨는군요.. "[Warning] GuRaeChuprg.prg[133]:Variable 'Name1'might...-
ㅏㅔㅔ•2001.07.18 08:37/////////// 이렇게 함 해보세요.... Var color1,color2 : tcolor; 초보 인사합니다...꾸벅 >...
-
- 조성택
- 2001.07.18 01:50
- 0 COMMENTS
- /
- 0 LIKES
-
- [초보]
- 2001.07.17 22:15
- 0 COMMENTS
- /
- 0 LIKES
Var
color1,color2 : tcolor; <--- 전역변수
procedure TGuRaeChuForm.Edit1Enter(Sender: TObject);
begin
color1:=Tedit(sender).color;
color2:=Tedit(sender).font.color;
Tedit(sender).color:=clyellow;
Tedit(sender).font.color:=clred;
end;
procedure TGuRaeChuForm.Edit1Exit(Sender: TObject);
begin
Tedit(sender).color:=color1;
Tedit(sender).font.color:=color2;
end;
////////지금 피시방이라서 코딩이 맞는지 모르겠네요.
왕초보 wrote:
> 초보 인사합니다...꾸벅
>
> 다름이 아니라 DBEdit에서 커서가 들어가면 바탕색과 글자폰트를 바꾸고 나가면 원래의 색으로 복귀하는 것을 만드는데 아래있는 에러메세지가 뜨는군요..
>
> "[Warning] GuRaeChuprg.prg[133]:Variable 'Name1'might not have been initialized"
>
> Var
> EditColor1,Edit2Color : Integer; <--- 전역변수
>
>
> procedure TGuRaeChuForm.Edit1Enter(Sender: TObject);
> Var
> Name1 : TDbedit; <--- 요놈 전역변수쓰면 에러가 나서 지역번수로 씀..
> begin
> EditColor1 := Name1.Color; <--- 기존의 색을 변수에 저장하고
> EditColor2 := Name1.Font.Color;
> Name1.Color := $005E2F00;
> Name1.Font.Color := clYellow;
>
>
> end;
>
> procedure TGuRaeChuForm.Edit1Exit(Sender: TObject);
> Var
> Name1 : TDbedit;
> begin
> Name1.Color := EditColor1; <--- 커서가 나갈때 저장된 변수의 값을 다시 복귀함
> Name1.Font.Color := EditColor2;
> end;
>
> 위의 프로그램은 아무이상없시 작동은 되지만 뭔가 꺼림직하군요..
> 고수님들의 조언 부탁합니다.. 꾸벅
>