티스토리 뷰
출처 : http://www.swissdelphicenter.ch/torry/showcode.php?id=147
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
id1 : Integer;
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 = id1 then
ShowMessage('Ctrl + A 선택!');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// 키 등록 Ctrl + A
id1 := GlobalAddAtom('Hotkey1');
RegisterHotKey(Self.Handle, id1, MOD_CONTROL, $41); // $41 -> A
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
// 키 해제
UnRegisterHotKey(Handle, id1);
GlobalDeleteAtom(id1);
end;
end.
- Total
- Today
- Yesterday
- flex
- 전예희
- 일본여행
- SAS
- oracle
- KOBA
- Mac
- 서울오토살롱
- ubuntu
- Linux
- 동경
- MySQL
- Java
- 레이싱모델 익스트림 포토 페스티벌
- JavaScript
- ble
- BPI-M4
- koba2010
- Xcode
- ffmpeg
- Spring MVC
- 지스타2007
- Delphi
- NDK
- Spring
- 송주경
- sas2009
- Delphi Tip
- 튜닝쇼 2008
- android
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | |
7 | 8 | 9 | 10 | 11 | 12 | 13 |
14 | 15 | 16 | 17 | 18 | 19 | 20 |
21 | 22 | 23 | 24 | 25 | 26 | 27 |
28 | 29 | 30 |