리치 에디트 박스의 삽입/수정 상태을 알기 위해서 다음과 같은 코딩을 하였습니다. if GetKeyState(VK_INSERT)=1 then sInsert.Text:='삽입' else sInsert.Text:='수정'; 그런데 가끔가다 틀린 결과가 나옵니다. 원인이 뭐죠? 그리고 위 ...
구창민
•
1999.05.06 06:28
안명호 wrote:
> 리치 에디트 박스의 삽입/수정 상태을 알기 위해서
> 다음과 같은 코딩을 하였습니다.
...
> 리치 에디트 박스의 삽입/수정 상태을 알기 위해서
> 다음과 같은 코딩을 하였습니다.
>
> if GetKeyState(VK_INSERT)=1 then sInsert.Text:='삽입'
> else sInsert.Text:='수정';
>
> 그런데 가끔가다 틀린 결과가 나옵니다.
> 원인이 뭐죠?
> 그리고 위 방법 말고 다른 방법으로 삽입/수정 상태를 알 수
> 있는 방법이 있습니까?
안명호님 안녕하세요?
아래 토글 상태를 알수있는 간략한 함수를 올립니다.
function GetToggleState(Key: integer): boolean;
begin
Result := Odd(GetKeyState(Key));
end;
그럼.. 즐거운 프로그래밍 되시길..