한국 델파이 개발자 모임 - mouse over로 버튼 이미지 바꾸기??

mouse over로 버튼 이미지 바꾸기??

mouse over이벤트로 bitbtn 이미지를 바꿀려구 하는데안되네요

CM_MOUSELEAVE를 안먹는것 같아요 CM_MOUSEENTER는 먹는데

시간때문에 그러나요. font색같은건 단번에 잘 바뀌는데요.

전문가님 아래 소스좀 수정해 주세요

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ImgList, Buttons;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

ImageList1: TImageList;

BitBtn2: TBitBtn;

private

{ Private declarations }

procedure WndProc(var Message: TMessage); override;

public

{ Public declarations }

procedure ChangeImage(Sender: TObject; Msg: Integer);

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WndProc(var Message: TMessage);

begin

if Message.LParam = Longint(Bitbtn1) then

ChangeImage(Bitbtn1, Message.Msg);

if Message.LParam = Longint(Bitbtn2) then

ChangeImage(Bitbtn2, Message.Msg);

inherited WndProc(Message);

end;

procedure TForm1.ChangeImage(Sender: TObject; Msg: Integer);

Begin

if Sender is Tbitbtn then

begin

if (Msg = CM_MOUSELEAVE) then

begin

imagelist1.GetBitmap(2, TBitbtn(Sender).Glyph );

TBitbtn(Sender).Font.Color := clred;

end;

if (Msg = CM_MOUSEENTER) then

begin

imagelist1.GetBitmap(1 ,TBitbtn(Sender).Glyph ) ;

TBitbtn(Sender).Font.Color := clblue;

end;

end;

end;

end.

이 게시물을

3 COMMENTS

조규춘 • 2001.10.29 02:43

반갑습니다.

이런거에 대한 예제를 보내드리지요..

아래의 주소입니다.

http://user.chollian.net/~garam4g/cal.ZIP

그럼 수고하십시요~

궁금이 wrote:

> mouse over이벤트로 bitbtn 이미지를 바꿀려구 하는데안되네요

> CM_MOUSELEAVE를 안먹는것 같아요 CM_MOUSEENTER는 먹는데

> 시간때문에 그러나요. font색같은건 단번에 잘 바뀌는데요.

> 전문가님 아래 소스좀 수정해 주세요

>

> unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> StdCtrls, ImgList, Buttons;

>

> type

> TForm1 = class(TForm)

> BitBtn1: TBitBtn;

> ImageList1: TImageList;

> BitBtn2: TBitBtn;

>

> private

> { Private declarations }

> procedure WndProc(var Message: TMessage); override;

>

> public

> { Public declarations }

> procedure ChangeImage(Sender: TObject; Msg: Integer);

> end;

>

> var

> Form1: TForm1;

>

> implementation

> {$R *.DFM}

>

> procedure TForm1.WndProc(var Message: TMessage);

> begin

>

>

> if Message.LParam = Longint(Bitbtn1) then

> ChangeImage(Bitbtn1, Message.Msg);

> if Message.LParam = Longint(Bitbtn2) then

> ChangeImage(Bitbtn2, Message.Msg);

>

> inherited WndProc(Message);

> end;

>

>

> procedure TForm1.ChangeImage(Sender: TObject; Msg: Integer);

> Begin

> if Sender is Tbitbtn then

> begin

> if (Msg = CM_MOUSELEAVE) then

> begin

> imagelist1.GetBitmap(2, TBitbtn(Sender).Glyph );

> TBitbtn(Sender).Font.Color := clred;

> end;

>

> if (Msg = CM_MOUSEENTER) then

> begin

> imagelist1.GetBitmap(1 ,TBitbtn(Sender).Glyph ) ;

> TBitbtn(Sender).Font.Color := clblue;

> end;

>

> end;

>

>

> end;

>

> end.

>
- 0
- 0
- 삭제
- 수정
- 댓글
궁금이 • 2001.10.29 04:32

아래 파일을 풀고 델파이에서 여니까 stream에러가 나네요 form이 안보여요

조규춘 wrote:

>

> 반갑습니다.

>

> 이런거에 대한 예제를 보내드리지요..

>

> 아래의 주소입니다.

>

> http://user.chollian.net/~garam4g/cal.ZIP

>

> 그럼 수고하십시요~

>

> 궁금이 wrote:

> > mouse over이벤트로 bitbtn 이미지를 바꿀려구 하는데안되네요

> > CM_MOUSELEAVE를 안먹는것 같아요 CM_MOUSEENTER는 먹는데

> > 시간때문에 그러나요. font색같은건 단번에 잘 바뀌는데요.

> > 전문가님 아래 소스좀 수정해 주세요

> >

> > unit Unit1;

> >

> > interface

> >

> > uses

> > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> > StdCtrls, ImgList, Buttons;

> >

> > type

> > TForm1 = class(TForm)

> > BitBtn1: TBitBtn;

> > ImageList1: TImageList;

> > BitBtn2: TBitBtn;

> >

> > private

> > { Private declarations }

> > procedure WndProc(var Message: TMessage); override;

> >

> > public

> > { Public declarations }

> > procedure ChangeImage(Sender: TObject; Msg: Integer);

> > end;

> >

> > var

> > Form1: TForm1;

> >

> > implementation

> > {$R *.DFM}

> >

> > procedure TForm1.WndProc(var Message: TMessage);

> > begin

> >

> >

> > if Message.LParam = Longint(Bitbtn1) then

> > ChangeImage(Bitbtn1, Message.Msg);

> > if Message.LParam = Longint(Bitbtn2) then

> > ChangeImage(Bitbtn2, Message.Msg);

> >

> > inherited WndProc(Message);

> > end;

> >

> >

> > procedure TForm1.ChangeImage(Sender: TObject; Msg: Integer);

> > Begin

> > if Sender is Tbitbtn then

> > begin

> > if (Msg = CM_MOUSELEAVE) then

> > begin

> > imagelist1.GetBitmap(2, TBitbtn(Sender).Glyph );

> > TBitbtn(Sender).Font.Color := clred;

> > end;

> >

> > if (Msg = CM_MOUSEENTER) then

> > begin

> > imagelist1.GetBitmap(1 ,TBitbtn(Sender).Glyph ) ;

> > TBitbtn(Sender).Font.Color := clblue;

> > end;

> >

> > end;

> >

> >

> > end;

> >

> > end.

> >
- 0
- 0
- 삭제
- 수정
- 댓글
조규춘 • 2001.10.29 13:52

보니깐..

지금 그 압축파일을 푸니...

읽기전용으로 되었있어서...

*.dcu를 만들지 못한다는 에러가 뜨더군요..

그걸 읽기전용을 해제해서 실행하니.. 잘 되더군요..

다시한번 해보시겠습니까?

궁금이 wrote:

> 아래 파일을 풀고 델파이에서 여니까 stream에러가 나네요 form이 안보여요

> 조규춘 wrote:

> >

> > 반갑습니다.

> >

> > 이런거에 대한 예제를 보내드리지요..

> >

> > 아래의 주소입니다.

> >

> > http://user.chollian.net/~garam4g/cal.ZIP

> >

> > 그럼 수고하십시요~

> >

> > 궁금이 wrote:

> > > mouse over이벤트로 bitbtn 이미지를 바꿀려구 하는데안되네요

> > > CM_MOUSELEAVE를 안먹는것 같아요 CM_MOUSEENTER는 먹는데

> > > 시간때문에 그러나요. font색같은건 단번에 잘 바뀌는데요.

> > > 전문가님 아래 소스좀 수정해 주세요

> > >

> > > unit Unit1;

> > >

> > > interface

> > >

> > > uses

> > > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> > > StdCtrls, ImgList, Buttons;

> > >

> > > type

> > > TForm1 = class(TForm)

> > > BitBtn1: TBitBtn;

> > > ImageList1: TImageList;

> > > BitBtn2: TBitBtn;

> > >

> > > private

> > > { Private declarations }

> > > procedure WndProc(var Message: TMessage); override;

> > >

> > > public

> > > { Public declarations }

> > > procedure ChangeImage(Sender: TObject; Msg: Integer);

> > > end;

> > >

> > > var

> > > Form1: TForm1;

> > >

> > > implementation

> > > {$R *.DFM}

> > >

> > > procedure TForm1.WndProc(var Message: TMessage);

> > > begin

> > >

> > >

> > > if Message.LParam = Longint(Bitbtn1) then

> > > ChangeImage(Bitbtn1, Message.Msg);

> > > if Message.LParam = Longint(Bitbtn2) then

> > > ChangeImage(Bitbtn2, Message.Msg);

> > >

> > > inherited WndProc(Message);

> > > end;

> > >

> > >

> > > procedure TForm1.ChangeImage(Sender: TObject; Msg: Integer);

> > > Begin

> > > if Sender is Tbitbtn then

> > > begin

> > > if (Msg = CM_MOUSELEAVE) then

> > > begin

> > > imagelist1.GetBitmap(2, TBitbtn(Sender).Glyph );

> > > TBitbtn(Sender).Font.Color := clred;

> > > end;

> > >

> > > if (Msg = CM_MOUSEENTER) then

> > > begin

> > > imagelist1.GetBitmap(1 ,TBitbtn(Sender).Glyph ) ;

> > > TBitbtn(Sender).Font.Color := clblue;

> > > end;

> > >

> > > end;

> > >

> > >

> > > end;

> > >

> > > end.

> > >
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 이지인
- 2001.10.29 18:28
- 0 COMMENTS
- /
- 0 LIKES
델파이 기본단위를 Pixel이 아닌 다른단위는??
- 이호림
- •
- 2001.10.29 17:58
- 1 COMMENTS
- /
- 0 LIKES
퍼스널 오라클 8.1.7에서 데이터베이스 시작시 비밀번호는 뭐에요?
- mafioso
  
  •
  
  2001.10.29 18:27
  
  아마 그게 internal/oracle 일겁니다. 이호림 wrote: > 방금 Win98용 퍼스널 오라클 8.1.7 버전을 ...
- 김태형
- •
- 2001.10.29 17:33
- 1 COMMENTS
- /
- 0 LIKES
[저장에관한거]초보질문좀..ㅡㅡ
- 델파이 탐 크르즈
  
  •
  
  2001.10.29 17:52
  
  김태형 wrote: > 저기여 > 제가 요즘 강좌를 보면서 델파이를 공부 하는데 > 거기서 > 버튼을 만들고 ...
- 김도성
- 2001.10.29 08:36
- 0 COMMENTS
- /
- 0 LIKES
폼 투명만드는거여~?
- 김두환
- •
- 2001.10.29 04:12
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요.. 꼭 아시는 분 답변 부탁드립니다.. SQL관련 질문입니다..
- bibic
  
  •
  
  2001.10.29 22:52
  
  sql 문장을 쓰실때 공백을 안주시고 이어서 쓰신거 같네여... 예를 들어서 'SELECT * FROM' + 'ADDRESS....
- 분홍
  
  •
  
  2001.10.29 07:40
  
  김두환 wrote: > SQL관련해서 프로그램을 짰는데요.. 에러 메세지가 발생하는 데 무엇과 관련된 에러인지 ...
- 인터기초
- •
- 2001.10.29 00:00
- 1 COMMENTS
- /
- 0 LIKES
IBQuery문INSERT, 한단계전진은 했지만....
- 인터기초
  
  •
  
  2001.10.29 04:21
  
  결국 나중에 테이블을 다시 열어보면 commit이 안되어 있습니다. 인터기초 wrote: > * 사용환경 : ...
- 델파이를 차차 알아가
- 2001.10.28 23:15
- 0 COMMENTS
- /
- 0 LIKES
[급질문]소스와오류메세지를 올리겠습니다.봐주세요[급질문]
- oranzi
- •
- 2001.10.28 19:42
- 2 COMMENTS
- /
- 0 LIKES
DB에서 읽어오는게 안되요~(소스첨부)
- 델 초보(아줌마)
  
  •
  
  2001.10.29 18:33
  
  oranzi wrote: > 아래가 제가 짠 소스구요.. > > Query1.Close; > Query1.Sql.Clear; > Query...
- 성더기
  
  •
  
  2001.10.29 11:48
  
  그리드에 표시할 수 있는 문자열의 길이는 255자가 최대입니다 그이상이 넘어가는 필드는 전부 메모로 보...
- 111
- •
- 2001.10.28 19:12
- 1 COMMENTS
- /
- 0 LIKES
3번짼데 아무두 모르시나...stringgrid에서hint사용방법
- 조규춘
  
  •
  
  2001.10.29 02:38
  
  111 wrote: > 안녕하세여. > 스트링그리드의 각셀에 마우스를 가져갈때 각각의 셀에 대한 자세한 > 정보...
- 궁금이
- •
- 2001.10.28 19:01
- 3 COMMENTS
- /
- 0 LIKES
mouse over로 버튼 이미지 바꾸기??

mouse over이벤트로 bitbtn 이미지를 바꿀려구 하는데안되네요 CM_MOUSELEAVE를 안먹는것 같아요 CM_MOUSEENTER는 먹는데 시간때문에 그러나요. font색같은건 단번에 잘 바뀌는데요. 전문가님 아래 소스좀 수정해 주세요 unit Unit1; inte...
- 조규춘
  
  •
  
  2001.10.29 02:43
  
  반갑습니다. 이런거에 대한 예제를 보내드리지요.. 아래의 주소입니다. http://user.chollian....
- 궁금이
  
  •
  
  2001.10.29 04:32
  
  아래 파일을 풀고 델파이에서 여니까 stream에러가 나네요 form이 안보여요 조규춘 wrote: > > 반갑...
- 조규춘
  
  •
  
  2001.10.29 13:52
  
  보니깐.. 지금 그 압축파일을 푸니... 읽기전용으로 되었있어서... *.dcu를 만들지 못한다는 에러...
- 한상훈
- 2001.10.28 08:34
- 0 COMMENTS
- /
- 0 LIKES
RadioGroup 의 wordwrap
- 모르겠당
- •
- 2001.10.28 06:41
- 1 COMMENTS
- /
- 0 LIKES
델파이 FTP의 protocol
- 이경문
  
  •
  
  2001.10.29 06:22
  
  질문인가요, 리포트인가요? 모르겠당 wrote: > "FTP의 protocol 조사" > > 입니다. > 장황하게 할 ...
- bogi
- 2001.10.28 03:54
- 0 COMMENTS
- /
- 0 LIKES
Data수정이 안됩니다.(오류메세지는 안뜨는데...)
- 델파이 대빵초보
- 2001.10.28 02:56
- 0 COMMENTS
- /
- 0 LIKES
디비와 엑셀 조건 검색해서 스트링그리드에 뿌리는 법...급합니다...
- 배추벌레
- 2001.10.28 02:15
- 0 COMMENTS
- /
- 0 LIKES
TeeChart install 방법줌.. ㅠㅠ
- 인터기초
- •
- 2001.10.28 00:53
- 1 COMMENTS
- /
- 0 LIKES
IBsql문의 SQL error = code -104 Token unknown - line
- 김훈
  
  •
  
  2001.10.28 15:49
  
  전반적으로 코드자체에 문제가 있는 거 같습니다. 알고리즘(?) 은 대강 이렇습니다. TIBTransaction ...
- 운풍
- 2001.10.27 22:34
- 0 COMMENTS
- /
- 0 LIKES
델파이에서 Stored Procedure 사용법
- 3년째 델초
- •
- 2001.10.27 22:26
- 2 COMMENTS
- /
- 0 LIKES
[급합니다! 간절희 부탁해요] 뭣 때문인지?
- 운풍
  
  •
  
  2001.10.27 22:38
  
  3년째 델초 wrote: > 기존 프로그램을 수정하는데 The qrptMyoungBeforePrint method referenced by qrptM...
- 3년째 델초
  
  •
  
  2001.10.29 20:53
  
  운풍 wrote: > 3년째 델초 wrote: > > 기존 프로그램을 수정하는데 The qrptMyoungBeforePrint method re...
- dns
- •
- 2001.10.27 22:09
- 1 COMMENTS
- /
- 0 LIKES
혹시 이거 아시는분 계신가여?
- 최용일
  
  •
  
  2001.10.27 22:55
  
  안녕하세요. 최용일입니다. 컴파일(Compile)하신것이 아니라 실행(Run)하신것 같네요... Control-F9...
- 찬
- 2001.10.27 21:23
- 0 COMMENTS
- /
- 0 LIKES
질문제목과 분류를 꼭 해주시길 부탁드립니다.

궁금이
2001/10/28 19:01
Views316

Likes0

Comments3

Reports0
Tag List
수정
삭제
목록으로

←First Page

1521 1522 1523 1524 1525 1526 1527 1528 1529 1530

Last Page→