diff options
Diffstat (limited to 'URemoteWait.pas')
| -rw-r--r-- | URemoteWait.pas | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/URemoteWait.pas b/URemoteWait.pas index e4a2c13..c3802d1 100644 --- a/URemoteWait.pas +++ b/URemoteWait.pas @@ -22,8 +22,7 @@ unit URemoteWait; interface uses - glib2, gdk2, gtk2, pango, - SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts; + SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts; type TFRemoteWait = class(TGTKDialog) @@ -78,9 +77,9 @@ begin CancelButton := TGTKButton.CreateFromStock(Self, 'gtk-cancel'); CancelButton.Default := True; ActionArea.AddControlEndEx(CancelButton, False, False, 2); - OnKeyDown := FormKeyDown; - OnCloseQuery := FormCloseQuery; - CancelButton.OnClick := CancelButtonClick; + OnKeyDown := @FormKeyDown; + OnCloseQuery := @FormCloseQuery; + CancelButton.OnClick := @CancelButtonClick; Cancelled := False; end; |