diff options
Diffstat (limited to 'UDirDelete.pas')
| -rw-r--r-- | UDirDelete.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/UDirDelete.pas b/UDirDelete.pas index 3a3b4c5..953a41a 100644 --- a/UDirDelete.pas +++ b/UDirDelete.pas @@ -22,7 +22,7 @@ unit UDirDelete; interface uses - SysUtils, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKConsts; + SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts; const DIR_DELETE_CANCEL = 0; DIR_DELETE_DELETE = 1; @@ -68,7 +68,7 @@ begin ClientArea.AddControlEx(Label1, True, True, 0); ClientArea.AddControlEx(Label2, True, True, 0); ClientArea.AddControlEx(Label3, True, True, 0); - OnKeyDown := FormKeyDown; + OnKeyDown := @FormKeyDown; end; procedure TFDirDelete.AddButtons(ButtonSet: TFDirDeleteButtonSet); |