Q&A
- 젤 초보가...
매번 죄송합니다. ㅠ.ㅠ
에디트두개 만들고 에디트1에 1을 넣고 enter를 치면 에디트2에 날짜가 생성되게 하려고 하는데여 제가 실력으론 엔터쳐서 뭔가 생성된다는게 힘들어서여
코딩한건 그냥 참고입니다.
부탁합니다. 넙죽
바보라고 해두 좋아여, 배울수만 있다면,,,
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Text := '1';
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-2) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-1) );
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Text :='2';
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) );
end;
end.
에디트두개 만들고 에디트1에 1을 넣고 enter를 치면 에디트2에 날짜가 생성되게 하려고 하는데여 제가 실력으론 엔터쳐서 뭔가 생성된다는게 힘들어서여
코딩한건 그냥 참고입니다.
부탁합니다. 넙죽
바보라고 해두 좋아여, 배울수만 있다면,,,
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Text := '1';
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-2) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-1) );
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Text :='2';
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) );
end;
end.
3
COMMENTS
-
-
거의 다 하셨구만요.
진짜루 바보는 모르면서 알려구하지 않는 사람이지요.
생각하신 작업을 하실려면 keyDown Event나 KeyPress Event에서 해주셔야 합니다.
keydown시....
if key=vk_return then begin//만일 엔터키를 눌렀다면.....
Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)+1) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)) );
end;
keypress시.....
if key=#13 then begin//만일 엔터키를 눌렀다면.....
Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)+1) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)) );
end;
변수를 하나 쓰시면 코딩이 훨 간편하겠죠?
var
minusMunce : integer;
minusMunce := strtoint(edit1.text); //이런식으루...
keydown 이벤트를 쓰시려면 form의 keypreview를 true로 설정해주셔야 합니다.
모르는게 있으면 재질문주세요.
mickyblue wrote:
> 매번 죄송합니다. ㅠ.ㅠ
> 에디트두개 만들고 에디트1에 1을 넣고 enter를 치면 에디트2에 날짜가 생성되게 하려고 하는데여 제가 실력으론 엔터쳐서 뭔가 생성된다는게 힘들어서여
> 코딩한건 그냥 참고입니다.
> 부탁합니다. 넙죽
> 바보라고 해두 좋아여, 배울수만 있다면,,,
>
> procedure TForm1.Edit1Change(Sender: TObject);
>
> begin
> Edit1.Text := '1';
> end;
>
> procedure TForm1.Edit2Change(Sender: TObject);
>
> begin
> Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-2) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-1) );
> end;
>
> procedure TForm1.Edit1Change(Sender: TObject);
>
> begin
> Edit1.Text :='2';
> end;
>
>
> procedure TForm1.Edit2Change(Sender: TObject);
>
> begin
> Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) );
> end;
>
> end.
-
위의 말씀하고 코딩하고는 어디가 좀 맞지 않는 느낌입니다. 제가 이해를 잘못했나???
암튼...
edit1에서 enter키를 치면 edit2에 날짜를 생성되게 한다는 말씀이죠?
그건 edit1의 keypress나 keydown 이벤트를 이용하세요.
keypress 이벤트라면
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then //눌려진 key가 enterkey이면
edit2.text:=어쩌구 저쩌구.....(실제처리할 내용)
end;
mickyblue wrote:
> 매번 죄송합니다. ㅠ.ㅠ
> 에디트두개 만들고 에디트1에 1을 넣고 enter를 치면 에디트2에 날짜가 생성되게 하려고 하는데여 제가 실력으론 엔터쳐서 뭔가 생성된다는게 힘들어서여
> 코딩한건 그냥 참고입니다.
> 부탁합니다. 넙죽
> 바보라고 해두 좋아여, 배울수만 있다면,,,
>
> procedure TForm1.Edit1Change(Sender: TObject);
>
> begin
> Edit1.Text := '1';
> end;
>
> procedure TForm1.Edit2Change(Sender: TObject);
>
> begin
> Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-2) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-1) );
> end;
>
> procedure TForm1.Edit1Change(Sender: TObject);
>
> begin
> Edit1.Text :='2';
> end;
>
>
> procedure TForm1.Edit2Change(Sender: TObject);
>
> begin
> Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) );
> end;
>
> end.
(NOTICE) You must be logged in to comment on this post.
-
- 봉달
- 2000.09.29 02:13
- 0 COMMENTS
- /
- 0 LIKES
-
- Cha
- •
- 2000.09.29 01:45
- 1 COMMENTS
- /
- 0 LIKES
-
...•2000.09.29 03:10Cha wrote: > Cardinal을 스트링이나 PChar로 형변환 하구 시포여.. > 꼬옥 답해 주세염.. 어차피 Int...
-
- 맹주형
- 2000.09.29 01:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 김경태
- 2000.09.29 01:03
- 0 COMMENTS
- /
- 0 LIKES
-
- godurum
- •
- 2000.09.29 00:46
- 3 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.09.29 01:00godurum wrote: > 문장을 입력하다가 문장중에 '가 없게 하려고 하는데 어떻게 해야 할지 > > 모르겠내...
-
구창민•2000.09.29 00:51godurum wrote: > 문장을 입력하다가 문장중에 '가 없게 하려고 하는데 어떻게 해야 할지 > > 모르겠내...
-
어린왕자•2000.09.29 00:50godurum wrote: > 문장을 입력하다가 문장중에 '가 없게 하려고 하는데 어떻게 해야 할지 > > 모르겠내...
-
- 김경태
- 2000.09.29 00:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 델포이
- •
- 2000.09.29 00:32
- 5 COMMENTS
- /
- 0 LIKES
-
바보감자(델포이)•2000.09.29 08:16정말 감사합니다. ㅠ.ㅠ 맘착하신분들이 정말 너무너무 많아서 기뻐여~~~~~~~ 언제나 좋은 시간.. 음....
-
mafioso•2000.09.29 03:53고생이 많쿠만요... 내용을 보아하니 특정제품의 투여량을 명세와 함께 투여량누계까지 보여주는 것 ...
-
...•2000.09.29 02:47디비 종류가 뭔가요??? 로컬이 아니라면 InLineView를 사용하실수 있을껀데.... 맞는지는 모르겠지...
-
사발우성•2000.09.29 01:20엄청 초보 사발임당... xxx 까쥐는 계산필드로 할수 있게는디 jjj는 어렵네여 ^^ select a,b,c,d,(a...
-
성호종•2000.09.29 00:38델포이 wrote: 조인보다는 calc필드를 사용하시는게 좋을듯... > 안녕하세요.. > 정말 델고수분들께...
-
- 유수
- 2000.09.29 00:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성중
- •
- 2000.09.29 00:23
- 2 COMMENTS
- /
- 0 LIKES
-
유수•2000.09.29 00:33김성중 wrote: > 델파이를 이용해서 DLL을 만드려 하고 있습니다. > 물런 C++이나 VB에서도 사용하여야 ...
-
김성중•2000.09.29 01:20유수님 감사합니다.. 그러면 String의 리스트를 넘기는 방법은 없나요? 유수 wrote: > 김성중 wrote: ...
-
- won
- 2000.09.29 00:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 까마귀
- 2000.09.29 00:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보델피
- •
- 2000.09.29 00:20
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.09.29 00:48해당하는 에러가 나는 이유는 TVideo 클래스에서 비디오 관련 리소스를 잡지 못해서 발생하는 에러입니다. ...
-
- 홍길동
- 2000.09.28 23:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 김형중
- 2000.09.28 23:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 초자
- •
- 2000.09.28 23:28
- 1 COMMENTS
- /
- 0 LIKES
-
양익호•2000.09.29 18:20초자 wrote: > access의 자료를 읽어 DBGrid에 출력했는데, > 한글이 모두 '#'로 출력되네요. 거참 다른 ...
-
- mickyblue
- •
- 2000.09.28 23:18
- 2 COMMENTS
- /
- 0 LIKES
-
김성중•2000.09.29 00:28//이부분에 (가 빠졌네요 (*다음부분 가로 추가 됨) Edit2.Text := FormatDateTime( 'YYYY.MM', IncMont...
-
임형호•2000.09.28 23:33그것은 '=' 나와야되는데 '('이 나왔다는 얘기이거든요. 직역을 하자면요.. 그러니까 코딩을 찬찬히 살펴...
-
- mickyblue
- •
- 2000.09.28 22:59
- 1 COMMENTS
- /
- 0 LIKES
-
김영해•2000.09.28 23:04mickyblue wrote: > 코딩이 어디가 잘못됐는지 모르겠어여, > 배운지 한 열흘 됐는데, 그냥 포기하고 싶...
-
- I ♡ 토토로
- •
- 2000.09.28 22:46
- 1 COMMENTS
- /
- 0 LIKES
-
이진우•2000.09.28 23:50I ♡ 토토로 wrote: > 안녕하세요... > > windows 2000에서 cpu 사용률을 알 수 있는 방법을 알고 싶습...
-
- 사발우성
- •
- 2000.09.28 22:45
- 2 COMMENTS
- /
- 0 LIKES
-
건설정보연구소•2000.09.28 22:55답변 아래 소스는 프린터 객체를이용한건데 골격만있는것 같군요 핵심은 prEcoDoc에서 출력 하는 부분인...
-
사발우성•2000.09.29 00:29건설정보연구소 wrote: > 답변 > 아래 소스는 프린터 객체를이용한건데 골격만있는것 같군요 핵심은 prE...
-
- mickyblue
- •
- 2000.09.28 21:53
- 3 COMMENTS
- /
- 0 LIKES
매번 죄송합니다. ㅠ.ㅠ 에디트두개 만들고 에디트1에 1을 넣고 enter를 치면 에디트2에 날짜가 생성되게 하려고 하는데여 제가 실력으론 엔터쳐서 뭔가 생성된다는게 힘들어서여 코딩한건 그냥 참고입니다. 부탁합니다. 넙죽 바보라고 해...-
왕초보•2000.09.29 00:00질문에 대한 답이 맞는지 모르겠내요^^ procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; ...
-
강인규•2000.09.28 23:01거의 다 하셨구만요. 진짜루 바보는 모르면서 알려구하지 않는 사람이지요. 생각하신 작업을 하실려면 ...
-
임형호•2000.09.28 22:31위의 말씀하고 코딩하고는 어디가 좀 맞지 않는 느낌입니다. 제가 이해를 잘못했나??? 암튼... edit1에서...
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_return then
begin
<---------필요한 작업
end;
end;
mickyblue wrote:
> 매번 죄송합니다. ㅠ.ㅠ
> 에디트두개 만들고 에디트1에 1을 넣고 enter를 치면 에디트2에 날짜가 생성되게 하려고 하는데여 제가 실력으론 엔터쳐서 뭔가 생성된다는게 힘들어서여
> 코딩한건 그냥 참고입니다.
> 부탁합니다. 넙죽
> 바보라고 해두 좋아여, 배울수만 있다면,,,
>
> procedure TForm1.Edit1Change(Sender: TObject);
>
> begin
> Edit1.Text := '1';
> end;
>
> procedure TForm1.Edit2Change(Sender: TObject);
>
> begin
> Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-2) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-1) );
> end;
>
> procedure TForm1.Edit1Change(Sender: TObject);
>
> begin
> Edit1.Text :='2';
> end;
>
>
> procedure TForm1.Edit2Change(Sender: TObject);
>
> begin
> Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) );
> end;
>
> end.