?? imepmenu.pas
字號:
{*******************************************************}
{ }
{ Delphi Visual Component Library }
{ }
{ Copyright (c) 1995,97 Borland International }
{ }
{*******************************************************}
unit ImePMenu;
{$S-,W-,R-}
{$C PRELOAD}
interface
uses Windows, SysUtils, Classes, Controls, Messages, Menus, DsgnIntf;
const
USKBLayout = '00000409';
type
TImePopupMenu = class(TPopupMenu)
private
KBClosehdle: HKL;
function SetPopupComponentIme(const ImeMd: TImeMode; const ImeNm: string): Boolean;
procedure PhonItemClicked(Sender: TObject);
procedure ChaJeiItemClicked(Sender: TObject);
procedure QuickItemClicked(Sender: TObject);
procedure IntCodeItemClicked(Sender: TObject);
procedure RowColItemClicked(Sender: TObject);
procedure DaYiItemClicked(Sender: TObject);
procedure RomanItemClicked(Sender: TObject);
procedure HanYinItemClicked(Sender: TObject);
procedure OffItemClicked(Sender: TObject);
protected
procedure CreateImeMenuItems;
procedure RemoveImeMenuItems;
procedure WriteState(Writer: TWriter); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Popup(X, Y: Integer); override;
end;
implementation
uses TypInfo, StdCtrls, ComCtrls, DBCtrls, DBGrids, DBGridsX,
Forms, Mask, CheckLst, DBLookup, FileCtrl, CSPCtrls;
const
PhonName = '猔
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -