diff options
Diffstat (limited to 'UNewDir.pas')
| -rw-r--r-- | UNewDir.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/UNewDir.pas b/UNewDir.pas index a108fd1..a55f5c3 100644 --- a/UNewDir.pas +++ b/UNewDir.pas @@ -22,7 +22,7 @@ unit UNewDir; interface uses - SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts; + SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts; type TFNewDir = class(TGTKDialog) @@ -63,7 +63,7 @@ begin Box.AddControlEx(Entry, False, False, 0); Box.BorderWidth := 6; ClientArea.AddControlEx(Box, True, True, 0); - OnKeyDown := FormKeyDown; + OnKeyDown := @FormKeyDown; Entry.SetFocus; end; |