À©µµ¿ì ÇÁ·Î±×·¡¹Ö ÀÚ·á |
---|
Á¦¸ñ | [Delphi] ´ÜÃàÅ° 1998/11/28 (11:38) |
À̸§ | ±èÈ¿¿ø |
¹øÈ£ | 70 |
Á¶È¸ | 555 |
º»¹® |
F2Å°¸¦ ´©¸£¸é FormÀÌ Á¾·áµÇ´Â ¿¹Á¦. FormÀÇ KeyPreview¸¦ True·Î ¼³Á¤ OnKeyDown, OnKeyUp, OnKeyPress À̺¥Æ®·Î ¸ðµç Å° ´¸²À» ÀÚµ¿ÀûÀ¸·Î º¸³½´Ù. procedure TForm1.FormKeyDown(Sender:TObject; var Key; Word; Shift:TShiftState); begin if Key=VK_F2 then Close end; |