Q&A
- 좀 도와주세요....^^
Application의 OnMessage에 달아서 쓸려고 합니다..
마우스가 콤포넌트를 떠났을때를 처리 하려니...
모르겠네여...
좀 도와 주세여...
(참고로 wndProc는 쓰지 않으려고 합니다..)
모든 동일 콤포넌트(다른 폼에도 있음)에 쓰려고 해서요...
procedure TfrmMain.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
var
W: TWinControl;
begin
if (Msg.message = WM_MOUSEMOVE) then
begin
W := FindVCLWindow(Mouse.CursorPos);
if W <> nil then
begin
if (W is TDBGrid) then
begin
if (W as TDBGrid).Tag = 0 then
begin
(W as TDBGrid).Height := (W as TDBGrid).Height + 10;
(W as TDBGrid).Tag := 1;
end; //end if (W as TPanel).Tag = 1 then
end
else
begin
//?????????????????????????????
end; //end if (W is TPanel) then
end; //end if W <> nil then
end; // end if (Msg.message = WM_MOUSEMOVE) then
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
//
Application.OnMessage := OnAppMessage;
end;
마우스가 콤포넌트를 떠났을때를 처리 하려니...
모르겠네여...
좀 도와 주세여...
(참고로 wndProc는 쓰지 않으려고 합니다..)
모든 동일 콤포넌트(다른 폼에도 있음)에 쓰려고 해서요...
procedure TfrmMain.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
var
W: TWinControl;
begin
if (Msg.message = WM_MOUSEMOVE) then
begin
W := FindVCLWindow(Mouse.CursorPos);
if W <> nil then
begin
if (W is TDBGrid) then
begin
if (W as TDBGrid).Tag = 0 then
begin
(W as TDBGrid).Height := (W as TDBGrid).Height + 10;
(W as TDBGrid).Tag := 1;
end; //end if (W as TPanel).Tag = 1 then
end
else
begin
//?????????????????????????????
end; //end if (W is TPanel) then
end; //end if W <> nil then
end; // end if (Msg.message = WM_MOUSEMOVE) then
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
//
Application.OnMessage := OnAppMessage;
end;
2
COMMENTS
-
-
님의 답변 고맙습니다...
꼭 어떤 특정 콤포넌트를 지정하는 것이 아니라 다른 콤포넌트에도 적용시키려고 합니다. 그러다보니 일괄적으로 한 곳에서 다 처리하려니...잘 안 돼네여...
콤포너트에서 마우스가 벗어났을때 바로 직전에 마우스가 위치했던 콤포너트를 되돌리려고 합니다..
이정욱 wrote:
> 쩝.. 그것보단 그 콘트롤을 상속받아서 이벤트 두개를 넣어주시는것이 좋을듯 하네요.
>
> CM_MOUSEENTER 와 CM_MOUSELEAVE 메세지를 받아서 처리하시면 훨씬 시스템에 부담을 덜 주게 되죠.. MouseMove보다 말이죠.
>
>
> 진정한초보 wrote:
> > Application의 OnMessage에 달아서 쓸려고 합니다..
> > 마우스가 콤포넌트를 떠났을때를 처리 하려니...
> > 모르겠네여...
> > 좀 도와 주세여...
> > (참고로 wndProc는 쓰지 않으려고 합니다..)
> > 모든 동일 콤포넌트(다른 폼에도 있음)에 쓰려고 해서요...
> >
> > procedure TfrmMain.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
> > var
> > W: TWinControl;
> > begin
> > if (Msg.message = WM_MOUSEMOVE) then
> > begin
> > W := FindVCLWindow(Mouse.CursorPos);
> >
> > if W <> nil then
> > begin
> > if (W is TDBGrid) then
> > begin
> > if (W as TDBGrid).Tag = 0 then
> > begin
> > (W as TDBGrid).Height := (W as TDBGrid).Height + 10;
> > (W as TDBGrid).Tag := 1;
> > end; //end if (W as TPanel).Tag = 1 then
> > end
> > else
> > begin
> > //?????????????????????????????
> > end; //end if (W is TPanel) then
> > end; //end if W <> nil then
> > end; // end if (Msg.message = WM_MOUSEMOVE) then
> > end;
> >
> > procedure TfrmMain.FormCreate(Sender: TObject);
> > begin
> > //
> > Application.OnMessage := OnAppMessage;
> > end;
(NOTICE) You must be logged in to comment on this post.
-
- 류한규
- •
- 1999.11.17 01:45
- 2 COMMENTS
- /
- 0 LIKES
-
김주석•1999.11.17 03:49류한규 wrote: > 안녕하십니까? > > 방금 실행한 왼도우(응용프로그램, 기타 화면)를 ShowModal로 만드...
-
류한규•1999.11.17 05:25> > frm_0314 := Tfrm_0314.Create(Application) ; > frm_0314.Showmodal ; > 제가 직...
-
- 신현정
- •
- 1999.11.17 01:39
- 2 COMMENTS
- /
- 0 LIKES
-
안재현•1999.11.17 02:47신현정 wrote: > 파라독스로 만들어진 테이블의 필드 길이를 변경하려고 합니다. > 물론, DBD를 사용하지...
-
신현정•1999.11.17 02:50Alter Table을 사용해서 필드 길이를 변경하려면 결국 테이블을 Drop 해야하는데... 데이타를 손실하지 않...
-
- 델초
- 1999.11.17 01:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 여용구
- 1999.11.17 01:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 황선희
- •
- 1999.11.17 00:22
- 1 COMMENTS
- /
- 0 LIKES
-
유형태•2000.03.11 02:28황선희 wrote: > > 출력버튼을 클릭할 때 다음과 같이 코딩을 하였습니다. > > Application.Cr...
-
-
- 여용구
- •
- 1999.11.16 23:52
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.11.17 00:48HideSelection 프로퍼티를 False 로 주세요. 넘 쉬웠나요? ^^ 여용구 wrote: > 애플리케이션에서 리...
-
- 진정한초보
- •
- 1999.11.16 23:33
- 2 COMMENTS
- /
- 0 LIKES
Application의 OnMessage에 달아서 쓸려고 합니다.. 마우스가 콤포넌트를 떠났을때를 처리 하려니... 모르겠네여... 좀 도와 주세여... (참고로 wndProc는 쓰지 않으려고 합니다..) 모든 동일 콤포넌트(다른 폼에도 있음)에 쓰려고 해서요...-
이정욱•1999.11.17 00:51쩝.. 그것보단 그 콘트롤을 상속받아서 이벤트 두개를 넣어주시는것이 좋을듯 하네요. CM_MOUSEENTER 와...
-
진정한초보•1999.11.17 01:13님의 답변 고맙습니다... 꼭 어떤 특정 콤포넌트를 지정하는 것이 아니라 다른 콤포넌트에도 적용시키려고...
-
- 땡글이
- 1999.11.16 23:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 류한규
- 1999.11.16 22:44
- 0 COMMENTS
- /
- 0 LIKES
-
- jang
- •
- 1999.11.16 21:52
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.11.17 00:47Twain에서는 띄우는 윈도우가 각 드라이버마다 다릅니다. 즉, 획일적인 해결방법은 없습니다. 제일 ...
-
- 정유라
- •
- 1999.11.16 20:54
- 1 COMMENTS
- /
- 0 LIKES
-
TeamX•1999.11.16 21:04Unable to create Process 메세지는 대개 프로그램이 DLL 을 못찾을때 내는 아우성입니다. 그렇다면 왜 DLL...
-
- 혀니
- •
- 1999.11.16 21:08
- 2 COMMENTS
- /
- 0 LIKES
-
안재현•1999.11.16 21:36혀니 wrote: > 퀵레포트를 사용하는데요.. > QRGroup 의 Expression 부분을 그냥 프로퍼티에 적어넣는것...
-
이재식•1999.11.16 21:18혀니 wrote: > 퀵레포트를 사용하는데요.. > QRGroup 의 Expression 부분을 그냥 프로퍼티에 적어넣는것...
-
- 정재헌
- 1999.11.16 20:27
- 0 COMMENTS
- /
- 0 LIKES
-
- joojg
- 1999.11.16 20:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 여용구
- •
- 1999.11.16 18:36
- 1 COMMENTS
- /
- 0 LIKES
-
안재현•1999.11.16 21:39여용구 wrote: > 초보입니다. > 현재 시간을 얻고자 할 때.. 밀리초까지 얻을 수 있는 방법을 갈켜주십시...
-
- sun
- •
- 1999.11.16 18:22
- 2 COMMENTS
- /
- 0 LIKES
-
이재식•1999.11.16 20:54sun wrote: > 제가 표현하고 싶은것은 퀵리포트에 두개의 detail을 위아래로 표현해주고 싶습니다. > ...
-
최수영•1999.11.16 18:52sun wrote: > 제가 표현하고 싶은것은 퀵리포트에 두개의 detail을 위아래로 표현해주고 싶습니다. > ...
-
- 류한규
- •
- 1999.11.16 17:53
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•1999.11.16 22:42류한규 wrote: > 안녕하십니까? > > 먼저 3000번 프린터 Spooler제어에 대하여 김용대님의 > 답변 감...
-
김영대•1999.11.16 23:00// Adapted from Microsoft's Q153751: // "Sample: PRINTERS.EXE: Using Printers with Windows 95 S...
-
- 김태훈
- •
- 1999.11.16 16:40
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•1999.11.16 21:32김태훈 wrote: > 퀵리포트 미리보기창에서 내용물을 출력 하였는지 판단하는 방법좀 알려주세요! > > ...
-
- 김대정
- 1999.11.16 16:12
- 0 COMMENTS
- /
- 0 LIKES
CM_MOUSEENTER 와 CM_MOUSELEAVE 메세지를 받아서 처리하시면 훨씬 시스템에 부담을 덜 주게 되죠.. MouseMove보다 말이죠.
진정한초보 wrote:
> Application의 OnMessage에 달아서 쓸려고 합니다..
> 마우스가 콤포넌트를 떠났을때를 처리 하려니...
> 모르겠네여...
> 좀 도와 주세여...
> (참고로 wndProc는 쓰지 않으려고 합니다..)
> 모든 동일 콤포넌트(다른 폼에도 있음)에 쓰려고 해서요...
>
> procedure TfrmMain.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
> var
> W: TWinControl;
> begin
> if (Msg.message = WM_MOUSEMOVE) then
> begin
> W := FindVCLWindow(Mouse.CursorPos);
>
> if W <> nil then
> begin
> if (W is TDBGrid) then
> begin
> if (W as TDBGrid).Tag = 0 then
> begin
> (W as TDBGrid).Height := (W as TDBGrid).Height + 10;
> (W as TDBGrid).Tag := 1;
> end; //end if (W as TPanel).Tag = 1 then
> end
> else
> begin
> //?????????????????????????????
> end; //end if (W is TPanel) then
> end; //end if W <> nil then
> end; // end if (Msg.message = WM_MOUSEMOVE) then
> end;
>
> procedure TfrmMain.FormCreate(Sender: TObject);
> begin
> //
> Application.OnMessage := OnAppMessage;
> end;