Q&A
- StringGrid에 Mask 기능 구현 어캐 해영?
스트링그리드에 어떤셀에 이기능을 구현 하고 싶습니다.
예를 들어
날짜를
2001-01-01 라는 식으로 "-"을 넣는다는지.
임의의 코드
ABC-_____-__ 식으로 "ABC"문자열과 "-"을 스트링그리드 특정셀에다 위치 하고 싶습니다.
그래서 입력하면..
쉽게 말해서 스트링 그리드에 MASK 구현을 하고 싶습니다.
어떻게 하는지 도와 주십시오.
예를 들어
날짜를
2001-01-01 라는 식으로 "-"을 넣는다는지.
임의의 코드
ABC-_____-__ 식으로 "ABC"문자열과 "-"을 스트링그리드 특정셀에다 위치 하고 싶습니다.
그래서 입력하면..
쉽게 말해서 스트링 그리드에 MASK 구현을 하고 싶습니다.
어떻게 하는지 도와 주십시오.
2
COMMENTS
-
-
안녕하세요...
GetEditMask 말고 DrawCell에 직접 포맷을 정의 하심이 어떨런지요...아래와 같이 말입나다.
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
F : Extended;
DataInString : string;
ErrCode : integer;
begin
with TStringGrid( Sender).Canvas do
begin
DataInString := TStringGrid( Sender).Cells[ ACol, ARow];
Val( DataInString, F, ErrCode);
if ErrCode = 0 then
begin
DataInString := FormatFloat( '####-##-##', F);
end;
FillRect( Rect);
TextRect( Rect, Rect.Right - TextWidth( DataInString) - 3, Rect.Top + 4, DataInString);
Pen.Width := 1;
end
end;
그럼 수고하세요...
늘초보 wrote:
> procedure Tform1.StringGrid1GetEditMask(Sender: TObject; ACol,
> ARow: Integer; var Value: String);
> var
> i : integer;
> begin
> for i := 1 to gs_StgRowCnt do
> begin
> if ACol = '' then
> begin
> Value := '!ABC-000000-00;1';
> end;
> end;
> end;
> OnGetEditMask이벤트에 다음과 같이 적으니깐 되더군요.
> 여기서 gs_StgRowCnt는 전역 변수로서 다른곳에서 스트링그리드의 rowcount를 받은값임다.
>
> 마스크 기능은 완벽하게 되는데...
> 스트링그리드가 포함된 폼이 뜨면 바로 나와야 하는데...
> 폼이 생성되면 아무것도 없다가 해당 Cell(즉 1, i계열)을 더블 클릭 하면
> 마스트 형식의 구문이 나오더군요.
> 이넘을 첨 폼이 생성되자 마자 마스트된 셀을 볼수는 없을까요..
> 조언좀 부탁 드립니다.
>
>
> 늘초보 wrote:
> > 스트링그리드에 어떤셀에 이기능을 구현 하고 싶습니다.
> > 예를 들어
> > 날짜를
> > 2001-01-01 라는 식으로 "-"을 넣는다는지.
> > 임의의 코드
> > ABC-_____-__ 식으로 "ABC"문자열과 "-"을 스트링그리드 특정셀에다 위치 하고 싶습니다.
> > 그래서 입력하면..
> > 쉽게 말해서 스트링 그리드에 MASK 구현을 하고 싶습니다.
> > 어떻게 하는지 도와 주십시오.
(NOTICE) You must be logged in to comment on this post.
-
- 수퍼초보
- 2001.10.18 00:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.10.18 00:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 델프리
- •
- 2001.10.18 00:07
- 1 COMMENTS
- /
- 0 LIKES
-
지나는이•2001.10.19 09:43델프리 wrote: > > 지금 웹브라우져를 만들고 있는데 너무너무 어렵네요. > > 좋은 책이나 좋은 사이...
-
- 정계훈
- •
- 2001.10.18 05:17
- 3 COMMENTS
- /
- 0 LIKES
-
정계훈•2001.10.18 01:02나이는 연령대로 범위인데 코드는 어떻게 되나요? 그러니깐, 도표위에 보이는것처럼 코드10(A) 코...
-
정계훈•2001.10.18 01:29해답을 찾기 위해 고생많이 하셨다고 하셨는데, 명확한 답이 되었는지 모르겠네요... 제가 넘 대충 적었는...
-
김광재•2001.10.18 01:32냉무
-
- 왕초보
- •
- 2001.10.17 23:41
- 1 COMMENTS
- /
- 0 LIKES
-
정계훈•2001.10.18 00:17안녕하세요. 아래와 같은 방법은 어떤가요... Image1.Picture.Assign(nil); 그럼 수고하세요... ...
-
- 한현정
- 2001.10.17 23:40
- 0 COMMENTS
- /
- 0 LIKES
-
- elechos
- •
- 2001.10.17 23:38
- 1 COMMENTS
- /
- 0 LIKES
-
델초야~•2001.10.18 20:35elechos wrote: > DBgrid 상에서 입력을 하고 저장하는 루틴을 테스트하는 중에 있습니다. 레코드는 네개...
-
- sunny
- •
- 2001.10.17 23:30
- 2 COMMENTS
- /
- 0 LIKES
-
델초야~•2001.10.18 20:39sunny wrote: > 안녕하세요... > var > RSum, RS : single; > C1 : integer; > > RS := RS...
-
정계훈•2001.10.17 23:38간단히 생각해서 소숫점 두자리면 Label1.Caption := Format('%8.2f', [RS]); 소숫점 세자리라...
-
- 이지우
- 2001.10.17 23:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 류신영
- 2001.10.17 22:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이초보
- •
- 2001.10.17 21:09
- 3 COMMENTS
- /
- 0 LIKES
-
남호진•2001.10.17 22:25델파이초보 wrote: > 안녕하세요.. 이렇게 글을 남기는 건 처음이네요.. > 제가 질문하고 싶은 건요.. >...
-
사아랑•2001.10.17 21:14Select * from IPLog where ( ( (D_RR_IP =:SelectedIP) and (D_IR_IP is null) and (D_ER_IP is null) )...
-
델파이초보•2001.10.25 01:59사아랑 wrote: > Select * from IPLog > where ( ( (D_RR_IP =:SelectedIP) and (D_IR_IP is null) and ...
-
- 초록물괴기
- •
- 2001.10.17 21:02
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.18 06:45초록물괴기 wrote: > 같은 동작을 하는 컨포넌트들에게 변수만 넘겨서 쓰고 동작을 시키고 싶은데.. > 컨...
-
- 델초보
- 2001.10.17 20:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 전영미
- •
- 2001.10.17 20:43
- 1 COMMENTS
- /
- 0 LIKES
-
정계훈•2001.10.18 01:36제목만 가지고는 어디가 가려우신지를 잘 모르겠습니다. 좀 더 부연 설명을 해 주시면 속 시원히는 몰라도...
-
- 늘초보
- •
- 2001.10.17 20:11
- 2 COMMENTS
- /
- 0 LIKES
스트링그리드에 어떤셀에 이기능을 구현 하고 싶습니다. 예를 들어 날짜를 2001-01-01 라는 식으로 "-"을 넣는다는지. 임의의 코드 ABC-_____-__ 식으로 "ABC"문자열과 "-"을 스트링그리드 특정셀에다 위치 하고 싶습니다. 그래서 입력하...-
늘초보•2001.10.18 00:12procedure Tform1.StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Integer; var Value: String);...
-
정계훈•2001.10.18 00:29안녕하세요... GetEditMask 말고 DrawCell에 직접 포맷을 정의 하심이 어떨런지요...아래와 같이 말입나...
-
- 지니
- •
- 2001.10.17 20:03
- 1 COMMENTS
- /
- 0 LIKES
-
지니•2001.10.17 21:52고생하다가 찾았습니다. uses 에다가 'qrprntr' 를 추가 하니까 되는군요.
-
- 류신영
- 2001.10.17 20:01
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 정규성
- •
- 2001.10.17 19:44
- 1 COMMENTS
- /
- 0 LIKES
-
델 초보(아줌마)•2001.10.17 20:13정규성 wrote: > query1.sql.clear; > query1.SQL.Add('SELECT * FROM ZCC'); > ...
-
- 제노
- 2001.10.17 19:34
- 0 COMMENTS
- /
- 0 LIKES
ARow: Integer; var Value: String);
var
i : integer;
begin
for i := 1 to gs_StgRowCnt do
begin
if ACol = '' then
begin
Value := '!ABC-000000-00;1';
end;
end;
end;
OnGetEditMask이벤트에 다음과 같이 적으니깐 되더군요.
여기서 gs_StgRowCnt는 전역 변수로서 다른곳에서 스트링그리드의 rowcount를 받은값임다.
마스크 기능은 완벽하게 되는데...
스트링그리드가 포함된 폼이 뜨면 바로 나와야 하는데...
폼이 생성되면 아무것도 없다가 해당 Cell(즉 1, i계열)을 더블 클릭 하면
마스트 형식의 구문이 나오더군요.
이넘을 첨 폼이 생성되자 마자 마스트된 셀을 볼수는 없을까요..
조언좀 부탁 드립니다.
늘초보 wrote:
> 스트링그리드에 어떤셀에 이기능을 구현 하고 싶습니다.
> 예를 들어
> 날짜를
> 2001-01-01 라는 식으로 "-"을 넣는다는지.
> 임의의 코드
> ABC-_____-__ 식으로 "ABC"문자열과 "-"을 스트링그리드 특정셀에다 위치 하고 싶습니다.
> 그래서 입력하면..
> 쉽게 말해서 스트링 그리드에 MASK 구현을 하고 싶습니다.
> 어떻게 하는지 도와 주십시오.