Q&A
안녕하세요
이젠 저도 전역적 핫키는 지겹습니다. 하지만 왜 안되는 걸까요.
밑에 소스에서 FAtom이면
Edit1.text := ...
이런것을 버튼클릭으로 바꾸고 싶은데
Button1Click(Sender);
이렇게 쓰면 에러가 납니다.
또 핫키 등록이 잘 않되는 이유가 뭔가요.
윈도우에서 사용하는 핫키는 레지스트리에 입력이 않되나요?
제가 Alt_Space를 넣으니깐 곧바로 에러가 나더군요. 레지스트리에 입력 않된다고.
윈도우즈에서 사용하는 모든 핫키를 바꿔버리고 싶은데 방법이 없을까요?
가려쳐 주세요.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
FAtom, FBtom : TAtom;
{ Private declarations }
protected
procedure WMHotKey(var msg: TWMHotKey); message WM_HotKey;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = FAtom then
Edit1.text:= 'Left'
else if Msg.HotKey = FBtom then
EDIT1.text:= 'Right'
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FAtom := GlobalAddAtom('HotKey Test');
RegisterHotKey(Handle, FAtom, MOD_Alt, VK_F1);
if RegisterHotKey(Handle, FAtom, MOD_ALT, VK_F1) = False then
ShowMessage('HotKey Registration Failed');
FBtom := GlobalAddAtom('HotKey Test');
RegisterHotKey(Handle, FBtom, MOD_Shift, VK_F1);
if RegisterHotKey(Handle, FBtom, MOD_SHIFT, VK_F1) = False then
ShowMessage('HotKey Registration Failed');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, GlobalDeleteAtom(FAtom));
UnRegisterHotKey(Handle, GlobalDeleteAtom(FBtom));
end;
- 왜 핫키를 누르면 버튼클릭을 못하나요???
안녕하세요
이젠 저도 전역적 핫키는 지겹습니다. 하지만 왜 안되는 걸까요.
밑에 소스에서 FAtom이면
Edit1.text := ...
이런것을 버튼클릭으로 바꾸고 싶은데
Button1Click(Sender);
이렇게 쓰면 에러가 납니다.
또 핫키 등록이 잘 않되는 이유가 뭔가요.
윈도우에서 사용하는 핫키는 레지스트리에 입력이 않되나요?
제가 Alt_Space를 넣으니깐 곧바로 에러가 나더군요. 레지스트리에 입력 않된다고.
윈도우즈에서 사용하는 모든 핫키를 바꿔버리고 싶은데 방법이 없을까요?
가려쳐 주세요.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
FAtom, FBtom : TAtom;
{ Private declarations }
protected
procedure WMHotKey(var msg: TWMHotKey); message WM_HotKey;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = FAtom then
Edit1.text:= 'Left'
else if Msg.HotKey = FBtom then
EDIT1.text:= 'Right'
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FAtom := GlobalAddAtom('HotKey Test');
RegisterHotKey(Handle, FAtom, MOD_Alt, VK_F1);
if RegisterHotKey(Handle, FAtom, MOD_ALT, VK_F1) = False then
ShowMessage('HotKey Registration Failed');
FBtom := GlobalAddAtom('HotKey Test');
RegisterHotKey(Handle, FBtom, MOD_Shift, VK_F1);
if RegisterHotKey(Handle, FBtom, MOD_SHIFT, VK_F1) = False then
ShowMessage('HotKey Registration Failed');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, GlobalDeleteAtom(FAtom));
UnRegisterHotKey(Handle, GlobalDeleteAtom(FBtom));
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 톰과 제리
- 2000.04.25 09:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- •
- 2000.04.25 08:08
- 1 COMMENTS
- /
- 0 LIKES
-
이기현•2000.04.25 10:14DataBases 설정하세요. procedure TForm1.ConvertBtnClick(Sender: TObject); var I: Integer; beg...
-
- 이상학
- •
- 2000.04.25 08:04
- 1 COMMENTS
- /
- 0 LIKES
-
한창희•2000.04.25 09:47이상학 wrote: > 파라독스에에서 decending을 하려고...음..세컨드 프라이머리 키를 생성하고.. > 인덱...
-
- 우진
- •
- 2000.04.25 06:57
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.04.25 07:07projects폴더에 생깁니다. 우진 wrote: > 질문이 있는데요... > > 비주얼(?) 씨에선 컴파일시 저장...
-
- 초보1
- •
- 2000.04.25 06:36
- 4 COMMENTS
- /
- 0 LIKES
-
이기현•2000.04.26 01:26> ParamByName('prn_flg').AsString := DbGrid1.Columns[1].Field.asString; // DbGrid1.Columns[1].F...
-
초보1•2000.04.27 02:50답변 정말 감사드립니다. 마지막으로 염치 없지만 글을 다시 올립니다. query1, datasourec1, dbgrid ...
-
이기현•2000.04.25 10:16Post; 이문장을 제거해보세요.
-
초보1•2000.04.25 20:23답변 감사합니다. post 빼고 실행하니, 'Query1 : Cannot perform this operation on a closed datas...
-
- 남자^^
- •
- 2000.04.25 06:12
- 4 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.04.25 18:26해당 출력물을 프로그램이 설치되지 않은 곳의 컴에서 출력을 해야하는 문제때문인가요? 이렇게 하면 ...
-
남자^^•2000.04.25 20:05답변 감사드립니다. 근데여..상대방에게는 그런 프로그램을 설치해줄수 없는 불특정다수이기 때문입니다.,...
-
윤석천•2000.04.25 20:53그러면, 고생하시지 마시고, pdf, dvi 화일로 만드시면 어떨까요? 제가 가격은 잘 모르겠지만, acrobat ...
-
지나가다가•2000.04.26 10:25printscreen 하세여 ^^ 윤석천 wrote: > 그러면, 고생하시지 마시고, pdf, dvi 화일로 만드시면 어떨까...
-
- 병규
- •
- 2000.04.25 05:09
- 1 COMMENTS
- /
- 0 LIKES
-
초보2•2000.04.25 07:00병규 wrote: > 만약 주어진 숫자가 cardinal(32비트 부호없는 수)형을 벗어나는 숫자를 처리해야 한다고 ...
-
- 강인규
- •
- 2000.04.25 05:04
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2000.04.25 05:52음.. 다른싸이트의 버릇대로 다 치고 왼쪽 버턴을 눌렀더니.. 원래대로.. 다시 치네요.. 그럼 간략하게.....
-
- mad
- •
- 2000.04.25 04:51
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요 이젠 저도 전역적 핫키는 지겹습니다. 하지만 왜 안되는 걸까요. 밑에 소스에서 FAtom이면 Edit1.text := ... 이런것을 버튼클릭으로 바꾸고 싶은데 Button1Click(Sender); 이렇게 쓰면 에러가 납니다. 또 핫키 등록이 잘 않되...-
최용일•2000.04.25 06:32안녕하세요. 최용일입니다. 소스를 보니까 많은 부분을 잘못하셨네요. Edit1.text := ... 이런것...
-
- 김경식
- 2000.04.25 04:17
- 0 COMMENTS
- /
- 0 LIKES
-
- Fox
- •
- 2000.04.25 03:13
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.25 06:45안녕하세요. 최용일입니다. var F: file of Byte; S: string; begin AssignFile(F, 'c:a.Text...
-
- 주재홍
- •
- 2000.04.25 02:06
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.04.25 06:12문자 Array를 정의하신 경우라면...(array of string; 같은 건가요?) 이런 경우라면 for문 안에서 if문을 ...
-
- bhkmm
- •
- 2000.04.25 00:49
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.25 06:07안녕하세요. 최용일입니다. 아마도 그냥은 안되고 새로 컴포넌트를 하나 만드셔야 할 듯... 아래와 같이...
-
Mr.Q•2000.04.25 02:52요즘 계산기 만드는 분위기 인가요? 후후,, BiDiMode는 Alignment와는 틀린것 같은데요. 도움말을 보니, ...
-
- 최현수
- •
- 2000.04.25 00:22
- 1 COMMENTS
- /
- 0 LIKES
-
이기현•2000.04.25 03:50최현수 wrote: > 안녕하세요. > 요앞전 질문에 도움받은 기억으로 또 꿋꿋하게 질문을 하러 왔습니다. >...
-
- 정종구
- 2000.04.24 23:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이수정
- 2000.04.24 23:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 황선희
- 2000.04.24 23:07
- 0 COMMENTS
- /
- 0 LIKES
-
- blacklist
- •
- 2000.04.24 22:35
- 1 COMMENTS
- /
- 0 LIKES
-
이기현•2000.04.25 10:32private procedure MenuClick(Sender: TObject); end; procedure TForm1.SpeedButton1Click(S...
-
- blacklist
- •
- 2000.04.24 22:35
- 3 COMMENTS
- /
- 0 LIKES
-
김일영•2000.04.26 09:44MDI 윈도우의 경우라면 MDIForm의 WindowMenu 프로퍼티에 메인메뉴의 한 Top Level 메뉴를 지정하고 그 To...
-
김일영•2000.04.26 11:08아무래도 MDI 폼 아니신 것 같아서 저도 한번 해봤습니다. (지금 시간이 새벽 1시 50분인데... 제가 실성...
-
이기현•2000.04.25 10:48private procedure MenuClick(Sender: TObject); end; procedure TForm1.SpeedButton1Click(Sende...
-
- 이재광
- 2000.04.24 22:04
- 0 COMMENTS
- /
- 0 LIKES
소스를 보니까 많은 부분을 잘못하셨네요.
Edit1.text := ...
이런것을 버튼클릭으로 바꾸고 싶은데
Button1Click(Sender);
위의 곳은 Button1Click(Sender);은 어느 부분에서 이렇게 해주셨는지 만약 WMHotKey메
소드에서 해주었다면 당연히 에러가 나겠죠. Sender가 뭔지 알수 없으니까... 그럴땐
Button1Click(Self); 이렇게 해주셔야 합니다.
또 Gloval Atom은 전역적으로 유일해야 합니다. 아래 소스에서는 두개의 Atom값이 똑같
이 'HotKey Test' 이던데 이러면 맨 처음만든 Atom값을 이용하지만 핫키는 나중에 등록
된것을 사용합니다. 그러므로 WMHotKey에서 둘중 어느것을 눌렸는지 판단을 할 수 없게
되버리죠. 두개의 Atom에 다른 문자열을 사용하세요.
아래처럼 두번씩 등록하실 필요는 없습니다. 한번만 하세요.
RegisterHotKey(Handle, FBtom, MOD_Shift, VK_F1);
if RegisterHotKey(Handle, FBtom, MOD_SHIFT, VK_F1) = False then
======>
if RegisterHotKey(Handle, FBtom, MOD_SHIFT, VK_F1) = False then
^^ 항상 즐코하세요.
mad wrote:
>
> 안녕하세요
> 이젠 저도 전역적 핫키는 지겹습니다. 하지만 왜 안되는 걸까요.
> 밑에 소스에서 FAtom이면
> Edit1.text := ...
> 이런것을 버튼클릭으로 바꾸고 싶은데
> Button1Click(Sender);
> 이렇게 쓰면 에러가 납니다.
>
> 또 핫키 등록이 잘 않되는 이유가 뭔가요.
> 윈도우에서 사용하는 핫키는 레지스트리에 입력이 않되나요?
> 제가 Alt_Space를 넣으니깐 곧바로 에러가 나더군요. 레지스트리에 입력 않된다고.
> 윈도우즈에서 사용하는 모든 핫키를 바꿔버리고 싶은데 방법이 없을까요?
>
> 가려쳐 주세요.
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TForm1 = class(TForm)
> Edit1: TEdit;
> Button1: TButton;
> Button2: TButton;
> procedure FormCreate(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
> procedure Button1Click(Sender: TObject);
> procedure Button2Click(Sender: TObject);
> private
> FAtom, FBtom : TAtom;
> { Private declarations }
> protected
> procedure WMHotKey(var msg: TWMHotKey); message WM_HotKey;
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.WMHotKey(var Msg: TWMHotKey);
> begin
> if Msg.HotKey = FAtom then
> Edit1.text:= 'Left'
> else if Msg.HotKey = FBtom then
> EDIT1.text:= 'Right'
> end;
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> FAtom := GlobalAddAtom('HotKey Test');
> RegisterHotKey(Handle, FAtom, MOD_Alt, VK_F1);
> if RegisterHotKey(Handle, FAtom, MOD_ALT, VK_F1) = False then
> ShowMessage('HotKey Registration Failed');
>
> FBtom := GlobalAddAtom('HotKey Test');
> RegisterHotKey(Handle, FBtom, MOD_Shift, VK_F1);
> if RegisterHotKey(Handle, FBtom, MOD_SHIFT, VK_F1) = False then
> ShowMessage('HotKey Registration Failed');
> end;
>
> procedure TForm1.FormDestroy(Sender: TObject);
> begin
> UnRegisterHotKey(Handle, GlobalDeleteAtom(FAtom));
> UnRegisterHotKey(Handle, GlobalDeleteAtom(FBtom));
> end;