안녕하세요
초보인데요.....마우스이벤트공부중에 책예제를 따라하다가..
계속 에러가 나서 그런데요...도움말봐도...예제가 없어서 정말 깜깜합니다.
혹시 짤막한 GETDC와 ReleaseDC에 대해서 예제와 대충설명을 해주시면 감사하겠습니다.
공부하려던 예제는
procedure keyMouse_OnChar(var Msg: TWMChar);
var
S: string;
DC: HDC;
begin
DC := GetDc (HWND);
S := Format('wm_Char ==> Ch = %S cRepeat = %d ',[char(Msg.CharCode), LoWord(Msg.KeyData)]);
SetBkColor(DC, GetSysColor(Color_BtnFace));
TextOut(DC, XVal, YVal + 20, PChar(S), Length(S));
ReleaseDC(hwnd, DC);
end;
이 procedure인데....계속 에러만 나네요......
델파이2언실리드에 있는건데..제가 공부하는 버전은 4라서 그런가요?
예제는 GetDC나 ReleaseDC로 검색해 보시면 있습니다.
DC(Device Context)는 델파이 입장에서 생각한다면 Canvas라고 생각하시면 별 무리는
없습니다. Canvas가 DC의 랩퍼객체이니까요... 파라매터론 윈도우 핸들을 넣어주시면
됩니다. 보통 폼의 핸들을 많이 넣어서 전달하죠.
DC := GetDC(Handle);
ReleaseDC(Handle, DC);
^^ 한상 즐코하세요.
crystal wrote:
> 안녕하세요
> 초보인데요.....마우스이벤트공부중에 책예제를 따라하다가..
> 계속 에러가 나서 그런데요...도움말봐도...예제가 없어서 정말 깜깜합니다.
> 혹시 짤막한 GETDC와 ReleaseDC에 대해서 예제와 대충설명을 해주시면 감사하겠습니다.
>
> 공부하려던 예제는
> procedure keyMouse_OnChar(var Msg: TWMChar);
> var
> S: string;
> DC: HDC;
> begin
> DC := GetDc (HWND);
> S := Format('wm_Char ==> Ch = %S cRepeat = %d ',[char(Msg.CharCode), LoWord(Msg.KeyData)]);
> SetBkColor(DC, GetSysColor(Color_BtnFace));
> TextOut(DC, XVal, YVal + 20, PChar(S), Length(S));
> ReleaseDC(hwnd, DC);
> end;
> 이 procedure인데....계속 에러만 나네요......
> 델파이2언실리드에 있는건데..제가 공부하는 버전은 4라서 그런가요?
>