比如用通常的 F1 键,作为帮助键的时候。
解决方案 »
- RichEdit中的文本存入txt文件的问题?
- 控件加载
- dbgrid右边滚动条的触发事件?
- 欢迎武汉的程序员与我联系,共同发展
- 如果做行业软件,像什么ERP,MIS……,做哪方面的最赚钱?
- 请问一个显示格式的问题!谢谢!
- 一个送分问题,但也要看你会不会 :)
- 1.如何锁定计算机....2......十万火急!!!!!!!!!
- 整个程序可见的公共变量在什么地方定义?如何引用?
- help..... 调试提示“cannot perform this opertion on a closed dataset”
- 把以前写好的DELPHI程序转成OCX控件(包含FORM等多个控件),怎样做最简单?
- 求多边形面积的算法!
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
MnuHelp: TMenuItem;
MnuContexts: TMenuItem;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure MnuContextsClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
keypreView:=true;
Label1.Caption :='please press F1.';
MnuContexts.ShortCut :=TexttoShortcut('F1');
end;procedure TForm1.MnuContextsClick(Sender: TObject);
begin
ShowMessage('Thanks.');
end;end.其實這些都可以在窗體和控件的屬性上設置好,就不用寫代這些碼了.