Q&A
- Access Violation Error 문제좀 해결해주세요 !
코딩은 아래와 같습니다.
procedure TfMachine.Edit1Enter(Sender: TObject);
var
I : Integer;
begin
for I := 0 to ComponentCount - 1 do begin
If TShape(Components[i]).Tag = (Sender as TEdit).Tag Then
TShape(Components[i]).Brush.Color := clRed
else
TShape(Components[i]).Brush.Color:= clYellow;
end;
end;
제가 하려는 것은 각 Edit 앞에 Shape로 원형을 만들어 두고
서로 같은 Tag값을 준후 특정Edit에 Enter시 해당 Edit앞에 있는 Shape의 색깔을 변경해주려 합니다.
한폼의 edit의 text를 모두 clear할때 아래와 같이 한적이 있어 좀 응용을 한 것인데
Access에러가 자꾸 나네요.
for i := 0 to componentcount - 1 do begin
if components[i] is TEdit then begin
TEdit(Components[i]).Clear;
end
end;
위의 코딩에 잘못된것이 있는지 알려주세요.
procedure TfMachine.Edit1Enter(Sender: TObject);
var
I : Integer;
begin
for I := 0 to ComponentCount - 1 do begin
If TShape(Components[i]).Tag = (Sender as TEdit).Tag Then
TShape(Components[i]).Brush.Color := clRed
else
TShape(Components[i]).Brush.Color:= clYellow;
end;
end;
제가 하려는 것은 각 Edit 앞에 Shape로 원형을 만들어 두고
서로 같은 Tag값을 준후 특정Edit에 Enter시 해당 Edit앞에 있는 Shape의 색깔을 변경해주려 합니다.
한폼의 edit의 text를 모두 clear할때 아래와 같이 한적이 있어 좀 응용을 한 것인데
Access에러가 자꾸 나네요.
for i := 0 to componentcount - 1 do begin
if components[i] is TEdit then begin
TEdit(Components[i]).Clear;
end
end;
위의 코딩에 잘못된것이 있는지 알려주세요.
(NOTICE) You must be logged in to comment on this post.
-
- 초보
- 2001.03.31 00:40
- 0 COMMENTS
- /
- 0 LIKES
-
- cell
- •
- 2001.03.31 00:33
- 2 COMMENTS
- /
- 0 LIKES
코딩은 아래와 같습니다. procedure TfMachine.Edit1Enter(Sender: TObject); var I : Integer; begin for I := 0 to ComponentCount - 1 do begin If TShape(Components[i]).Tag = (Sender as TEdit).Tag Then TShape(Components[i]).Bru...-
델놈•2001.03.31 02:14cell wrote: > 코딩은 아래와 같습니다. > procedure TfMachine.Edit1Enter(Sender: TObject); > var >...
-
cell•2001.03.31 03:45
-
- @^^@
- 2001.03.31 00:23
- 0 COMMENTS
- /
- 0 LIKES
-
-
감초•2001.03.30 23:53TQuery에서 Calculated Field를 추가해서 만드심 됩니다. sky wrote: > SQL 질문을 하나 하려고요.. >...
-
-
- 강혜승
- 2001.03.30 23:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 전기봉
- 2001.03.30 23:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 이은정
- •
- 2001.03.30 23:03
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2001.03.30 23:27크..저는 이런 허접팁만 올리네엽.. 스위스쪽 델파이관련사이트에서 건져올렸음다.. 혹시나해서 테스트해...
-
- 나지영
- •
- 2001.03.30 22:34
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.03.31 01:00yo` 흠... 당욘히 안돼지요...-_-;; 델파이로 만든건 윈도계열의 운영체제에서만 돌아갑니다. 리눅스...
-
- Heyyou
- 2001.03.30 22:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 호야
- •
- 2001.03.30 22:04
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.30 22:20안녕하세요. 최용일입니다. TForm.Visible속성을 체크하세요. 이게 True이면 폼이 화면상에 보이는 경우...
-
Heyyou•2001.03.30 22:20> Api 함수인 FindWindow를 이용하세요 > var > ret : HWND; > > ret := FindWindow(nil,'web'); ...
-
- 궁그미~
- •
- 2001.03.30 21:31
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.30 22:27안녕하세요. 최용일입니다. 이진수는 스트링이겠죠. 델파이는 이진수를 지원을 안하니까... 이진수스트...
-
- 정용광
- •
- 2001.03.30 20:57
- 1 COMMENTS
- /
- 0 LIKES
-
창돌•2001.03.30 22:08안녕하세요 저도 초보라 잘은 모르지만. 닐(nil) 값을 넣으면 되지 않을까요? for case 1 : ...
-
- 델초보
- •
- 2001.03.30 20:19
- 1 COMMENTS
- /
- 0 LIKES
-
감초•2001.03.30 23:59DBGrid의 모든 값들은 그 그리드의 데디다소스로 하고 있는 TQuery나 TTable의 자료입니다. 그러므로 TQu...
-
- 델돌이
- 2001.03.30 20:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 델돌이
- 2001.03.30 19:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 또 궁금이
- •
- 2001.03.30 20:21
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2001.03.30 22:55오라클의 객체를 사용하신것 같습니다... 잘은 모르지만 객체생성... create or replace tyep test1 ...
-
- sonwow
- •
- 2001.03.30 19:26
- 1 COMMENTS
- /
- 0 LIKES
-
명탁•2001.03.31 00:53sonwow wrote: > IBexpress를 안쓰고 BDE로 작업을 했는데, 클라이언트의 BDE연결 방법 > 급합니다.........
-
- 한보람
- •
- 2001.03.30 19:14
- 4 COMMENTS
- /
- 0 LIKES
-
감초•2001.03.31 00:09만약 이거 재미로 한번 해 보는 것이 아니라 진짜로 사용될 프로그램이라면 제가 권하는 것은 절대 파라닥...
-
..•2001.03.30 20:14저는 첫번째 방법을 권합니다. 2만개 정도의 데이타이면 인덱스만 잘 만들면 검색하는데 별로 시간이 안 ...
-
델놈•2001.03.30 19:44한보람 wrote: > 안녕하세요, 델파이를 시작한지 일주일정도 되는 초보입니다. > PC상에서 구현되는 작...
-
한보람•2001.03.30 20:22델놈 wrote: > 한보람 wrote: > > 안녕하세요, 델파이를 시작한지 일주일정도 되는 초보입니다. > > PC...
-
- 주길성
- •
- 2001.03.30 18:42
- 1 COMMENTS
- /
- 0 LIKES
-
델놈•2001.03.30 19:51주길성 wrote: > 안녕하세요... > 전.. 아직 초보라 거른지.. 많은것이 서툴러서.. > 우선 영진출판사에...
-
- 철
- •
- 2001.03.30 18:34
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.30 22:12안녕하세요. 최용일입니다. 스트링그리드에서 에디트할때는 자체적으로 하는 것이 아니라 TInplaceEdit...
> 코딩은 아래와 같습니다.
> procedure TfMachine.Edit1Enter(Sender: TObject);
> var
> I : Integer;
> begin
> for I := 0 to ComponentCount - 1 do begin
> If TShape(Components[i]).Tag = (Sender as TEdit).Tag Then
> TShape(Components[i]).Brush.Color := clRed
> else
> TShape(Components[i]).Brush.Color:= clYellow;
> end;
> end;
>
> 제가 하려는 것은 각 Edit 앞에 Shape로 원형을 만들어 두고
> 서로 같은 Tag값을 준후 특정Edit에 Enter시 해당 Edit앞에 있는 Shape의 색깔을 변경해주려 합니다.
>
> 한폼의 edit의 text를 모두 clear할때 아래와 같이 한적이 있어 좀 응용을 한 것인데
> Access에러가 자꾸 나네요.
> for i := 0 to componentcount - 1 do begin
> if components[i] is TEdit then begin
> TEdit(Components[i]).Clear;
> end
> end;
>
> 위의 코딩에 잘못된것이 있는지 알려주세요.
>
>
>
procedure TfMachine.Edit1Enter(Sender: TObject);
var
I : Integer;
begin
for I := 0 to ComponentCount - 1 do begin
if not(Components[i] is TShape) then continue; <---요기가 빠졌네요.
If TShape(Components[i]).Tag = (Sender as TEdit).Tag Then
TShape(Components[i]).Brush.Color := clRed
else
TShape(Components[i]).Brush.Color:= clYellow;
end;
end;
그럼, 즐코