font color="#ffffff">---- ¸´»î½Ú²Êµ°ÊÇĿǰÈí¼þÖг£ÓеÄÒ»¸öС»¨ÕУ¬Ò»°ãÊǵ±Óû§°´×¡Ä³¸ö¹¦ÄܼüÔÙÊäÈ뼸¸ö×Öĸ¾Í¿É¼¤»î¿ª·¢ÕßÃûµ¥¡¢²âÊÔÃûµ¥¡¢ÖÂлµÈÓйØÐÅÏ¢£¬¶øÇÒ¸´»î½Ú²Êµ°Ò»°ãÒþ²ØÔÚ¡°¹ØÓÚ¡±¶Ô»°¿òÖС£±ÈÈçÔÚDELPHI
4.0ÖУ¬´ò¿ªHelp²Ëµ¥£¬µ¥»÷¡°About¡±£¬ÔÚ¶Ô»°¿òÖУ¬°´×¡ALT¼ü²»·Å£¬ÊäÈëTEAM¡¢DEVELOPERS»òQUALITY£¬¶¼¿ÉÒÔ¿´µ½ÓйØÈËÔ±Ãûµ¥¡£
---- ¸´»î½Ú²Êµ°µÄʵÏÖ²¢²»¸´ÔÓ£¬±¾Îĸø³öÒ»¸öÓÃDELPHI 4.0ʵÏÖµÄÀý×Ó£¬²¢ËµÃ÷ʵÏÖ¸´»î½Ú²Êµ°µÄ¹Ø¼ü¼¼ÇÉ¡£ËäÈ»¸´»î½Ú²Êµ°Ò»°ãÔÚ¡°About¡±´°ÌåÖУ¬µ«ËüÊÇ¿ÉÒÔÔÚÈκδ°ÌåÉÏʵÏֵġ£ÔÚÕâÀïÊ×ÏÈÅöµ½µÄµÚÒ»¸öÎÊÌâ¾ÍÊÇÈçºÎÈô°Ìå½ÓÊÕÓû§µÄ¼üÅÌÊäÈëÇÒ²»»á¼¤»î´°ÌåÖÐµÄÆäËû×é¼þ¡£ÔÚ´°ÌåµÄÊôÐÔÖÐÓÐÒ»¸öKeyPreview£¬ÆäȱʡֵΪFalse£¬½«ÆäÖµ¸ÄΪTRUE£¬ÎªÊ²Ã´ÒªÕâô×öÄØ£¿ÒòΪÕâÑù¿ÉÒÔʹ´°ÌåÔÚ×é¼þ֮ǰ½ÓÊÕ¼üÅÌÊäÈ룬·ñÔò¼üÅÌÊäÈë±»×é¼þ½ÓÊÕ£¬¾ÍÎÞ·¨ÊµÏÖ¸´»î½Ú²Êµ°¡£Æä´Î£¬ÎªÁË·ÀÖ¹Óû§ÎÞÒâÖÐÔÚ¼üÅÌÊäÈëʱ¼¤»î²Êµ°£¬Ò»°ãʹÓÃALT¡¢SHIFT»òCTRL¿ØÖƼüºÍÆäËü¼¸¸ö×ÖĸµÄ×éºÏ×÷Ϊ¼¤»îÌõ¼þ£¬ÕâÑùÒ»°ãºÍÓû§µÄ¼üÅÌÊäÈë²»»áÏàͬ¡£½ÓÏÂÀ´¾ÍÊǽÓÊÕÓû§µÄÊäÈëÁË£¬½«Óû§Ã¿´ÎÊäÈëµÄ×Ö·û±£´æ£¬Èç¹ûºÍÊÂÏȶ¨ÒåµÄ×Ö·û´®ÏàͬÔò¼¤»î¸´»î½Ú²Êµ°¡£ÏÂÃæÊÇÒ»¸öʵÀý¡£
---- Óû§ÔÚ´°ÌåÉϰ´×¡ALT¼ü²»·Å£¬ÊäÈë¡°HELLO¡±£¬Ôò»á³öÏÖÒ»¸öÏûÏ¢¿ò£¬ÌáʾÄ㼤»îÁ˸´»î½Ú²Êµ°£¬¾ßÌåµÄ²Êµ°Ëæ±ãÄãÉè¼ÆÁË¡£ÏÂÃæÊdzÌÐò´úÂ룺עÒâ±ðÍü¼Ç½«´°ÌåFORM1µÄKeyPreviewÊôÐÔÉ趨ΪTrue¡£
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormKeyDown
(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
keytp :string;
implementation
{$R *.DFM}
procedure TForm1.FormKeyDown
(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//ÊÇ·ñ°´ÏÂALT¼ü£¬Ö»½ÓÊÕ×Ö·û
if (shift=[ssALT]) and (key >=$41)
and (key< =$5A) then
begin
keytp:=keytp+chr(key);
if keytp=HELLO then
begin
showmessage(Ä㼤»îÁ˸´»î½Ú²Êµ°);
end;
end;
end;
end.
---- ´Ë³ÌÐòÔÚDelphi 4.0 ¡¢ÖÐÎÄWIN98 »·¾³Ïµ÷ÊÔÍ ¡£