::: 델파이 Tip&Trick :::

델파이 Tip&Trick 성격에 맞지 않는 광고,비방,질문의 글은 즉시 삭제하며
내용을 복사하여 사용할 경우 반드시 이곳(http://www.howto.pe.kr)을 출처로 명시하여 주세요


Category

  김영대(2003-03-07 20:08:34, Hit : 4185, Vote : 1085) 
 SpeedButton 에 OnMouseEnter/OnMouseExit 이벤트 넣기

This technique might not give you all the right results. For instance,
what if, on form creation, the cursor is inside the button? The event
doesn't get triggered immediately. If it's not too much of a pain (i.e.
you've already got a zillion TSpeedButtons created), you might consider
writing your own TSpeedButton descendent that traps the MOUSEENTER and
MOUSELEAVE message. Here's an example:


unit PsSpeedButton;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons;

type
  TPsSpeedButton = class(TSpeedButton)
  private
  protected
    FOnMouseEnter: TNotifyEvent;
    FOnMouseLeave: TNotifyEvent;
    procedure DoMouseEnter; virtual;
    procedure DoMouseLeave; virtual;
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  public
  published
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter
                                        write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave
                                        write FOnMouseLeave;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Professional Software', [TPsSpeedButton]);
end;

procedure TPsSpeedButton.DoMouseEnter;
begin
  if Assigned(OnMouseEnter) then OnMouseEnter(Self);
end;

procedure TPsSpeedButton.DoMouseLeave;
begin
  if Assigned(OnMouseLeave) then OnMouseLeave(Self);
end;

procedure TPsSpeedButton.CMMouseEnter(var Msg: TMessage);
begin
  DoMouseEnter;
end;

procedure TPsSpeedButton.CMMouseLeave(var Msg: TMessage);
begin
  DoMouseLeave;
end;

end.



491   [일반/컴포넌트] TRichEdit 의 선택된 영역만 인쇄하기  김영대 2003/03/07 4861 839
490   [시스템] CPU 종류 구하기  김영대 2003/03/07 5175 1282
489   [시스템] 사운드파일 없이 PC 스피커로 음악연주  김영대 2003/03/07 7374 972
488   [네트웍/인터넷] 프로그램으로 네트워크 드라이브 연결/해제  김영대 2003/03/07 7247 1337
487   [일반/컴포넌트] 윈도우즈 종료와 같은 그늘진 화면 만들기  김영대 2003/03/07 3400 882
486   [일반/컴포넌트] 아이콘 사이트  김영대 2003/03/07 3898 1128
485   [시스템] 윈도우즈 시스템 표준 폰트 구하기  김영대 2003/03/07 3324 889
484   [네트웍/인터넷] RS232 통신  김영대 2003/03/07 7387 1912
483   [일반/컴포넌트] 주어진 영역의 화면 캡처  김영대 2003/03/07 3777 1041
482   [일반/컴포넌트] 숫자를 영문 표기로 바꾸기  김영대 2003/03/07 4511 948
481   [일반/컴포넌트] 숫자를 한글 표기로 바꾸기  김영대 2003/03/07 3876 974
480   [일반/컴포넌트] RichEdit 의 내용을 Bitmap 으로 만들기 2  김영대 2003/03/07 4145 1490
479   [COM/OLE] MS-WORD 종료시키기  김영대 2003/03/07 2901 793
478   [윈도우즈 API] 시스템 사운드 연주하기  김영대 2003/03/07 5159 1363
477   [일반/컴포넌트] Algorithm to sort a TStringGrid #2  김영대 2003/03/07 5081 1278
476   [윈도우즈 API] 외부 프로그램의 좌표,상태 구하기  김영대 2003/03/07 3485 1070
475   [윈도우즈 API] 윈도우즈 Telnet 으로 호스트 접속하기  김영대 2003/03/07 4375 1156
474   [일반/컴포넌트] 특정한 폴더로 이동한 DOS 창 띄우기  김영대 2003/03/07 4477 1174
473   [시스템] DOS 명령어 실행하고 결과 받아오기  김영대 2003/03/07 6948 1592
472   [윈도우즈 API] NT의 현재 user가 administrative privilege 를 가지고 있는지?  김영대 2003/03/07 3376 893
471   [일반/컴포넌트] 두개의 StringGrid sync 마추기  김영대 2003/03/07 3946 1048
470   [일반/컴포넌트] 윈도우의 title bar 폰트 바꾸기  김영대 2003/03/07 3515 891
469   [네트웍/인터넷] 네트워크 공유 설정/해제 하기 (Windows 9x)  김영대 2003/03/07 4695 1133
468   [네트웍/인터넷] 네트워크 공유 정보 읽어오기 (WIndows 9x)  김영대 2003/03/07 3958 1070
467   [일반/컴포넌트] 눌려진 키보드 키의 명칭 구하기  김영대 2003/03/07 7667 1489
466   [윈도우즈 API] Windows98 에서의 SetForegroundWindow  김영대 2003/03/07 6187 1572
465   [윈도우즈 API] Task bar 에 나타나지 않는 프로그램 만들기  김영대 2003/03/07 5496 1575
464   [COM/OLE] Outlook 사용하기  김영대 2003/03/07 3770 1165
463   [시스템] 지정한 drive가 CD-ROM 인지 검사하기  김영대 2003/03/07 6676 1717
462   [시스템] 어떤 어플리케이션이 시작 되는지 hook으로 알아내기  김영대 2003/03/07 5577 1643
461   [윈도우즈 API] 윈도우즈 탐색기의 아이콘 뽑아내서 사용하기  김영대 2003/03/07 8411 1969
460   [윈도우즈 API] System Images  김영대 2003/03/07 8325 1901
459   [윈도우즈 API] 컴퓨터/파일/폴더 찾기 화면 띄우기  김영대 2003/03/07 8301 1559
458   [일반/컴포넌트] Unix-format time 을 TDateTime 로 바꾸기  김영대 2003/03/07 4325 1158
457   [일반/컴포넌트] 실행시 component 를 Move/Resize 시키기  김영대 2003/03/07 3550 999
456   [일반/컴포넌트] TMemo 를 화면크기로 인쇄하기  김영대 2003/03/07 3057 740
  [일반/컴포넌트] SpeedButton 에 OnMouseEnter/OnMouseExit 이벤트 넣기  김영대 2003/03/07 4185 1085
454   [윈도우즈 API] 키보드의 Scroll Lock 켜기/끄기  김영대 2003/03/07 4575 1201
453   [데이터베이스] table packing 하기  김영대 2003/03/07 3857 1040
452   [윈도우즈 API] reboot Windows  김영대 2003/03/07 4257 1212

[이전 10개] [1]..[11][12] 13 [14][15][16][17][18][19][20]..[25] [다음 10개]
 

Copyright 1999-2024 Zeroboard / skin by zero