Q&A
HOME
Tips & Tech
Q&A
Discuss
Download
자유게시판
홍보 / 광고
구인 / 구직
LOGIN
회원가입
MDI 상태바..에서요..
질문이 있습니다.
MDI상태바에서요.. 키보드의 NumLock이랑 CapsLock키가
눌렸다는 것을 표시해주고 싶거든요? 물론 해제해도
표시를 해야 하고요..
어떻게 하지요?
1
COMMENTS
이해경
•
2000.10.07 18:51
이건 제가 사용한 방법 입니다. 물론 좋은 코드는 아니죠.
Timer를 이용한 방법인데요. 제가 생각해도 별로 좋은 코드는 아닙니다.
API 함수나 기타 다른 방법이 있는 분은 Re를 달아주시면 좋겠네요.
procedure Tfrm_Main.Timer1Timer(Sender: TObject);
begin
if Odd (GetKeyState (VK_CAPITAL)) then
Status.Panels[0].Text := 'CAPS'
else
Status.Panels[0].Text := '';
if Odd (GetKeyState (VK_INSERT)) then
Status.Panels[1].Text := 'INSERT'
else
Status.Panels[1].Text := 'DELETE';
if Odd (GetKeyState (VK_NUMLOCK)) then
Status.Panels[2].Text := 'NUM'
else
Status.Panels[2].Text := '';
end;
0
0
삭제
수정
댓글
(NOTICE) You must be
logged in
to comment on this post.
raeganja
•
2000.10.07 02:06
2
COMMENTS
/
0
LIKES
고수님들 제발 도와주세요....
cell
•
2000.10.07 03:14
raeganja wrote: > ADOQuery3.Parameters.ParamValues['N5'] := Trim(DateTimePicker1.Date); > 여기서 ...
이선경
•
2000.10.07 18:27
cell wrote: 무슨 문제인지는 모르지만 아마도 이렇게 바꾸면 에러가 아날껄요 ??? ADOQuery3.Paramete...
김현우
•
2000.10.07 01:58
1
COMMENTS
/
0
LIKES
델파이 오름차순 정열 소수 부탁합니다.
나그네
•
2000.10.07 02:11
Q@A나 자료실에서 찾아 보시면 소트 알고리즘이
ventura
•
2000.10.07 01:53
1
COMMENTS
/
0
LIKES
이미지의 특정부분을 따는 방법
이광형
•
2000.10.07 23:12
이미지에 특정 부분을 복사하여 붙이는 방법은 Canva.CopyRect 를 사용하시면 됩니다. Canvas.Copyrect( ...
김태영
2000.10.07 01:52
0
COMMENTS
/
0
LIKES
배열에 대해서...
이진우
2000.10.07 01:23
0
COMMENTS
/
0
LIKES
Re: 스트링그리드에서 포커스 찾아가기...
배움이
2000.10.07 01:14
0
COMMENTS
/
0
LIKES
★★★★★ 제발 도와주세요 ★★★★
이진우
•
2000.10.07 01:06
2
COMMENTS
/
0
LIKES
한메일이나 야후메일같은 WebMail을 보내는 방법....
홍세비
•
2000.10.09 07:10
이진우 wrote: > 메일 보내는 프로그램을 만들려고 하는데 POP3같은 경우는 알겠는데요! > 한메일이나 야...
권영길
•
2000.10.07 19:56
SMTP를 이용하시는 것이 좋겠군요. (SMTP보다는 POP3가 더 어렵던데...) 이진우 wrote: > 메일 보내는...
초보
2000.10.07 01:02
0
COMMENTS
/
0
LIKES
쉬리가 쿼리를 만났을때?
왕초보
2000.10.07 00:58
0
COMMENTS
/
0
LIKES
이미지 깜박거림...
coco
•
2000.10.07 00:27
3
COMMENTS
/
0
LIKES
<질문>DB그리드의 조절
최석기
•
2000.10.07 04:06
coco wrote: > DB그리드의 각각의셀을 출력되는 문자의 길이에 따라 변하게 하고 싶은데 어떻게 않될까여?...
어린왕자
•
2000.10.07 02:22
coco wrote: > DB그리드의 각각의셀을 출력되는 문자의 길이에 따라 변하게 하고 싶은데 어떻게 않될까여?...
coco
•
2000.10.07 02:27
좀더 자세하게좀 알려주면 안될까요? 글구 리스트뷰에 대해서도요!.... 어린왕자 wrote: > coco wrote: ...
한대필
•
2000.10.07 02:42
1
COMMENTS
/
0
LIKES
MDI 상태바..에서요..
질문이 있습니다. MDI상태바에서요.. 키보드의 NumLock이랑 CapsLock키가 눌렸다는 것을 표시해주고 싶거든요? 물론 해제해도 표시를 해야 하고요.. 어떻게 하지요?
이해경
•
2000.10.07 18:51
이건 제가 사용한 방법 입니다. 물론 좋은 코드는 아니죠. Timer를 이용한 방법인데요. 제가 생각해도 별...
왕초보
•
2000.10.07 00:38
3
COMMENTS
/
0
LIKES
구조체에 대해서.... 아시는분은 꼭 답변좀... [수정판][답변은 감사]
타락천사
•
2000.10.07 01:18
안녕하세여..타락임다..^^ 흠.. 코드를 봤는데..여...ㅠㅠ 쩌비.. 포인터를 함부로 쓰면 안되여..ㅠ...
뜨
•
2000.10.07 01:15
StrPCopy(cstAuthUser^.Addr.ttype, '1'); ==> 이부분이 에러구여 ==> cstAuthUser^.Addr.ttype :=...
나그네
•
2000.10.07 00:47
PChar를 쓸수 없다고 한다면 요건 어떨런지 var A: array[0..1] of Char; S: String; begin S :...
권범철
•
2000.10.07 00:20
2
COMMENTS
/
0
LIKES
프로그램에 ActiveX 컨트롤을 포함시켜 배포하는 방법?
정순명
•
2000.10.11 23:57
ActiveX를 실행 파일에 포함시켜서 배포를 할 수는 없습니다. 실행 파일과 별도로 배포를 해야하며 레지스...
권범철
•
2000.10.12 04:01
안녕하세요 권범철입니다. 답변 감사합니다~ 정순명 wrote: > ActiveX를 실행 파일에 포함시켜서 배...
자라목
2000.10.07 00:20
0
COMMENTS
/
0
LIKES
chart컴포넌트에 값 넘기는 방법좀 알려주세요
파이파이
•
2000.10.07 00:19
1
COMMENTS
/
0
LIKES
한영키 키값좀 알려주세요.
이대선
•
2000.10.07 01:20
파이파이 wrote: > 질문> 한영키 키값을 좀 알려 주세요. > 꼭 !!! 한/영키의 아스키코드값은 $...
이진영
2000.10.07 00:12
0
COMMENTS
/
0
LIKES
리치에디트에서 폰트 패밀리 셋팅하는 방법 좀 알려주세요
찬수애비
•
2000.10.07 00:01
1
COMMENTS
/
0
LIKES
TreeNode 에서 Object를 얻어 오는 방법은?
찬수애비
•
2000.10.07 00:29
찬수애비 wrote: > TreeNode 에 AddObject나 AddChileObject 로 삽입한 Object의 포인터를 얻어 오는 방법...
호야
2000.10.06 22:50
0
COMMENTS
/
0
LIKES
jackass님께서 올리신 object line 써보신분
바보감자
2000.10.07 01:01
0
COMMENTS
/
0
LIKES
좀..황당.... ㅡ.ㅡ;; 급해염 플리즈 ㅜ.ㅜ
우희연
•
2000.10.06 22:24
1
COMMENTS
/
0
LIKES
sql_server 7.0을 install에 관하여
남기석
•
2000.10.07 11:05
안녕하세요 청개구리 남기석입니다. SQL Server 7.0 을 95나 98에서 사용하시려면 DeskTop Edition을 ...
한대필
2000/10/07 02:42
Views
280
Likes
0
Comments
1
Reports
0
Tag List
수정
삭제
목록으로
한델 로그인 하기
로그인 상태 유지
아직 회원이 아니세요? 가입하세요!
암호를 잊어버리셨나요?
Timer를 이용한 방법인데요. 제가 생각해도 별로 좋은 코드는 아닙니다.
API 함수나 기타 다른 방법이 있는 분은 Re를 달아주시면 좋겠네요.
procedure Tfrm_Main.Timer1Timer(Sender: TObject);
begin
if Odd (GetKeyState (VK_CAPITAL)) then
Status.Panels[0].Text := 'CAPS'
else
Status.Panels[0].Text := '';
if Odd (GetKeyState (VK_INSERT)) then
Status.Panels[1].Text := 'INSERT'
else
Status.Panels[1].Text := 'DELETE';
if Odd (GetKeyState (VK_NUMLOCK)) then
Status.Panels[2].Text := 'NUM'
else
Status.Panels[2].Text := '';
end;