Q&A

  • 폰트색 변경에 관하여~~^^
음... 마우스가 폰트위로 가게 되면 색을 바꾸는 소스에서염...

label이 Form위에 있으면 색이 바뀌는데... 패널이나 이미지위에 가게 되면 색이 안바뀝니다...

아래 소스는 바로 문제의 그 소스인데요...

label이 패널위나 이미지 위에 가도 색이 바뀌게 좀 해주세요...

전 아무리할려구 해도 안됩니다..

여러 고수님들의 가르침...기다리겠어염... 저... 담 주까지는 꼬옥 해야 되여.. 이거 안되면..흑흑 ㅠㅠ 빠른 답변 기다리겠습니다.~~

=========================================================================

unit Unit1;



interface



uses

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

StdCtrls, ExtCtrls;



type

TForm1 = class(TForm)

Label1: TLabel;

private

{ Private declarations }

procedure WndProc(var Message: TMessage); override;

public

{ Public declarations }

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

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.WndProc(var Message: TMessage);

begin

// 콤포넌트에 마우스가 있으면(over) 폰트의 색상을 바꾼다

if Message.LParam = Longint(Label1) then

ChangeColor(Label1, Message.Msg);

inherited WndProc(Message);

end;



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

Begin

// 마우스가 Label위에 있을때

if Sender is TLabel then

begin

if (Msg = CM_MOUSELEAVE) then

(Sender as Tlabel).font.Color := clWindowText; // 마우스가 떠날때

if (Msg = CM_MOUSEENTER) then

(Sender as Tlabel).Font.Color := clBlue; // 마우스가 들어올때

end;

end;



end.

이 게시물을
2  COMMENTS
  • Profile
    구창민 • 1999.10.23 03:29
    얼라 wrote:

    > 음... 마우스가 폰트위로 가게 되면 색을 바꾸는 소스에서염...

    > label이 Form위에 있으면 색이 바뀌는데... 패널이나 이미지위에 가게 되면 색이 안바뀝니다...

    > 아래 소스는 바로 문제의 그 소스인데요...

    > label이 패널위나 이미지 위에 가도 색이 바뀌게 좀 해주세요...

    > 전 아무리할려구 해도 안됩니다..

    > 여러 고수님들의 가르침...기다리겠어염... 저... 담 주까지는 꼬옥 해야 되여.. 이거 안되면..흑흑 ㅠㅠ 빠른 답변 기다리겠습니다.~~

    > =========================================================================

    > unit Unit1;

    >

    > interface

    >

    > uses

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

    > StdCtrls, ExtCtrls;

    >

    > type

    > TForm1 = class(TForm)

    > Label1: TLabel;

    > private

    > { Private declarations }

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

    > public

    > { Public declarations }

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

    > end;

    >

    > var

    > Form1: TForm1;

    >

    > implementation

    > {$R *.DFM}

    >

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

    > begin

    > // 콤포넌트에 마우스가 있으면(over) 폰트의 색상을 바꾼다

    > if Message.LParam = Longint(Label1) then

    > ChangeColor(Label1, Message.Msg);

    > inherited WndProc(Message);

    > end;

    >

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

    > Begin

    > // 마우스가 Label위에 있을때

    > if Sender is TLabel then

    > begin

    > if (Msg = CM_MOUSELEAVE) then

    > (Sender as Tlabel).font.Color := clWindowText; // 마우스가 떠날때

    > if (Msg = CM_MOUSEENTER) then

    > (Sender as Tlabel).Font.Color := clBlue; // 마우스가 들어올때

    > end;

    > end;

    >

    > end.



    편법이지만 간단한 방법을 알려드리죠.

    만약 Label1이 Panel위에 있다면

    Panel의 MouseMove 이벤트 핸들러에 아래처럼 쓰고,

    Label1.Font.Color:= clWindowText;

    Label1의 MouseMove 이벤트 핸들러에 아래처럼 쓰시면 됩니다.

    Label1.Font.Color:= clBlue;

    아래 경부님의 답변처럼 하면 아마도..

    판넬위로 마우스가 가면 무조건 Label의 색깔이 변할거 같습니다만..

    테스트는 못해 보았습니다.

    그럼.. 즐거운 프로그래밍 하세요~



  • Profile
    권경부 • 1999.10.23 02:35
    이렇게 해보세요....(패널위에서 입니다.)...

    (현재 폼 위에 레이블이 하나 있고요.. 글구 패널위에 또 레이블이 하나 있는 상황입니다.)



    procedure TForm1.WndProc(var Message: TMessage);

    begin

    // 콤포넌트에 마우스가 있으면(over) 폰트의 색상을 바꾼다

    if (Message.LParam = Longint(Label1)) then

    ChangeColor(Label1, Message.Msg);



    //축가한부분입니다. 단두줄이죠....쩝....

    if Message.LParam = Longint(Panel1) then

    ChangeColor(Label2, Message.Msg);

    //



    inherited WndProc(Message);

    end;









    얼라 wrote:

    > 음... 마우스가 폰트위로 가게 되면 색을 바꾸는 소스에서염...

    > label이 Form위에 있으면 색이 바뀌는데... 패널이나 이미지위에 가게 되면 색이 안바뀝니다...

    > 아래 소스는 바로 문제의 그 소스인데요...

    > label이 패널위나 이미지 위에 가도 색이 바뀌게 좀 해주세요...

    > 전 아무리할려구 해도 안됩니다..

    > 여러 고수님들의 가르침...기다리겠어염... 저... 담 주까지는 꼬옥 해야 되여.. 이거 안되면..흑흑 ㅠㅠ 빠른 답변 기다리겠습니다.~~

    > =========================================================================

    > unit Unit1;

    >

    > interface

    >

    > uses

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

    > StdCtrls, ExtCtrls;

    >

    > type

    > TForm1 = class(TForm)

    > Label1: TLabel;

    > private

    > { Private declarations }

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

    > public

    > { Public declarations }

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

    > end;

    >

    > var

    > Form1: TForm1;

    >

    > implementation

    > {$R *.DFM}

    >

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

    > begin

    > // 콤포넌트에 마우스가 있으면(over) 폰트의 색상을 바꾼다

    > if Message.LParam = Longint(Label1) then

    > ChangeColor(Label1, Message.Msg);

    > inherited WndProc(Message);

    > end;

    >

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

    > Begin

    > // 마우스가 Label위에 있을때

    > if Sender is TLabel then

    > begin

    > if (Msg = CM_MOUSELEAVE) then

    > (Sender as Tlabel).font.Color := clWindowText; // 마우스가 떠날때

    > if (Msg = CM_MOUSEENTER) then

    > (Sender as Tlabel).Font.Color := clBlue; // 마우스가 들어올때

    > end;

    > end;

    >

    > end.
    • memogi
    • •
    • 1999.10.24 03:54
    • 1 COMMENTS
    • /
    • 0 LIKES
    Memo컴퍼넌트 내용인쇄??
    • 박지훈.임프
      •
      1999.10.24 19:00
      memogi wrote: > 안녕하세요 > Memo컴퍼넌트 안에있는 내용을 인쇄할려고하는데...??? > 어떻게해야할지...
    • 박찬훈
    • •
    • 1999.10.24 00:55
    • 1 COMMENTS
    • /
    • 0 LIKES
    델파이 5.0과 오라클 8.04의 연결을 하려는데요...
    • 오승섭
      •
      1999.10.25 18:46
      안녕하세요 .... 먼저 SQL*PLUS에서 SCOTT/TIGER@balbs로 접속을 해보십시요.... 만약 접속이 않된다면...
    • 박현수
    • •
    • 1999.10.23 21:17
    • 1 COMMENTS
    • /
    • 0 LIKES
    port 의 대체 api..???
    • 이상호
      •
      1999.11.02 07:24
      Windows 95부터 사용되는 Win32 API에서 포트를 다루기 위해서 권장되는 방법은 CreateFile이란 API를 사...
    • 김금남
    • •
    • 1999.10.23 21:05
    • 2 COMMENTS
    • /
    • 0 LIKES
    퀵리포트-Detail을 6줄만 찍으려면?
    • 이주흥
      •
      1999.10.24 02:30
      김금남 wrote: > 자재관리 프로그램입니다. > 출고번호에 딸린 출고물품들이 여러건 되는데, > 양식지에...
    • 유도삼
      •
      1999.10.25 22:46
      이주흥 wrote: > 김금남 wrote: > > 자재관리 프로그램입니다. > > 출고번호에 딸린 출고물품들이 여러...
    • 초보
    • •
    • 1999.10.23 20:18
    • 1 COMMENTS
    • /
    • 0 LIKES
    일본어를 사용해야 하는데...
    • 조복기
      •
      1999.10.24 04:51
      안녕하세요.. 어떤 용도로 일본어를 써야되는지는 알수가 없지만 한글윈도우에는 자체적으로 일본어를 ...
    • 최종오
    • •
    • 1999.10.23 18:47
    • 1 COMMENTS
    • /
    • 0 LIKES
    엑셀 파일을 Import 하는 방법
    • 권경부
      •
      1999.10.23 20:38
      최종오 wrote: > 인터넷에서 엑셀 파일을 다운로드 받아서 > 프로그램에 데이터를 읽어 들여야 하는데요....
    • 열심이
    • •
    • 1999.10.23 06:50
    • 1 COMMENTS
    • /
    • 0 LIKES
    퀵리포트에서 자료수 구하기
    • 유도삼
      •
      1999.10.24 09:10
      열심이 wrote: > 퀵리포트에서 qrgroup으로 그룹을 지정한 후 footband를 qrband로 지정하였습니다. footb...
  • QuickReport2.0에서 TQRExpr 재사용 문제
  • 한글 입력을 효과적으로...?
    • 최종오
    • •
    • 1999.10.23 04:43
    • 1 COMMENTS
    • /
    • 0 LIKES
    다국언어지원 방법
    • 권경부
      •
      1999.10.23 21:28
      최종오님... 한델 강의실에 있는 안치봉님의 다국적언어지원 강의를 참고해보세요... 행운이 있길 빕니...
  • 프린터코딩시 실과별 그룹을 지어 페이지를 넘기면서.
    • 최종오
    • •
    • 1999.10.23 04:30
    • 1 COMMENTS
    • /
    • 0 LIKES
    동적으로 생성된 폼이 아닌 자동으로 생성된 폼을 사용하는 방법
    • 권경부
      •
      1999.10.23 05:00
      최종오님.. 1. 자동으로 만든 폼을 Create해야 하나...? - Create 하지 않으셔도 됩니다. 2. 같은 폼...
  • 마우스 위치알기엽!
    • 박지훈.임프
      •
      1999.10.24 19:09
      산들바람 wrote: > 아래처럼 하믄여 마우스가 라벨에 가믄 글짜색이 변하거든여 > 근데요 그 라벨을 판넬...
    • 송정환
    • •
    • 1999.10.23 03:08
    • 1 COMMENTS
    • /
    • 0 LIKES
    DB에디터에 대하여
    • 구창민
      •
      1999.10.23 03:38
      송정환 wrote: > TQuery컴포넌트를 이용해서 커리해온 데이타를 DB에디터을 이용해서 쓰는과 동시에 데이...
    • 델초보
    • •
    • 1999.10.23 03:02
    • 1 COMMENTS
    • /
    • 0 LIKES
    윈도우 활성화 시키기
    • 권경부
      •
      1999.10.23 03:16
      이렇게 해보세요.... procedure TForm1.Button2Click(Sender: TObject);//최소화된 폼을 활성화 시키는 ...
    • 조형석
    • •
    • 1999.10.23 02:39
    • 2 COMMENTS
    • /
    • 0 LIKES
    동적으로 라벨 생성
    • 구창민
      •
      1999.10.23 03:33
      조형석 wrote: > DB에서 field를 추가하면 Edit 박스와 라벨 을 다른 폼에 생성 하려구 합니다. > > 만...
    • 권경부
      •
      1999.10.23 02:51
      조형석님.. 이렇게 해보세요... procedure TForm1.FormCreate(Sender: TObject); var MyLabel : TLabe...
    • 얼라
    • •
    • 1999.10.23 01:48
    • 2 COMMENTS
    • /
    • 0 LIKES
    폰트색 변경에 관하여~~^^
    음... 마우스가 폰트위로 가게 되면 색을 바꾸는 소스에서염... label이 Form위에 있으면 색이 바뀌는데... 패널이나 이미지위에 가게 되면 색이 안바뀝니다... 아래 소스는 바로 문제의 그 소스인데요... label이 패널위나 이미지 위에 ...
    • 구창민
      •
      1999.10.23 03:29
      얼라 wrote: > 음... 마우스가 폰트위로 가게 되면 색을 바꾸는 소스에서염... > label이 Form위에 있으...
    • 권경부
      •
      1999.10.23 02:35
      이렇게 해보세요....(패널위에서 입니다.)... (현재 폼 위에 레이블이 하나 있고요.. 글구 패널위에 또 레...
    • 화랑
    • •
    • 1999.10.23 00:30
    • 2 COMMENTS
    • /
    • 0 LIKES
    Active Server Component제작중 upload
    • 박지훈.임프
      •
      1999.10.24 19:15
      화랑 wrote: > 안녕하세요.. > > 누가 아는 사람없어요.. > > 저는 ASP용 Active Server Component...
    • 화랑
      •
      1999.10.25 02:55
      답변 정말 감사합니다. 그럼 델파이에서 유니코드와 String사이에는 어떻게 변환을 하면 되는 지요.. ...
    • 델초보
    • •
    • 1999.10.22 23:18
    • 1 COMMENTS
    • /
    • 0 LIKES
    비프 음과 마우스커서가 이상해요
    • 김영대
      •
      1999.10.23 00:19
      델초보 wrote: > SendMessage(CboZip.Handle,WM_KEYDOWN,VK_F4,0); > 문을 써서 자동으로 디비콤보 박스...
    • 김경율
    • •
    • 1999.10.22 22:56
    • 1 COMMENTS
    • /
    • 0 LIKES
    동적으로 event를 실행할려면?
    • 김영대
      •
      1999.10.23 00:26
      김경율 wrote: > edit keydown 이벤트에서 버튼이라든지 그밖으 컴포너트의 event를 동적으로 실행할려면 ...
←First Page
2775 2776 2777 2778 2779 2780 2781 2782 2783 2784
Last Page→
한델 로그인 하기