Q&A
- 스피드버튼에 마우스가 가면 Glyph변화 급함
스피드버튼의 flat속성이 true 되어 있습니다.
이때 마우스가 스피드 버튼 위에 가면 스피드 버튼에 있는 bmp과 글자가
다른 bmp파일로, 글씨는 흰색에서 검은 색으로 바꾸고자 합니다.
좀 가르쳐 주세요.
여러 고수님 들께 부탁드립니다.
이때 마우스가 스피드 버튼 위에 가면 스피드 버튼에 있는 bmp과 글자가
다른 bmp파일로, 글씨는 흰색에서 검은 색으로 바꾸고자 합니다.
좀 가르쳐 주세요.
여러 고수님 들께 부탁드립니다.
2
COMMENTS
-
-
조영욱 wrote:
> 스피드버튼의 flat속성이 true 되어 있습니다.
> 이때 마우스가 스피드 버튼 위에 가면 스피드 버튼에 있는 bmp과 글자가
> 다른 bmp파일로, 글씨는 흰색에서 검은 색으로 바꾸고자 합니다.
> 좀 가르쳐 주세요.
> 여러 고수님 들께 부탁드립니다.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
CheckBox1: TCheckBox;
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);
if Message.LParam = Longint(Label2) then
ChangeColor(Label2, Message.Msg);
if Message.LParam = Longint(Label3) then
ChangeColor(Label3, Message.Msg);
if Message.LParam = Longint(CheckBox1) then
ChangeColor(CheckBox1, 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;
// 마우스가 CheckBox위에 있을때
if Sender is TCheckBox then
begin
if (Msg = CM_MOUSELEAVE) then
(Sender as TCheckBox).Font.Color := clWindowText;
if (Msg = CM_MOUSEENTER) then
(Sender as TCheckBox).Font.Color := clRed;
end;
end;
end.
영대님 감사합니다.
헌데 panel 위에 스피드 버턴이 있을 경우 어떻게 해야 합니까?
다시 한번 부탁드립니다.
(NOTICE) You must be logged in to comment on this post.
-
- 송기원
- 1999.11.27 02:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 구은미
- •
- 1999.11.27 02:32
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•1999.11.27 03:49구은미 wrote: > 안녕하세요. > > PageControl의 Caption에 image를 넣고 싶은데요 ... 어떻게 하는지...
-
- 효정이
- •
- 1999.11.27 02:22
- 1 COMMENTS
- /
- 0 LIKES
-
혀노•1999.11.27 23:56프로그램을 삭제했는데,,아직 system.ini에서 그 장치를 가리키고 있어서 나는 에러이기때문에,,,영어번역 ...
-
- 도토리
- •
- 1999.11.27 02:12
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.11.27 18:32도토리 wrote: > Canvas에서 Zoom In/Out 구현하는 간단한 방법 좀 가르쳐 주세요. // Image1에 원본 ...
-
- 조영욱
- 1999.11.27 01:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 강윤환
- •
- 1999.11.27 00:42
- 1 COMMENTS
- /
- 0 LIKES
-
김봉학•1999.11.29 19:47강윤환 wrote: > 제목대로입니다. > > 간단하게 서버에서 데이터를 주기적으로 받아오는 프로그램을 만...
-
- 여용구
- •
- 1999.11.27 00:35
- 3 COMMENTS
- /
- 0 LIKES
-
갤럭시•1999.11.27 04:48여용구 wrote: > QuickReport에서 > 다음 과 같은 형태로 출력을 하고자 합니다.. > > 번호 이름 ...
-
초보델•2001.04.14 03:31갤럭시 wrote: > 여용구 wrote: > > QuickReport에서 > > 다음 과 같은 형태로 출력을 하고자 합니다.....
-
이재식•1999.11.27 03:55여용구 wrote: > QuickReport에서 > 다음 과 같은 형태로 출력을 하고자 합니다.. > > 번호 이름 ...
-
- 박철민
- 1999.11.26 23:04
- 0 COMMENTS
- /
- 0 LIKES
-
- kimmia
- 1999.11.26 22:01
- 0 COMMENTS
- /
- 0 LIKES
-
-
김영대•1999.11.27 00:33박성훈 wrote: > LAN으로 파라독스db를 공유하고 있습니다. > 한대의 컴이 공유된 db를 건드렸을 때 Lock...
-
-
- jhlee
- •
- 1999.11.26 20:45
- 1 COMMENTS
- /
- 0 LIKES
-
신호성•1999.11.27 04:21jhlee wrote: > 여러 unit에서 사용하기위한 공통 함수들을 모아놓은 form없는 unit을 만들었는데 > 임시...
-
- 조영욱
- •
- 1999.11.26 21:31
- 2 COMMENTS
- /
- 0 LIKES
스피드버튼의 flat속성이 true 되어 있습니다. 이때 마우스가 스피드 버튼 위에 가면 스피드 버튼에 있는 bmp과 글자가 다른 bmp파일로, 글씨는 흰색에서 검은 색으로 바꾸고자 합니다. 좀 가르쳐 주세요. 여러 고수님 들께 부탁드립니다.-
김영대•1999.11.27 00:34조영욱 wrote: > 스피드버튼의 flat속성이 true 되어 있습니다. > 이때 마우스가 스피드 버튼 위에 가면...
-
조영욱•1999.11.27 02:03조영욱 wrote: > 스피드버튼의 flat속성이 true 되어 있습니다. > 이때 마우스가 스피드 버튼 위에 가면...
-
- 윤소영
- •
- 1999.11.26 20:21
- 2 COMMENTS
- /
- 0 LIKES
-
혀노•1999.11.27 03:29앞에 Alias설정 코드를 안적었는데,,,아래 적을게요 procedure ~.~create(); var path : string; ...
-
혀노•1999.11.27 03:25정보처리기사 시험에서 alias설정은 그렇게 하면 감독관 앞에서 실행시 에러가 나기 쉽거든요, Explore에서...
-
-
혀노•1999.11.27 00:51뭘 물어보시는지 잘 모르겠는데요,,,,,음 이게 맞을려나,,,, DBGrid를 더블 클릭하면 필드Editer가 나오는...
-
-
- 최영구
- •
- 1999.11.26 19:42
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.11.27 01:03최영구 wrote: > 비주얼 베이직에서 속성창과 같이 데이터베이스 필드와 연결하려고 합니다...... > > ...
-
- 이재민
- •
- 1999.11.26 19:31
- 1 COMMENTS
- /
- 0 LIKES
-
chaser•1999.11.26 20:06이재민 wrote: > 안녕하세요? > 메일을 통해 질문요지가 잘 전달될지 모르겠는데요.... > > 폼에 TE...
-
- 열심희
- •
- 1999.11.26 19:11
- 1 COMMENTS
- /
- 0 LIKES
-
전철호•1999.11.27 01:24열심희 wrote: > 안녕하세요? > Midas를 공부하다보니 질문할 내용들이 너무 많군요... > > 테이블에 ...
-
- delpong
- •
- 1999.11.26 18:57
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.11.27 00:55delpong wrote: > 밑에 라디안으로 바꾸라고 하셨는데....쩝 > 잘이해가 않되는디.. 좀 구체적으로 갈켜...
-
- 정유라
- •
- 1999.11.26 17:58
- 1 COMMENTS
- /
- 0 LIKES
-
류민철•1999.11.26 20:01정유라 wrote: > 비주얼베이직에서 만든 DLL을 델파이에서 사용하려고 합니다. > DLL이름은 PrjDLLTest....
-
- 류한규
- •
- 1999.11.26 17:25
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.11.28 00:35류한규 wrote: > 안녕하십니까? > > 같은 질문을 여러번 올립니다. > > > Printer.Canvas를 이용...
> 스피드버튼의 flat속성이 true 되어 있습니다.
> 이때 마우스가 스피드 버튼 위에 가면 스피드 버튼에 있는 bmp과 글자가
> 다른 bmp파일로, 글씨는 흰색에서 검은 색으로 바꾸고자 합니다.
> 좀 가르쳐 주세요.
> 여러 고수님 들께 부탁드립니다.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
CheckBox1: TCheckBox;
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);
if Message.LParam = Longint(Label2) then
ChangeColor(Label2, Message.Msg);
if Message.LParam = Longint(Label3) then
ChangeColor(Label3, Message.Msg);
if Message.LParam = Longint(CheckBox1) then
ChangeColor(CheckBox1, 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;
// 마우스가 CheckBox위에 있을때
if Sender is TCheckBox then
begin
if (Msg = CM_MOUSELEAVE) then
(Sender as TCheckBox).Font.Color := clWindowText;
if (Msg = CM_MOUSEENTER) then
(Sender as TCheckBox).Font.Color := clRed;
end;
end;
end.