J jiangzs Unregistered / Unconfirmed GUEST, unregistred user! 2009-06-25 #1 看见一个程序,这样的功能,我不知如何做到的:这个程序生成的exe文件,正常执行--->OK,按住ctrl,再点击程序会运行一个配置窗口,配置完成确认再运行程序;请问,那个按ctrl 功能是如何设计做到的?
看见一个程序,这样的功能,我不知如何做到的:这个程序生成的exe文件,正常执行--->OK,按住ctrl,再点击程序会运行一个配置窗口,配置完成确认再运行程序;请问,那个按ctrl 功能是如何设计做到的?
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-06-25 #5 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if ssCtrl in Shift then showmessage('你按了Ctrl!');end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if ssCtrl in Shift then showmessage('你按了Ctrl!');end;
J jiangzs Unregistered / Unconfirmed GUEST, unregistred user! 2009-06-26 #6 de410大狭;你的代码功能是在程序启运之后按CTRL才显示的；不符合要求；
L luoyanqing119 Unregistered / Unconfirmed GUEST, unregistred user! 2009-06-26 #7 不要放在窗休里，放在工程文件的初始化Initialize后就可以了。监控键盘消息
L luoyanqing119 Unregistered / Unconfirmed GUEST, unregistred user! 2009-06-26 #8 program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin Application.Initialize; //------------------------- 你放入判断代码的部份 //--------------------------- Application.CreateForm(TForm1, Form1); Application.Run;end.
program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin Application.Initialize; //------------------------- 你放入判断代码的部份 //--------------------------- Application.CreateForm(TForm1, Form1); Application.Run;end.
D de410 Unregistered / Unconfirmed GUEST, unregistred user! 2009-06-26 #9 类似的一个帖子http://delphibbs.com/delphibbs/dispq.asp?lid=2285891
