Q&A
- 마우스 CM_MOUSELEAVE CM_MOUSENTER 메세지 처리?
* 사용환경 : 델파이5 / Windows 2000
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
ImageOrgWndProc : TWndMethod;
procedure ImageWndProc( var Msg : TMessage );
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ImageWndProc( var Msg : TMessage );
begin
case Msg.Msg of
CM_MOUSELEAVE:
begin
image1.Picture.LoadFromFile('C:아이콘1.ICO');
end;
CM_MOUSEENTER:
begin
image1.Picture.LoadFromFile('C:아이콘2.ICO');
end;
end;
ImageOrgWndProc(Msg);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageOrgWndProc := Image1.WindowProc;
Image1.WindowProc := ImageWndProc;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Image1.WindowProc := ImageOrgWndProc;
end;
end.
이렇게 하면 Image1부분에는 이미지가 바뀌미다. 이미지가 버튼역활을 합니다.
그런대 Image2,Image3......등을 바꿔려면 어떻게 하는가요?
제발 가르쳐 주세요
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
ImageOrgWndProc : TWndMethod;
procedure ImageWndProc( var Msg : TMessage );
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.ImageWndProc( var Msg : TMessage );
begin
case Msg.Msg of
CM_MOUSELEAVE:
begin
image1.Picture.LoadFromFile('C:아이콘1.ICO');
end;
CM_MOUSEENTER:
begin
image1.Picture.LoadFromFile('C:아이콘2.ICO');
end;
end;
ImageOrgWndProc(Msg);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageOrgWndProc := Image1.WindowProc;
Image1.WindowProc := ImageWndProc;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Image1.WindowProc := ImageOrgWndProc;
end;
end.
이렇게 하면 Image1부분에는 이미지가 바뀌미다. 이미지가 버튼역활을 합니다.
그런대 Image2,Image3......등을 바꿔려면 어떻게 하는가요?
제발 가르쳐 주세요
2
COMMENTS
-
-
최용일님의 답편에 감사 드립니다.
즐코 즐코^^
최용일 wrote:
> 안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다.
>
> 윈도우 프로시져는 공유할 수 없습니다.
>
> Image2,Image3를 위한 윈도프로시져를 또 만들어야죠...
>
> ^^ 항상 즐코하세요.
>
> 초울트라초보 wrote:
> > * 사용환경 : 델파이5 / Windows 2000
> >
> > unit Unit1;
> >
> > interface
> >
> > uses
> > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> > StdCtrls, ExtCtrls;
> >
> > type
> > TForm1 = class(TForm)
> > Image1: TImage;
> > procedure FormCreate(Sender: TObject);
> > procedure FormDestroy(Sender: TObject);
> > private
> > ImageOrgWndProc : TWndMethod;
> > procedure ImageWndProc( var Msg : TMessage );
> > public
> > { Public declarations }
> > end;
> >
> > var
> > Form1: TForm1;
> >
> > implementation
> >
> > {$R *.DFM}
> >
> > procedure TForm1.ImageWndProc( var Msg : TMessage );
> > begin
> > case Msg.Msg of
> > CM_MOUSELEAVE:
> > begin
> > image1.Picture.LoadFromFile('C:아이콘1.ICO');
> > end;
> > CM_MOUSEENTER:
> > begin
> > image1.Picture.LoadFromFile('C:아이콘2.ICO');
> > end;
> > end;
> > ImageOrgWndProc(Msg);
> > end;
> >
> > procedure TForm1.FormCreate(Sender: TObject);
> > begin
> > ImageOrgWndProc := Image1.WindowProc;
> > Image1.WindowProc := ImageWndProc;
> > end;
> >
> > procedure TForm1.FormDestroy(Sender: TObject);
> > begin
> > Image1.WindowProc := ImageOrgWndProc;
> > end;
> >
> > end.
> >
> > 이렇게 하면 Image1부분에는 이미지가 바뀌미다. 이미지가 버튼역활을 합니다.
> > 그런대 Image2,Image3......등을 바꿔려면 어떻게 하는가요?
> > 제발 가르쳐 주세요
(NOTICE) You must be logged in to comment on this post.
-
- Cha
- •
- 2000.09.19 00:32
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.09.19 00:56안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. Style속성을 lbOwnerDr...
-
- 파이파이
- •
- 2000.09.19 00:01
- 1 COMMENTS
- /
- 0 LIKES
-
최은석•2000.09.19 02:29table1.emptytable; 파이파이 wrote: > Table에 있는 레코드를 전부 지우는 간단한 방법을 좀 부...
-
- 까까
- 2000.09.19 00:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 꼴통
- •
- 2000.09.18 23:32
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.09.18 23:35안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. StringReplace함수를 ...
-
- imp
- 2000.09.18 22:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 라이수
- •
- 2000.09.18 22:22
- 2 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.09.19 00:45라이수 wrote: > 파스칼을 이용해서 짠 정렬 소스 좀 가르쳐 주십시오. > > 아무거라도 상관이 없습...
-
최용일•2000.09.18 22:29도서관에서 자료구조 책을 찾아보세요. 예전 책에 다 나와있습니다. 라이수 wrote: > 파스칼을 이용해...
-
- 김옥란
- •
- 2000.09.18 22:01
- 1 COMMENTS
- /
- 0 LIKES
-
heimdal•2000.09.18 22:08datetimepicker1.Date:=now; with query1 do begin open; locat...
-
- 질문맨
- •
- 2000.09.18 21:39
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2000.09.18 22:29안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. procedure TForm1.Tree...
-
질문맨•2000.09.18 23:15최용일 wrote: > 안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. > > ...
-
최용일•2000.09.18 23:24헐~ 파래매터로 들어오는 Node는 현재 에디트한 노드입니다. 물론 현재 선택된 노드이죠... 둘다 같...
-
- 초울트라초보
- •
- 2000.09.18 21:14
- 2 COMMENTS
- /
- 0 LIKES
* 사용환경 : 델파이5 / Windows 2000 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; procedure FormCreate(...-
최용일•2000.09.19 05:06안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. 윈도우 프로시져는 공...
-
초울트라초보•2000.09.18 22:45최용일님의 답편에 감사 드립니다. 즐코 즐코^^ 최용일 wrote: > 안녕하세요. 델파이세상(http://ww...
-
- delpo
- •
- 2000.09.18 21:11
- 1 COMMENTS
- /
- 0 LIKES
-
남기석•2000.09.18 22:29음... 윈도 탐색기 같은 곳에서 칼럼 눌렀을때 해당 칼럼에 따라 소트를 하는 소스 같네요... 질문하...
-
- 이재열
- •
- 2000.09.18 20:52
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사...•2000.09.19 01:32안녕하세여.. 타락임다..^^ MDI Main 폼에서 다른 애플을 호출했다면 당근 Child로 띄워야 합니다.. ...
-
이재열•2000.09.20 19:34성심껏 답변해 주셔서 감사합니다. 타락천사님...... 그런데 그대로 실행을 해보니까 아무반응이 없네여.....
-
- 나상엽
- •
- 2000.09.18 20:37
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사...•2000.09.19 01:19안녕하세여.. 타락임다..^^ 나름대로 고민한 흔적이 있군여..^^;; 다음은 ChildForm을 띄우는 예제 ...
-
이해경•2000.09.18 22:18중복 실행을 막는 간단한 코딩 입니다. procedure Tfrm_Main.N7Click(Sender: TObject); Var i : Sh...
-
- 이병규
- •
- 2000.09.18 20:28
- 2 COMMENTS
- /
- 0 LIKES
-
권영길•2000.09.18 23:24디코딩 문제인것 같은데요. Base64나 quoted-printalbe 디코딩이 필요할겁니다. 이병규 wrote: > 날씨...
-
반항아•2000.10.05 19:15base64로 Encoding 된상태로 오기 때문이라 생각됩니다. 자료실에 Base64관련자료가 있습니다. 보시고 한...
-
- 사발우성
- •
- 2000.09.18 20:14
- 4 COMMENTS
- /
- 0 LIKES
-
이해경•2000.09.18 22:21코딩으로 처리할 수도 있겠으나, SQL Server와 같은 서버용 DB의 경우 SQL 함수에서 월별 테이터 추출이 ...
-
사발우성•2000.09.18 22:50해경님 조금더 구체적으로 어떻게 하란 말씀이신쥐...혹시 날짜별루 group by 를 하시란 소린가여??? 에...
-
맛과멋•2000.09.18 22:54사발우성 wrote: > 해경님 조금더 구체적으로 어떻게 하란 말씀이신쥐...혹시 날짜별루 group by 를 하시...
-
사발우성•2000.09.18 23:52맛과멋님 답변감솨여 ^^ 음 제 질문내용이 미흡하군여... 글면 보충임당.. 원래의 의도는 dbchart...
-
- 토비
- 2000.09.18 20:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 최은석
- 2000.09.18 20:02
- 0 COMMENTS
- /
- 0 LIKES
-
- delpo
- •
- 2000.09.18 19:59
- 2 COMMENTS
- /
- 0 LIKES
-
최은석•2000.09.18 20:07delpo wrote: > delphi 프로그래밍 중 다음과 같은 의문점이 발생하였습니다. > > if OpenDialog1.Exe...
-
최용일•2000.09.18 20:06안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. "위의 경우에 i=0일 경...
-
- 욜라초보
- 2000.09.18 19:59
- 0 COMMENTS
- /
- 0 LIKES
-
-
최용일•2000.09.18 22:38안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. 윈도우에서 쓰이는 한...
-
-
- 초초보
- 2000.09.18 19:59
- 0 COMMENTS
- /
- 0 LIKES
윈도우 프로시져는 공유할 수 없습니다. 공유하게 된다면 세개의 TImage가 똑같이 동작하죠.
Image2,Image3를 위한 윈도프로시져를 또 만들어야죠...
^^ 항상 즐코하세요.
초울트라초보 wrote:
> * 사용환경 : 델파이5 / Windows 2000
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, ExtCtrls;
>
> type
> TForm1 = class(TForm)
> Image1: TImage;
> procedure FormCreate(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
> private
> ImageOrgWndProc : TWndMethod;
> procedure ImageWndProc( var Msg : TMessage );
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.ImageWndProc( var Msg : TMessage );
> begin
> case Msg.Msg of
> CM_MOUSELEAVE:
> begin
> image1.Picture.LoadFromFile('C:아이콘1.ICO');
> end;
> CM_MOUSEENTER:
> begin
> image1.Picture.LoadFromFile('C:아이콘2.ICO');
> end;
> end;
> ImageOrgWndProc(Msg);
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> ImageOrgWndProc := Image1.WindowProc;
> Image1.WindowProc := ImageWndProc;
> end;
>
> procedure TForm1.FormDestroy(Sender: TObject);
> begin
> Image1.WindowProc := ImageOrgWndProc;
> end;
>
> end.
>
> 이렇게 하면 Image1부분에는 이미지가 바뀌미다. 이미지가 버튼역활을 합니다.
> 그런대 Image2,Image3......등을 바꿔려면 어떻게 하는가요?
> 제발 가르쳐 주세요